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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

DIAGNOSTIC ENGINEERING WAS CONTRACTED BY MEMORY ENGINEERING TO MAKE THIS 
DIAGNOSTIC IN ORDER TO AID MEMORY ENGINEERING TO DESIGN AND DEBUG THE 
ML-V1 . AID FIELD SERVICE FOR FIELD REPAIRS AND INSTALLATIONS THE ML-11. 

THIS DIAGNOSTIC PRODUCT WILL BE DESIGNED TO TEST FROM ONE TO EIGHT 
ML-11A OR HL-11B UNITS OFF A SINGLE RH11 OR RH70 CONTROLLER. 

THE FUNCTIONAL LEVEL (FRU) OF THIS DIAGNOSTIC PRODUCT WILL BE TO THE 
LOGIC FUNCTION LEVEL. UPON DETECTION OF AN ERROR BY THE DIAGNOSTIC, 
THE LOGIC FUNCTION AND RESPECTIVE MODULE WHICH IT IS LOCATED ON WILL 
BE PRINTED TO THE OPERATOR. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 

THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER’S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 WITH MINIMUM OF 28* WORDS OF MEMORY 
CONSOLE TERMINAL 
RH11 OR RH70 

1 TO 8 ML-11 A OR HL-11B DRIVES ON INTERMIXED BUS 
XXDP+ LOAD MEDIA 

1.3 RELATED DOCUMENTS AND STANDARDS 

1. SUPPRGC.DOC 

2. SUPINT.MEN 

3. SUPFUN.C 

4. XXDPPLUS.DOC 

5. BLISS LANGUAGE GUIDE 

6. BLISS-16 USER'S GUIDE 

1.4 ASSUMPTIONS 

IT WILL BE ASSUMED THAT PRIOR TO THE RUNNING OF THIS DIAGNOSTIC THAT 
ALL APPROPRIATE CPU, MAIN MEMORY AND RH CONTROLLER DIAGNOSTICS HAVE 
BEEN SUCCESSFULLY RUN. 


SEQ 0003 


i 
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;eq 0004 


THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS TO ENSURE ITS 
EXISTENCE AND BASIC FUNCTIONALITY BEFORE LOGIC TESTS ARE ALLOWED TO 
RUN. 


2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 

FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHOUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND 

START 

RESTART 

CONTINUE 

PROCEED 

EXIT 

ADD 

DROP 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 


EFFECT 


START THE DIAGNOSTIC FROM AN INITIAL STATE 
START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 

CONTINUE FROM AN ERROR HALT 
RETURN TO XXDP+ MONITOR (XXDP* OPERATION ONLY!) 
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 
DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

TYPE A LIST OF ALL DEVICE INFORMATION 
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THRfE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF r START . 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY DDDDD '. 


SWITCH 
/TESTS :LIST 


/PASS:DDDDD 

/FLAGS.-FLGS 

/EOP: DDDDD 


EFFECT 


EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAMPLE - /TESTS:1 :5:7-10. 
THIS LIST WILL CAUSE TESTS 1 *5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT §E RUN. 
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
SET SPECIFIED FlAGS. FLAGS ARE DESCRIBED 
IN SECTION 2 3 

REPORT END OF PASS MESSAGE AF1ER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
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/UNITS:LJST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNI TS:0:5: 10-12 
USE UNITS 0,5,10.11.12 (UNIT NUMBERS = 0-63) 


SEQ 0005 


EXAMPLE OF SWITCH USAGE: 

START/TESTS : 1 -5/PASS : 1 OOO/EOP : 1 00 

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL (WITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE *7TES:1-5 INSTEAD OF *7TESTS:1-5 . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS 


FLAGS 


UNITS 


START 

RESTART 

CONTINUE 

PROCEED 

DROP 

ADD 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

EXIT 


2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED ATSTARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USIN6 THE FLA6S SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COWANDS 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FUG SWITCH. 

FUG EFFECT 

HOE* HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIMc SERVICES COMMAND MODE 
LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBE* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 

ERROR TYPE, NUMBER. PC, TEST AND UNIT) 
IXE* INHIBIT ExfENDED EfaOR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) _ 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE 'BELL*' ON ERROR 
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SEQ 0006 


UAM 

I SR 


IDU 

ADR 

LOT 

EVL 


UNATTENDED MODE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

INHIBIT PROGRAM DROPPING OF UNITS 
EXECUTE AUTODROP CODE 
LOOP ON TEST 

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR 
SPECIFY MORE THAN ONE FUG WITH 
TO CAUSE THE PROGRAM TO LOOP ON 
AND TYPE A 'BELL" ON ERROR. YOU 

/FLAGS :LOE:IER:BOE 


MORE DETAILS ON FLAGS. YOU MAY 
THE FLAG SWITCH. FOR EXAMPLE, 
ERROR, INHIBIT ERROR REPORTS 
MAY USE THE FOLLOWING STRING: 




2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW a)?*' 

YOU MUST ANSWER "V" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ’^RELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A 'V, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


PARAMETER CODING CALLS 

GPRMA MSGH1. 0.0,0, 177777, YES 
GPRMD MSGH2.2,0,77.i:,70.YES 
GPRMD MSGH3. 4, 0,777.0. 777, YES 
GPRMD MSGH4 ,6.D .77 ,1,16., YES 

GPRML MS6H5, 10.1, YES 

GPRMD MSGH6,12,0,7,0.7.YES 
GPRML MSGH7, 14,1. YES 

PARAMETER CODING MESSAGES 


RH ADDRESS 
RH TYPE 

RH VECTOR ADDRESS 
NUMBER OF ARRAYS 
DRIVE OPTION TYPE 
DRIVE NUMBER 
PARITY DISABLED 


MSGH1: .ASCII /RH ADDRESS?/ 

MSGH2: .ASCIZ /IS RH AN '70* OR '11?/ 
MSGH3: .ASCIZ /RH VECTOR ADDRESS?/ 

MSGH4: .ASCIZ /NUMBER OF ARRAY MODULES?/ 
MSGH5: .ASCIZ /IS DRIVE OPTION AN ML11A ?/ 
MSGH6: .ASCIZ /ML-11 DRIVE NUMBER?/ 

MSGH7: .ASCIZ /IS PARITY DISABLED?/ 


SAMPLE DIALOGE 
DR> S<A <CR> 
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CHANGE HW <L> ? Y <CR> 

# UNITS <D> ? 1 <CR*» 

UNIT 0 

RH ADDRESS <0> 176400 ? <CR> 

IS RH AN *70' OR '11* <0> ? <CR> 

RH VECTOR ADDRESS <0> 204 ? <CR> 

NUMBER OF ARRAYS MODULES ? <D> 16 ? 14 

IS DRIVE OPTION AN ML11A ? <L> Y ? <CR> 
ML-11 DRIVE NUMBER ? <0> 0 ? <CR> 

IS PARITY DISABLED ? <L> N ? <CR> 


<CR> 


2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL 60VERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ’’CHANGE SW (L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 
”Y”. 

THE FOLLOWING OPTIONS ARE AVAILABLE FOR OPERATOR SELECTION: 

1. ENABLE PRINTING OF DRIVE SERIAL NUMBERS. 

2. LIMIT THE NUMBER OF ERRORS PRINTED PER EACH DETECTED ERROR. 
A MAXIMUM OF 10 ERRORS WILL BE PRINTED PER ERROR BEFORE THE 
ERROR IS EXITED. 

3. ENABLE RH AND ML11 REGISTER DUMP ON ERRORS. 

4. ABORT IN6 PROGRAM EXECUTION AFTER ONE COMPLETE PASS. 

5. ENABLE MANUAL INTERVENTION TESTS. 


2.6 EXTENDED P-TABLE DIALOGUE 

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOD. SUPPOSE YOU ARE TESTING 
A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 
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# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) 1 
SUB-DEVICE # (0) 
Q-FACTOR (0) 0 ? 

UNIT 2 

CSR ADDRESS (0) : 
SUB-DEVICE # (0) 
Q-FACTOR (0) 1 ? 

UNIT 3 

CSR ADDRESS (0> 1 
SUB-DEVICE # (0) 
Q-FACTOR (0) 0 ? 


160000<CR> 
? 0<CR> 

1 <CR> 


160000<CR> 
? 1<CR> 

0<CR> 


160000<CR> 
? 2<CR> 

<CR> 


UNI T 4 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) 1 
SUB-DEVICE # (0) 
Q-FACTOR (0) 0 ? 


160000<CR> 
? 4<CR> 

<CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ‘ 
SUB-DEVICE f (0) 
Q-FACTOR (0) 0 ? 


160000<CR> 
! 6<CR> 
1<CR> 


UNIT 8 _ 

CSR ADDRESS (0) 160000<CR> 

SUB-DEVICE » (0) ? 7<CR> 

Q-FACTOR (0) 1 ? <CR> 

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL HHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET’S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

# UNITS (D) ? 8<CR> 


SEQ 0008 
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UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE * (0) ? 0.1<CR> 

Q-FACTOR (0) 0 ? 1.0<CR> 

UNI T 3 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE » (0) ? 2-5<CR> 

O-FACTOR (0) 0 ? 0<CR> 

CSR T ADDRESS (0) ? 160000<CR> 

SUB-DEVICE » (0) ? 6,7<CR> 

Q-FACTOR (0) 0 ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR 80TH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

0 UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE 0 (0) ? 0-7<CR> 

Q-FACTOR (0) 0 ? 0,1,0,,,,1 ,1<CR> 

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 

2.7 QUICK START-UP PROCEDURE (XXDP+) 

TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 

2. GIVE THE DATE 

3. TYPE ** CZMLA" 

4. TYPE ‘'START** 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 


SEQ 0009 
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SEQ 0010 


6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE_ 

DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE IER FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE. NAME - ^ror°TYPE FATAL. DEV FATAL. HARD OR SOFT) 

KnTM R 2W?n is LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC : XXXXXX = ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR G00D/8AD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER". "I8R" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGES ARE HANDLED VIA A DICTIONARY STRUCTURE. 

WORDS AND PHRASES ARE MULTIPLY REFERENCED USING ONLY 
ONE COPY OF THE WORD OR PHRASE IN CORE. 

THIS PERMITS EXTENSIVE ERROR MESSAGE PRINTING AT MINIMAL 
STORAGE REQUIREMENTS. 

THE FOLLOWING DEMONSTRATES TYPICAL ERROR MESSAGES: 

ML 11 DVC FTL ERR 00077 ON UNIT 07 TST 027 SUB 002 PC: 050432 

ASYNCHRONOUS MODULE FAILURE 

EXCESSIVE DATA ERRORS DURING INITIAL ARR RD.WRT 

ML 11 DVC FTL ERR 00112 ON UNIT 03 TST 037 SUB 000 PC: 056466 
ASYNCHRONOUS MODULE FAILURE 
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"EO 0011 


ARRAY ADRS MULTIPLEXER 
FAILED AT DSA: OOOOOO 

FAILURE 



3.2.1 ERROR NUMBER DEFINITION 



ERROR NO. 

FAILING LOGIC 



1 

DRIVE DID NOT RESPOND WITHIN 1.5 US 



2 

DSA REG READ/WRITE ERROR DURING DRIVE SEL TEST 



3 

UNIQUE DRIVE SELECTION ERROR 



4 

ML REGISTER READ WRITE ONES/ZEROES ERROR 



5 

ML REGISTER SHIFTING ONES/ZEROES ERROR 



6 

ML REGISTER INITIALIZATION ERROR 



7 

CONTROL BUS BAD PARITY NOT DETECTED. (CPAR NOT SET) 



8 

CONTROL BUS GOOD PARITY NOT DETECTED. (CPAR SET) 



9 

CONTROL BUS BAD PARITY GENERATED. (MCPE SET) 



10 

ARRAY SIZING LOGIC ERROR 



11 

GO BIT NOT CLR AFTER NOOP FUNCTION 

1 

j 


12 

ILF BIT SET DURING NOOP FUNCTION 



13 

OPI BIT SET DURING NOOP FUNCTION 



14 

GO BIT NOT SET DURING WRITE CHECK FUNCTION 



15 

DRY BIT CLEARED WHILE GO CLEARED DURING WRITE CHECK FUNCTION TEST 



16 

DRY BIT SET WHEN GO SET DURING WRITE CHECK FUNCTION 



17 

ILF SET DURING WRITE CHECK FUNCTION 



18 

OPI BIT SET DURING WRITE CHECK FUNCTION 



19 

GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION 'ASYNC FAILURE* 



20 

GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION 'SYNC FUNCTION* 



21 

DRY BIT NOT SET AFTER WRITE CHECK FUNCTION 




GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION 'ASYNC FAILURE* 



23 

GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION 'SYNC FAILURE' 



24 

GO BIT NOT SET DURING WRITE FUNCTION 



CZMLADO ML— 1 1 LOGIC TEST 
USER DOCUMENTATION 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 
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DRY BIT CLEAR WITH GO CLEAR DURING WRITE FUNCTION. 

DRY BIT SET WITH GO BIT DURING WRITE FUNCTION. 

ILF BIT SET DURING WRITE FUNCTION 

OPI BIT SET DURING WRITE FUNCTION 

GO BIT NOT CLEAR AFTER WRITE FUNCTION * ASYNC FAILURE* 

GO BIT NOT CLEAR AFTER WRITE FUNCTION 'SYNC FAILURE* 

DRY BIT NOT SET AFTER WRITE FUNCTION. 

GO BIT NOT CLEAR AFTER WRITE FUNCTION 'ASYNC FAILURE* 
GO BIT NOT CLEAR AFTER WRITE FUNCTION ’ASYNC FAILURE* 
GO BIT NOT SET DURING READ FUNCTION. 

DRY BIT SET WHILE GO CLEAR DURING READ FUNCTION. 

DRY BIT SET WHILE GO SET DURING READ FUNCTION. 

ILF BIT SET DURING READ FUNCTION. 

OPI BIT SET DURING READ FUNCTION 

GO BIT NOT CLEAR AFTER READ FUNCTION 'ASYNC FAILURE* 

GO BIT NOT CLEAR AFTER READ FUNCTION ‘SYNC FAILURE' 

DRY BIT NOT SET AFTER READ FUNCTION 

GO BIT NOT CLEAR AFTER READ FUNCTION 'ASYNC FAILURE* 

GO BIT NOT CLEAR AFTER READ FUNCTION 'SYNC FAILURE' 

GO BIT NOT CLEAR AFTER CLEAR FUNCTION 

DRY BIT SET WHILE GO SET DURING CL r Aft FUNCTION 

DRY BIT NOT SET AFTER CLEAR FUNC1.T . 

ILF BIT SET DURING CLEAR FUNCTION 

OPI BIT SET DURING CLEAR FUNCTION 

ERROR REGISTER DID NOT CLEAR AFTER DRIVE CLEAR. 

COMPOSITE ERROR BIT NOT SET AFTER MLER BITS SET 

ATA BIT SETTING ERROR 

ATTN BIT SETTING ERROR 

ATTN BIT NOT CLEARED BY MLCS1 NOOP FUNCTION 


SEQ 0012 
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SEO 0013 


54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 


ATA BIT NOT CLEAR AFTER WRITING A ONE TO IT 

WRITING A ONE TO OTHER DRIVES ATA BIT CLEARED THIS DRIVES ATA BIT 
GO BIT NOT CLEARED AFTER SEARCH FUNCTION 
ILF BIT SET DURING SEARCH FUNCTION 

NO-OP FUNCTION DID NOT CLEAR THE ATA BIT AFTER BEING SET 

ATTN BIT NOT SET AFTER SEARCH FUNCTION 

OPI BIT SET DURING SEARCH FUNCTION AT PRESENT ARRAYS 

OPI BIT NOT SET AFTER SEARCH AT NON-PRESENT ARRAYS 

GO BIT NOT CLEAR AFTER READ-IN-PRESET FUNCTION 

ILF BIT SET DURING READ-IN-PRESET FUNCTION 

OPI BIT SET DURING READ-IN-PRESET FUNCTION 

ECC INITIALIZE DID NOT CLEAR MEMORY AFTER POWER UP WITH BAD BATTERY BACK-UP 
GO BIT NOT CLEARED AFTER ILLEGAL FUNCTION 
ILLEGAL FUNCTION NOT DETECTED 
OPI BIT SET WITH ILLEGAL FUNCTION 

RMR BIT NOT SET AFTER MODIFYING REG WITH FUNCTION IN PROGRESS 

MEMORY ARRAY PROM CHECK SUM ERRORS DURING INITIAL PROM READS 

NIBBLE OFF SET COUNTS GREATER THAN 14 DETECTED 

UNS BIT SET WITH GOOD UV DATA 

UNS BIT SET WITH GOOD UV DATA 

UNS BIT NOT SET WITH BAD UV DATA 

UNS BIT NOT SET WITH BAD UV DATA 

MEMORY ARRAY PROM ROW/COL DATA ORING ERROR 

BAD NIBBLE THRESHOLD OF 36 EXCEEDED DURING INITIAL ARRAY READ/WRITE TEST 
UNIQUE PROM SELECTION ERROR 

FAILURE TO FIND GOOD ROW DURING READ WRITE ARRAY WITH PROM DATA 
MEMORY ARRAY TIMING AND CONTROL FAILURE TO REFRESH MEMORY 

DATA ERRORS DETECTED AT LAST BLOCK DURING ADDRESSES COUNTER TEST. (TEST ABORTED) 
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82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 


ADDRESS COUNTER ERROR 

UNIQUE MEMORY ARRAY MODULE SELECTION FAILURE 

ALL BITS IN ALL NIBBLES TESTED DURING SEQUENCER EXISTENCE TEST WERE IN ERROR (FAIL 
INTERMEDIATE FAILURE. SOME BITS IN NIBBLES TESTED WERE IN ERROR (CONTINUE TESTING) 
SYNC BUS DATA BIT WRITE PATH CONTINUITY FAILURE 
SYNC BUS DATA BIT READ PATH CONTINUITY FAILURE 

RAM BUS ADRS COUNTER FAILURE TO LOAD/UNLOAD SKIP RAM DURING WRITE FUNCTION 
RAM BUS ADRS COUNTER FAILURE TO LOAD/UNLOAD SKIP RAM DURING READ FUNCTION 
SYNC DATA BUS WRITE PATH UNIQUE DATA BIT FAILURE (ALL ONES NI88LE PATTERN) 

SYNC DATA BUS WRITE PATH UNIQUE DATA BIT FAILURE (SHIFTED BIT NIBBLE PATTERN) 

SYNC DATA BUS WRITE PATH UNIQUE DATA BIT FAILURE (ALL ONES NIB8LE PATTERN) 

SYNC DATA BUS READ PATH UNIQUE DATA BIT FAILURE 
NIBBLE OFF SET COUNTERS FAILURE 
CS1 FUNCTION ABORT FAILURE DURING CLASS 'A' ERROR 
CS1 FUNCTION ABORT FAILURE DURING CUSS *B' ERROR 
LBT BIT SET BEFORE A LAST BLOCK TRANSFER 

DSA RE6ISTER INCREMENT FAILURE DURING NON LAST BLOCK TRANSFERS. 

LBT BIT NOT CLEAR AFTER LOADING DSA REG 

LBT BIT NOT SET AFTER A LAST BLOCK TRANSFER 

DSA RE6ISTER INCREMENT FAILURE AFTER A UST BLOCK TRANSFER 

IAE BIT NOT SET AT INVALID SECTOR ADDRESSES 

AOE BIT NOT SET AFTER ADDRESS OVERFLOW 

SC BIT NOT AFTER CS1 FUNCTION ADORT 

GOOD DATA BUS PARITY NOT DETECTED 

GOOD DATA BUS PARITY NOT GENERATED 

UNS BIT SET AFTER WRITING TO A SECTOR DURING PROM DATA TEST 
UNS BIT NOT SET WITH BAD UV DATA 

WCE BIT SET DURING MBUS WRITE/READ FUNCTION TROUBLE SHOOTING LOOP TEST 
UNIQUE REGISTER SELECTION TEST FAILURE 


CZMLADO ML-11 LOGIC TEST 
USER DOCUMENTATION 


SEQ 00 


MACRO mi 13 30-MAR-82 11:18 


C 

PAGE 4-1 


? 


111 

112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

1 28 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 


FAILURE TO FIND GOOD MOS RAM ROW DURING ARRAY ADRS MUX TEST (INTERMEDIATE DIAG MSG) 
UNIQUE ARRAY MODULE ROW/COL ADDRESSING FAILURE 
DRIVE TYPE REGISTER VALUE UAS NOT CORRECT 

TRE BIT SET UNEXPECTEDLY DURING A WRITE CHECK TRANSFER (INTERMEDIATE DIAG ERROR) 

TRE BIT SET UNEXPECTEDLY DURING A WRITE TRANSFER (INTERMEDIATE DIAG ERROR) 

TRE BIT SET UNEXPECTEDLY DURING A READ TRANSFER (INTERMEDIATE DIAG ERROR) 

TRE BIT DID NOT SET AFTER A REGISTER MODIFICATION ERROR (EXCEPTION WAS NOT ASSERTED) 
DATA DIAGNOSTIC REGISTER (D1 D2 E2) INITIALIZATION ERRORS 
RH CONTROLLER FAILED EXISTANCE PROBE TEST 
NED BIT SET DURING MASS BUS HANDSHAKE PROBE 

DATA DIAGNOSTIC REGISTER (D1 D2 E2) ONE'S ZERO'S READ/WRITE ERRORS 
DATA DIAGNOSTIC REGISTER (D1 D2 E2) SHIFTING 1'S AND O'S READ/WRITE ERRORS 
ECC HARD ERROR BIT NOT SET WHEN UNCORRECTABLE ECC ERRORS WERE READ 
ECC ERROR REGISTER FAILURE TO LATCH FAILING ERROR CORRECTION INFORMATION 
ECC ERROR REGISTER FAILURE TO CLEAR 

ECC ERROR LOCATION REGISTER FAILED TO CLOCK IN DSA ADDRESS 

ECC ERROR LOCATION REGISTER DATA BIT ERRORS 

ECC ERROR LOCATION REGISTER INITIALIZATION ERRORS 

ECC HARD ERROR BIT FAILED TO SET NOT SET 

DATA CHECK ERROR BIT FAILED TO SET / NOT SET 

CRC DATA BUS FAILURE. BIT CONTINUITY / UNIQUENESS ERRORS 

UNIQUE NIBBLE CRC GENERATION CODE FAILURES 

UNIQUE WORD CRC GENERATION CODE FAILURES 

CORRECTABLE ERROR SYNDRONE DECODE FAILURE. FAILURE TO COMPLIMENT EXPECTED FAILING B 

CORRECTABLE ERROR SYNDRONE DECODE FAILURE. UNEXPECTED BIT(S) FOUND COMPLIMENTED 

ECH OR UNC BIT NOT SET DURING READS WITH ECC ERRORS IN CHANNEL > 35 

ERROR CORRECTION WAS NOT INHIBITED DURING UNCORRECTABLE ECC ERRORS. 

UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED 

ECH OR UNC BIT NOT SET WHEN MULTIPLE CHANNEL ERRORS WERE READ 
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139 

HO 

HI 

142 

H8 

H9 

150 

151 

152 

153 

154 

155 

156 


ERROR CORRECTION WAS NOT INHIBITED DURING UNCORRECTABLE ECC ERROR. 

UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED 

ECC FAILURE TO DETECT AND CORRECT SINGLE BIT CHANNEL ERRORS 

ECC FAILURE TO DETECT AND CORRECT MULTIPLE BIT CHANNEL ERRORS 

FAILURE TO FIND GOOD BLOCK DURING ARRAY SELECT TEST 

SC BIT SET DURING NASS BUS WRITE OR WRITE CHECK TRANSFERS DURING TEST 21 AND 61 
VV BIT WAS SET WHEN TESTED AND GOT CLEARED AFTER A READ-IN-PRESET FUNCTION WAS PERFO 
VV BIT WAS CLEARED WHEN TESTED AND DID NOT GET SET WHEN A READ-IN-PRESET FUNCTION WA 
THE UNS BIT DID NOT SET WHEN BOX POWER WAS LOST 

THE VV SIT DID NOT CLEAR WHEN DRIVE AC POWER RESUMED WITH BAD BATTERY BACK-UP 

DC LO DID NOT INITIATE 'MB DIS LO* RESULTING IN THE ML-11 REGISTERS NOT GETTING CLEA 
POWER UP. 

VV BIT GOT CLEARED AFTER POWER FAIL WITH GOOD BATTERY BACK-UP 

ECC INIT CLEARED OUT MEMORY AFTER POWER FAILED WITH GOOD BATTERY BACK-UP 

BATTERY BACK-UP FAILED TO MAINTAIN DATA INTEGRITY DURING POWER FAIL 


4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 
HARDWARE DEFAULT PTABLE 


.WORD 

176400 

RH ADDRESS 

.WORD 

70 

RH TYPE 

.WORD 

204 

RH VECTOR ADDRESS 

.WORD 

16. 

NUMBER OF ARRAY MODULES 

.WORD 

1 

IS DRVE OPTION ML11A. 

.WORD 

0 

ML-11 DRIVE NUMBER 

.WORD 

0 

IS PARITY DISABLED, 1= 


1=16K, 0=64 K 
, 0=NO 


6.0 TEST SUMMARIES 
TST1. MASS BUS READY 


TEST THE RH CONTROLLER FOR EXI STANCE 
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TST2. HASS BUS HANDSHAKE 

TEST HASS BUS > UNIBUS COMMUNICATIONS 

TST3. DRIVE PRESENT 

TEST TO SEE IF THE DRIVE UNDER TEST EXIST. 

TST4. DRIVE SELECTION 

SEE IF SELECTING OTHER DRIVES ON RH EFFECTS DRIVE UNDER TEST. 

TST5. READ WRITE REGISTER ONE'S ZERO'S TEST 

TEST REGISTERS READ WRITE CAPABILITY AND UNIQUENESS 

TST6. READ WRITE REGISTER SHIFTING ONE'S AND ZEROES 

TEST REGISTERS FOR UNIQUE DATA BITS. 

TST7. REGISTER INITIALIZATION 

TEST REGISTERS FOR CORRECT INIT DATA. 

TST8 REGISTER SELECTION TEST 

TEST FOR UNIQUE REGISTER SELECTION 

TST9. PRINT DRIVE SERIAL NUMBER 

PRINT THE CONTENTS OF MLSN IF THE SOFTWARE QUESTION WAS 
ANSWERED 'YES'. 

TST10. C-BUS PARITY 

TEST IF DRIVE CAN DETECT 8AD PARITY ON C-BUS AND GENERATE 
GOOD PARITY. 

TST11. MEMORY SIZING 

SEE IF MEMORY SIZING LOGIC DETECTS AND RECORD CORRECT NUMBER 
OF ARRAYS PRESENT. 

TST12. NO-OP FUNCTION 

SEE IF A NO-OP FUNCTION CAN BE EXECUTED. 

TST13. WRITE CHECK FUNCTION 

SEE IF A WRITE CHECK FUNCTION CAUSES THE DRIVE TO HANG. 

TST14. WRITE FUNCTION 

SEE IF A WRITE FUNCTION CAUSES THE DRIVE TO HANG. 


TST15. READ FUNCTION 
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SEE If A READ FUNCTION CAUSES THE DRIVE TO HANG. 


TST16. 

TST17. 

TST18. 

TST19. 

TST20. 


CLEAR FUNCTION 

SEE IF A CLEAR FUNCTION CAN BE EXECUTED. 

DIAGNOSTIC REGISTER READ WRITE 

TEST THE DIAGNOSTIC REGISTERS FOR 
VS/O'S . SHIFTING I'S/O’S AND 
INITIALIZATION 

COMPOSITE ERROR BIT TEST 

SEE IF EACH INDIVIDUAL ERROR BIT IN HLER CAUSES A COMPOSITE 


ERROR. 

ATA BIT 

TEST IF THE ATA BIT CAN BE SET AND CLEARED. 


SEARCH FUNCTION 

SEE IF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRA- 
YS. 


TST21. POWER FAIL TEST *MANUAL INTERVENTION TEST* 

TEST THE VV BIT SETTING/CLEAPdNG, ECC INIT, REGISTER CLEARING 
UNS BIT SETTING, AC AND DC LOW. 

TST22. ILLEGAL FUNCTION 

SEE IF WRITING AN ILLEGAL FUNCTION TO CS1 CAN BE DETECTED AND 
THAT A TRANSFER IS NOT INITIATED. 

TST23. REGISTER MODIFICATION REFUSED 

TEST TO SEE IF WRITING TO SPECIFIC REGISTERS ARE ..ABORTED 
WHILE THE DRIVE IS ACTIVE. SEE IF WRITING TO NON-SPECIFIC 
REGISTERS ARE ALLOWED WHILE DRIVE IS ACTIVE. 

TST24. INITIAL PROM TEST 

TEST PROMS FOR EXISTENCE. 

TST25. PROM *OR* FUNCTION TEST 

TEST THE PROM DATA ORING FUNC 

TST26. UV ERROR TEST 

TEST ABILITY OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM 
ERRORS. 

TST27. INITIAL ARRAY TEST 

TEST ARRAY TIMING AND CONTROLFOR EXISTENCE. 


..EQ 0018 
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TST28. PROM SELECTION TEST 

TEST FOR UNIQUE PROM SELECTION. 

TST29. READ WRITE MEMORY ARRAY WITH PROM DATA (DIAG MODE) 

SEE IF MEMORY CAN BE WRITTEN AND READ. 

ALSO FIND ERROR FREE BLOCK OF MEMORY FOR FUTURE TESTS. 

TST30. REFRESH TIMING 

TEST TO SEE IF MEMORY CAN BE REFRESHED. 

TST31. ADDRESS COUNTER 

TEST THE ADDRESS COUNTER FOR ABILITY TO COUNT THROUGH ALL 
POSSIBLE MEMORY ADDRESSES. 

TST32. ARRAY MODULE SELECTION 

TEST FOR UNIQUE ARRAY NODULE SELECTION 

TST33. SEQUENCER EXISTENCE TEST 

TEST TO SEE IF BASIC SEQUENCER TIMING EXISTS. 

TST34. SYNC DATA BUS CONTINUITY/WRITE PATH 

TEST SYNCHRONOUS DATA BUS WRITE PATH FOR CONTINUITY BY READ- 
ING WRITING ONE'S AND ZERO'S. 

TST35. SYNC DATA BUS CONTINUITY/READ PATH 

TEST SYNCHRONOUS DATA BUS READ PATH FOR CONTINUITY BY READING 
WRITING ONE'S AM) ZEROES. 

TST36. RAM-BUS ADDRESS COUNTER/WRITE PATH 

TEST ABILITY OF THE RAM-BUS ADDRESS COUNTERS TO LOAD/UNLOAD 
THE SKIP DURING WRITE FUNCTIONS. 

TST37. RAM BUS ADRS COUNTER/READ PATH 

TEST ABILITY OF RAM/BUS ADRS COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS. 

TST38. SYNC DATA BUS BIT UNIOUENESS/WRITE PATH 

TEST SYNCHRONOUS DATA BUS FOR DATA BIT UNIOUENESS BY WRITING 
SHIFTING PATTERNS OF ONE'S AND ZERO'S TO THE ML. 

TST39. SYNC DAT BUS BIT UNIOUENESS/READ PATH 

TEST SYNCHRONOUS DATA BUS READ PATH FOR DATA BIT UNIQUENESS 
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BY WRITING SHIFTING PATTERNS OF ONES AND ZEROES TO THE 
TST40. ARRAY ADDRESS MUX 

TEST FOR UNIQUE ROW AND COLUMN ADDRESSING 
TST41 . NIBBLE OFFSET 


TEST NIBBLE OFFSET COUNTERS TO COUNT TO 14 NIBBLE DATA TO BE 
SHIFTED ON DETECTION OF BAD NIBBLES. 

TST42. CS1 FUNCTION ABORT 

SEE IF A CLASS *8* ERROR ABORTS A FUNCTION WHILE IN PROGRESS. 

SEE IF A CLASS* A' ERROR IS DETECTED BUT FUNCTION IS ALLOWED 
TO COMPLETE. 

TST43. LAST BLOCK INDICATOR 

TEST THE LAST BLOCK INDICATOR BIT FOR NOT SETTING BELOW THE 
LAST AND SETTING AND CLR1NG AT THE LAST BLOCK 

TST44. INVALID ADDRESS TEST 

FOR ALL ILLEGAL DSA ADDRESSES READ THE IAE BIT SET. 

TST45. ADDRESS OVERFLOW 

TEST FOR AOE ON TRANSFERS WHICH EXTEND BEYOND THE LAST BLOCK. 
TST46. SYNC BUS PARITY 

TEST FOR BAD PARITY DETECTION AND GOOO PARITY GENERATION. 
TST47. WRITE READ MEMORY ARRAY (M-BUS BLOCK MODE) 

WRITE READ MEMORY VIA M-BUS BLOCK WITH MINIMUM OVERHEAD 


TST48. TEST THE CRC DATA BUS 8ETWEEN THE CRC 
GENERATORS AND THE CRC/MBUS DATA 
MUX FOR CONTINUITY AND BIT UNIQUENESS 

TST49. TEST CRC CODES GENERATED FOR ONE CRC 
GROUP (52 UNIQUE NIBBLES) 

TST50. TEST CRC CODES GENERATED FOR ONE 

CRC GROUP (13 UNIBUS WORDS) 

TST51. TEST SYNDRONE DECODE AND ERROR 

CORRECTION TO DECODE AND CORRECT 

SINGLE BIT AND MULTIPLE BIT 
CHANNEL ERRORS 

TST52. TEST SYNDRONE DECODE TO DETECT BUT 
NOT CORRECT UNCORRECTABLE CHANNEL 
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ERRORS 

TST53. TEST SYNDROME DECODE TO DETECT BUT NOT 
CORRECT UNCORRECTABLE MULTIPLE CHANNEL 
ERRORS 

TST54. TEST SYNDRONE GENERATION, SYNDROME DECODE 
AND ERROR CORRECTION FOR SIGLE BIT CHANNEL 
ERRORS 

TST55. TEST SYNDRONE GENERATION, SYNDRONE DECODE 
AND ERROR CORRECTION FOR MULTIPLE BIT 
CHANNEL ERRORS 

TST56. TEST THE ECC ERROR REGISTER FOR 

CLEARING AND LATCHING OF ECC ERROR 
INFORMATION ON DETECTION OF ECC ERRORS 

TST57. TEST THE ECC ERROR LOCATION REGISTER FOR 
CLOCKING, BIT UNIQUENESS, CLEARING AND 
LATCHING 

TST58. VIA ECC DM AND ECC DIS TEST THE ECH 
BIT FOR SETTING AND NOT SETTING 

TST59. VIA ECC.EN, ECC. DM AND ECC DIS TEST 

THE DCK BIT FOR SETTING AND NOT SETTING 

TST60. PROM DATA TEST 

VERIFY THAT CHECK SUM VALUES FOR ALL PROM LOCATIONS ARE CORRECT. 

TST61. BATTERY BACK-UP TEST *MANUAL INTERVENTION TEST* 

TEST THE DRIVE BATTERY BACK-UP DURING POWER FAILS AND ALSO 
TEST VV BIT, ECC INIT. 
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2 


1 

33 

35 

36 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

64 

65 

66 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 


97 

98 

99 
100 
101 
102 

103 

104 
111 
112 

113 

114 

115 

116 

117 

118 


000000 

002000 

002000 


002000 

002000 

002122 


.SBTTL PROGRAM HEADER AND TABLES 

.ENABL A8S,AMA 

. = 2000 

BGNMOD 

;*THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

POINTER ALL 

HEADER CZMLA,D, 0,1800. ,0 

; NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 

DEVTYP <ML-11> 


002130 


TEST DESCRIPTION 
DESCRIPT <ML-11 LOGIC TEST> 


THE GLOBAL ERROR TABLE (INFORMATION 
USED IN A CALL TO THE MACRO "ERROR") 


002152 

ERRTBL 


002152 000000 

ERRTYP: : 

.WORD 

002154 000000 

ERRNBR:: 

.WORD 

002156 000000 

ERRMSG: : 

.WORD 

002160 000000 

ERR8LK: : 

.WORD 


*THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 
IT JS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


002162 


DISPATCH 61 


+♦ 

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
AND IS USED AS A 'TEMPLATE" FOR BUILDING THE P-TABLES. 
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119 

120 

130 

131 

132 

133 

134 

135 

136 

137 
13d 
139 
HO 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

159 

160 
161 
162 

163 

164 

165 

166 


002356 


002360 176400 
002362 000070 
002364 000204 
002366 000001 
002370 000001 
002372 000000 
002374 000000 

002376 


BGNHU 

DFPT8L 

.WORD 

176400 

.WORD 

70 

.WORD 

204 

.WORD 

1 

.WORD 

1 

.WORD 

0 

.WORD 

0 

ENDHU 



RH ADDRESS 
RH TYPE 

RH VECTOR ADDRESS 

NUMBER OF ARRAY MODULES 

IS DRIVE OPTION ML11A, 1=16K, 0-64K 

ML— 1 1 DRIVE NUMBER 

IS PARITY DISABLED, HYES, 0=N0 


♦♦ 


THE DEFAULT SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET 
UP AT ASSEMBLY TIME AND KAY BE VARIED BY THE OPERATOR AT RUN 
TIME. 


002376 


BGNSW 

SFPTBL 

002400 

000000 

PRSN: : 

.WORD 

002402 

000001 

ERRTHR: : 

.WORD 

002404 

000000 

REGDMP: : 

.WORD 

002406 

000001 

ONEPAS:: 

.WORD 

002410 

002412 

000000 

INTERVEN: : 

ENDSU 

.WORD 


PRINT SERIAL NUMBER, 1=YES, 0=N0 
ENABLE ERROR THRESHOLD 1=YES, 0=NO 
ENABLE REGISTER DUMPS 1=YES, 0=NO 
DROP UNIT AFTER ONE (EOP) 

MANUAL INTERVENTION TESTS 1=YES, 0=NO 


SEQ 0023 
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192 

218 

219 

220 
22 1 
222 

223 

224 

225 

226 

227 

228 

229 002412 

230 

240 

241 

242 002414 

243 002424 

244 002436 

245 002450 

246 002462 

247 002470 

248 002502 

249 

250 002510 

251 

258 

259 002510 

260 002556 

261 002624 

262 002670 

263 002736 

264 003004 

265 003052 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 003120 

278 

287 

288 003122 

289 003130 

290 003136 

291 003144 

292 003152 

293 

294 

295 003160 

296 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 


GPRMA 

GPRMD 

GPRMD 

GPRMD 

GPRML 

GPRMD 

GPRML 

ENDHRD 


122 

110 

040 

MSGH1 : 

.ASCIZ 

122 

110 

040 

MSGH2: 

.ASCIZ 

122 

110 

040 

MSGH3: 

.ASCIZ 

116 

125 

115 

MSGH4: 

.ASCIZ 

111 

123 

040 

MSGH5: 

.ASCIZ 

104 

1 22 

111 

MSGH6: 

.ASCIZ 

111 

123 

040 

NSGH7: 

.ASCIZ 


MSGH1 ,0,0, 0,177777, YES 
MSGH2,2,0.77.11,70.YES 
MSGH3. 4.0, 777.0.777. YES 
MSGH4.6.D.77.1 ,16. , YES 
MSGH5,l6,1,YE$ 
MSGH6,12.0.7,0.7,YES 
MSGH7, 14,1, YES 


/RH CONTROLER BASE REGISTER ADDRESS ?/ 
/RH CONTROLER TYPE *70 OR 11* ?/ 
/RH CONTROLER VECTOR ADDRESS ?/ 
/NUMBER OF ARRAY MODULES IN THIS UUT ?/ 
/IS UUT DRIVE OPTION TYPE AN 'ML11A* ?/ 
/DRIVE SELECT NUMBER OF THIS UUT ?/ 
/IS PARITY DISABLED IN THIS UUT ?/ 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


8GNSFT 


GPRML 

GPRML 

GPRML 

GPRML 

GPRML 

.EVEN 

ENDSFT 


MSGS1 ,0,1 .YES 
MSGS2,2,1 .YES 
MS6S3.4.1 ,YES 
MSGS4.6.1 .YES 
MSGS5, 10.1 , YES 


CZMLADO 

PROGRAM 

297 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

337 

338 

339 

340 

347 

348 

349 

350 
363 
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SEQ 0025 

003160 

003224 

003270 

003334 

003400 

120 

105 

105 

105 

105 

122 

116 

116 

130 

116 

111 

101 

101 

111 

101 

MSGS1 : 
MSGS2: 
MSGS 3: 
MSGS4 : 
MSGS5 : 

.ASCII /PRINT DRIVE SERIAL NUMBER 
.ASCI 7 /ENABLE ERROR MESSAGE THRESHOLD 
.ASCIZ /ENABLE REGISTER DUMP ON ERRORS 
.ASCI 7 /EXIT PROGRAM AFTER ONE PASS 
.ASCIZ /ENABLE MANUAL INTERVENTION TESTS 
.EVEN 

?/ 

?/ 

?/ 

?/ 

?/ 

PRINT DRIVE SERIAL NUMBER? 
ERROR THRESHOLD FLAG 

REG DUMP FLAG 

EXIT PROG FLAG 





; + THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 



003444 





BGNPROT 



003444 

003446 

003450 

177777 

177777 

177777 




-1 .OFFSET INTO P-TABLE FOR CSR ADDRESS 

-1 .-OFFSET INTO P-TABLE FOR MASS6US ADDRESS 

-1 ; OFF SET INTO P-TABLE FOR DRIVE NUMBER 


003452 





ENDPROT 



003452 

003452 




SPATCH: 

' .BLKW 20 



003512 





ENDMOD 
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6 ;ML3AD 

7 ; 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

27 

28 

29 

30 

34 004646 

35 

36 

37 

42 

43 

47 

48 

52 004650 

53 004654 

54 004656 

55 

56 

57 


0001 

0002 

0003 

0004 

0005 

0006 

1496 

1497 
1*98 

1499 

1500 

1501 

1502 

1503 

1504 


000207 


004767 

104425 

000207 


22-Mar-1982 11:35:31 
22-Mar-1982 11:32:50 


MODULE ML3AD = 

BEGIN 

XSBTTL 'REPORT CODE SECTION' 
REQUIRE '8LSMAC.REQ'; 


THE REPORT CODING SECTION CONTAINS THE 
“PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT; 

RETURN; 

ENDRPT; 


.S8TTL LRPT REPORT CODE SECTION 
LRPT: RTS PC 

; Routine Size: 1 word 

; Maximum stack depth per invocation: 0 words 


.SBTTL LSRPT REPORT CODE SECTION 
177772 LSRPT:: JSR PC, LRPT 

TRAP 25 

RTS PC 

; Routine Size: 4 words 

; Maximum stack depth per invocation: 0 words 


T0PS-20 Bliss-16 V21212) 
PA:<NEALE>ML3AD.8L1.1 <D 


1495 


1503 



SEO 0027 


1504 


1514 


CZMLADO ML-11 LOGIC TEST MACRO Ml 113 

LSAUTO REPORT CODE SECTION 


C 3 

30-MAR-82 11:18 PAGE 43 


SEQ 0028 


116 ;ML3AD 

117 ; 

118 

119 ; 

120 ; 

121 ; 

122 ; 

123 ; 

124 ; 

125 ; 

126 ; 

127 ; 

131 

132 

136 004672 

137 

138 

139 

144 

145 

149 

150 

154 004674 

155 004700 

156 004702 


000207 


REPORT CODE SECTION 


>-Nar-1982 11:35:31 
>-Mar-1982 11:32:50 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML3AD.8LI .1 (1) 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 


BGNDU; 

RETURN; 

ENDDU; 


004767 177772 

104453 

000207 


.S6TTL LDU REPORT CODE SECTION 
LDU: RTS PC 

; Routine Size: 1 word . . , 

; Maximum stack depth per invocation: 0 word* 


.SBTTL LSDU REPORT CODE SECTION 
LSDU:: JSR PC, LDU 

TRAP 53 

RTS PC 

; Routine Size: 4 words , 

; Maximum stack depth per invocation: 0 words 


1525 

1526 

1527 

1528 

1529 


• THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
I TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
! TO THE TEST CYCLE. 




E 3 
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,iUU REPORT CODE SECTION 


SEQ 0030 


228 

;Nl3AD 


22 9 

• 

# 

REPORT CODE 

230 



231 



232 

233 

; Size: 

20 code ♦ 0 

234 

; Run Time: 

00:02.9 

235 

; Elapsed Time 

: 00:05.5 

236 

; Memory Used: 

24 pages 

237 

; Compilation 

Complete 

238 




SECTION 


data words 


22-*ar-1982 11:35:31 TOPS 

22-Nar-1982 11:32:50 PA:< 



C2MLAD0 ML-11 LOGIC TEST 
LSAU REPORT CODE SECTION 


MACRO Mill 3 30-MAR-82 11:18 PAGE 48 


SEQ 0031 


ML4AD 


0001 

0002 

0003 

0004 

0005 

0006 
0007 
0001 

0009 

0010 
0011 
0012 
0013 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 


MO0ULE ML 4 AD = 
BEGIN 


! PRETTY BLF COMMANDS 

i 

!<BLF /LOWERCASE _KEY> 

i 

! REQUIRE 

i 

XS8TTL 'DECLARATION SECTION' 


require 'BLSMAC.REQ'; 


! CONSTANT LITERALS 

i 

literal 

ONES = io' 177777'. 
ZERO = 0. 

ZEROES = 0. _ 

NUM OF REG = 22. 
FIECDjlZ = 4. 

IMLCSI FUNCTION CODES 

( 

NOOP = 1 

DRV CLR = Xo'11 '. 

RD „IN PRE = Xo'21 *. 
SElRCR = Xo'31 '. 

URT CHK = Xo‘51 ' , 
write = Xo'61 ', 
read * Xo’71'. 


j DELAY ARGUMENTS 

i 

ONE US = 1. 

FRT? US = 40- 
TWO ?H US = 2000. 
ONEISEC =100. 

ONE MS = 10; 


FIELD DECLARATIONS 


field 

WORD MAP = 
set 

REGISTER.ADD 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Bllss-16 V2(212) 
PA : <NE ALE >ML4 AD. 8L I. 4 (1) 


! BLISS INTERFACE MODULE 


! DATA BIT OF ONE 
•DATA PATTERN OF ONES 
!DATA BIT OF ZERO 
!DATA PATTERN OF ZEROES 

•NUMBER OF BLOCKS IN GLOBAL STORAGE 'ML -REG* 
.'FIELD SIZ FOR FIELD DECLARATIONS 'WORD.MAP' 


•NOOP FUNCTION 
•DRIVE CLEAR FUNCTION 
'.READ IN PRESET FUNCTION 
•SEARCH FUNCTION 
•WRITE CHECK FUNCTION 
•WRITE FUNCTION 
•READ FUNCTION 


•ONE MICRO SECOND DELAY 
•FORTY MICRO SECOND DELAY 
•TWO THOUSAND MICRO SECOND DELAY 
!ONE SECOND DELAY 
•ONE MILL SECOND DELAY 


= CO. 0. 16. 03. 


•MAPS GLOBAL STORAGE 'ML.REG* INTO REGISTER PERSONALITIES 
•REGISTERS ADDRESS 


CZMLADO HL-11 LOGIC TEST 
LSAU REPORT CODE SECTION 


G 

MACRO N1H 3 30-NAR-82 11:18 PAGE <.9 


ML 4 AD 


DECLARATION SECTION 


1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 


FORCE.H1 * 
FORCE~LO = 
DONT.fARE 
tes, 

NI8.MAP * 
set 

NI8_0 = CO 
NI8.1 = CO 


Cl, 0, 16. 03, 
C2. 0. 16. 03. 

= c$, 6. 16. oj 


NI8.0 = CO 
NI8.1 = CO 
NIB.2 = CO 
NIB”3 = CO 
NIB” 4 = Cl 
NIB” 5 = Cl 
NI8”6 = Cl 
NIB”7 = Cl 
NIB.8 = C2 
NIB.9 = C2 
tes. 

DT1.FLD = 
set 

E0.5 = CO. 
C0”5 = CO. 
CRt.DATA = 

sgl“data * 

UNC”DATA = 
EE.5ATA = 
A0I5 = Cl. 
P0‘5 = Cl. 
ECfl DATA = 
80.3 = C2, 
tes; 


. 0 . 4 . 03 , 

. 4 , 4 , 03 , 

. 8 . 4 . 03 . 

• i*-/. oj. 

, 0 . 4 , 03 , 

' O* /' Al' 

: ii. 4. oi. 


0, 6. 03. 

6. 6. 03. , 

C6. 13. 1. 03, 
CO. 14. 1. 03. 
CO. 15. 1, 03. 
CO, 0, 16, 03. 
0. 6. 03. 

6. 6. 03. 

Cl. 12. f. 03. 
0, 6, 63 


external 

REGDflP : » jlatfle, 
ONEPAS : volatile. 
INTERVEN : volatile, 
PR SN : volatile. 
ERRTNR : volatile; 

!<BLF/PAGE> 


SEO 0032 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI .4 (1) 


.'REGISTERS FORCED HI BITS 
•REGISTERS FORCED LO BITS 
! REGISTERS IGNORE BITS 


.'NAPS OWN STORAGE NIB.SAVE INTO TEN FOUR BIT NIBBLES 

•NIBBLE 0 BITS <0:3> 

! NIBBLE 1 BITS <4 :7> 

.•NIBBLE 2 BITS <8:11> 

•NIBBLE 3 BITS <12:1 5> 

•NIBBLE 4 BITS <16:19> 

•.NIBBLE 5 BITS <20:23> 

.'NIBBLE 6 BITS <24:27> 

•NIBBLE 7 BITS <28:31> 

! NIBBLE 8 BITS <32:35> 

! NIBBLE 9 BITS <36:39> 


•REGISTER DUMP ON ERROR FLAG 
•DROP UNIT AFTER ONE PASS 

•MANUAL INTERVENTION FLAG 
•PRINT SERIAL NUMBER FUG 
•ENABLE ERROR THRESHOLD FLAG 


CZHLADO *1-11 LOGIC TEST 
LVAU REPORT CODE SECTION 


H 3 
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SEO 0033 


105 

$ 

108 

109 

110 
111 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 


*L4A0 


1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 


DECLARATION SECTION 


! OWN STORAGE 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>*L4A0.0LI.4 (2) 


NIB.SAVE : block C33 field (NIB.MAP) 

HU OR TBL : vector C1273 volatile. 
PT8L PTR : volatile, 

OP NO* ARR : volatile. 


ARR INC 
gooBblk 

PAR DlS 
CHIP SI 2 
LSTjLK 
ARR. 16 : 
LST*ARR 
lOfiUF : 
STR.OFF 
Stack : 

PD TEMP 
W t SIZE 
RAS’INC 

vtJata 

RD DATA 

drive type 

LST.DOT RE6 
REG.INlT.fL6 


A. CXL 

B. CAL 
PlCAL 

A. 6EN 

B. GEN 
P.6EN 
P.CNT 
LlWIT 
DROP.CNT 


volatile. 

: volatile, 
volatile. 

: volatile, 
volatile, 
volatile, 
volatile. 

vector C2>63 volatile, ^ 
vector CIO. byte! volatile 
vector C198. byte! volatile, 
bltvector C163 volatile, 
volatile, 
volatile, 
volatile, 
volatile, 
volatile, 
volatile. 

Initial (0) volatile. 


volatile, 
volatile, 
volatile, 
volatile, 
volatile, 
volatile, 
volatile, 
volatile, 
volatile. 


volatile. 

•STORAGE LOCATION TO SAVE NIBBLE DATA READ DURING DIAG *00 E 

•STORES HARDUARE ORED PRO* DATA DURING PRO* OR FUNC TEST 

! HARDWARE P- TABLE POINTER 

•OPERATORS NUMBER Of ARRAY INPUTTED 

•ARRAY SELECTION INCREMENT VALUE 

!GOOD BLOCK ADRS 

•PARITY DISABLE FLAG 

!*0S RAM CHIP SIZE 

•LAST ADDRESSABLE BLOCK 

•MAX NUMBER Of ARRAY ALLOWED 

•LAST ADDRESSABLE ARRAY 

•INPUT OUTPUT BUffER 

•STACK Off SET STORAGE LOCATION 

! STACK Of 198 BYTE LOCATIONS 

•PROM DATA STORAGE LOCATION DURING DIAG MODES 

•STORES WORD COUNT FOR 16K OR 64K XfERS 

•ROW ADRS STROBE INCREMENT 

•SAVE WRITE DATA DURING REG READ WRITE TEST 

.•SAVE READ DATA DURING REG READ WRITE TEST 

•DRIVE TYPE STORAGE LOCATION 

•LAST ML-11 RE6 INDEX FOR THIS TYPE RH CONTROLLER 

!FLAG TO DETECT DOING REG INIT TEST 

•CALCULATED CRC STORAGE LOCATION 

•CALCULATED CRC STORAGE LOCATION 

! CALCULATED CRC STORAGE LOCATION 

•GENERATED CRC STORAGE LOCATION 

! GENERATED CRC ST0RA6E LOCATION 

•GENERATED CRC STORAGE LOCATION 

•ERROR MESSA6E PRINT COUNTER 

•LIMIT Of ERROR MESSAGES PRINTED 

•COUNTS NUMBER Of PASSES DONE 


!<BLf/NOfORMAT> 


ML REG: blockvector CNUM.OF „RE6.f IELD.SIZ3 f leld(WORD.NAP) 
preset ( 


C0.fORCE.HI3 = Xo' 004000', IMLCS1 


.'ML 11 REGISTERS 

! STRUCTURE TO STORE INDIVIDULA 
•REGISTER PERSONALITIES 
!ie. REGISTER ADDRESSES 
•BITS FORCED HIGH 
!BITS FORCED LOU 
!READ ONLY BITS 


CO. FORCE L03 
C0.D0NT.CARE3 


= Xo'173701', 
= Xo' 160200'. 



CZMLADO HL-1 1 LOGIC TEST 
SAU REPORT COOE SECTION 


SEO 0034 


MACRO mm 
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3 


161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 


;HL4AD 


1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 


29-H*r-1982 16:23:04 

DECLARATION SECTION 29-Har-1982 16:21:03 


£5.FORCE_L03 = 

£5,FORCE”HI3 
C5.DONT.CARE3 = 

Xo’25077* . 

Xo' 01 0600*, 
Xo* 0001 00*, 

IHLDS 

C6.FORCE.L03 

Xo' 01 4620', 

!HLER 

£7,DONT_CARE3 = 

Xo* 177400*, 

!HLAS 

£8,F0RCE_L03 

Xo* 100000*, 

IHLPA 

£10, FORCE L03 = 

£10,D0NT.£ARE3 = 

Xo' 000020’, 
Xo' 177400*, 

!HLMR 

£11,F0RCE.HI3 = 
£1 1, FORCE L03 = 
cii,dont_£are3 = 

Xo’000110*, 
Xo* 177666*. 
Xo'OOOOOT, 

ihldt 

C13,F0RCE.L03 = 

Xo* 140300', 

!HLE1 

E14.F0RCEJ.03 = 

Xo* 100300’, 

!HLE2 

£17, FORCE J.03 = Xo'OIOOOO*, 

£21 ,D0NT CARE 3 = Xo’OOOOOO* 

T volatile. 

!HLEE 

!HLCS2 


REH TBL: vector C63,byte3 
preset ( 

£03 = Xb'000001*, 
Cl J = Xb'000010*, 
C23 = Xb' 000100*, 
£33 = Xb'001000*. 
£43 = Xb'010000*, 
£53 = Xb* 100000*, 
£63 = Xb'000011'. 
£73 = Xb'000110' , 
£83 = Xb'001100' , 
£93 = Xb*011000' f 
£103 = Xb* 110000* 
£113 = Xb* 100011 * 
£123 = Xb*000101* 
£133 = ^'001010* 
£143 = **'010100' 
£153 = Xb* 101000* 
£163 = Xb'010011 ' 
£173 = Xb‘100110* 
£183 = Xb’001111 * 
£193 = Xb’011110* 
£203 = Xb*111100* 
£213 = Zb *111011* 
£223 = Xb* 110101' 
£233 = Xb* 101 001* 


•REMAINDER TABLE 

.'STRUCTURE TO STORE PRECALCULATED 
•CRC REMAINDER VALUES FOR CRC CODE 
•GENERATION 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (2) 



CZMLADO ML-11 LOGIC TEST 
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;ML4AD 


1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 


DECLARATION SECTION 

[243 = lb' 01 0001 * , 

C253 = Xb* 100010*. 

[263 = Xb’OOOIII', 

[273 = Xb'001110', 

[283 = Xb'011 100' . 

[293 = Xb* 11 1000*. 

[303 = Xb’110011*. 

[313 = Xb'100101*. 

[323 = Xb* 001 001'. 

[333 * Xb'010010*. 

[343 « Xb'100100', 

[353 * Xb'001011*. 

[363 = Xb'010110', 

[373 = Xb* 101 100'. 

[383 = Xb’OIIOir, 

[393 = Xb* 110110*, 

[403 = Xb* 101111 * , 

[413 = Xb*01 1101 *, 

[423 = Xb* 111010*. 

[433 = Xb’ 110111* , 

[443 = Zb * 101 101 * , 

[453 = Xb'011001 ' , 

[463 = Xb’110010*. 

[473 = XbMOOlir. 

[483 = Xb’001101 ' , 

[493 = Xb’011010*. 

[503 = Xb’110100*. 

[513 = Zb * 10101 1 * , 

[523 = Xb'010101', 

[533 = Zb * 101010 * , 

C543 = Xb’OIOIII ' , 

[553 = Xb’IOIIIO* , 

[563 - Xb'011111*, 

[573 = Xb* 111110* „ 

[583 = Xb* 1 11111*, 

[593 = Zb* 1 11 101 * , 

[603 = Xb'111001 *, 

[613 = Xb’IIOOOr. 

[623 = Xb’IOOOOI'JvotatUe. 

DT_1:btockvector[5.33 field (DTWLD) 


preset 


[0.EO.53 = Xb*111111'. 
[O.CO'53 = Xb* 100100*, 
[0,CRC_DATA3 - Xb'l ' , 
[0,S6L_DATA3 = Xb'l*, 
[O.UNC“DATA3 = Xb*0* - 
C0.A0.53 = Xb' 000000*. 
[O.PO‘53 = Xb ' 1 1 1 1 1 1 ' . 
[0,EC« DATA3 = Xb*0' 
[0,80 33 = Xb* 000000*. 
Cl, EO 53 = Xb'111111 '. 


SEO 0035 


29-Mar-1982 16:23:04 TOPS-20 Btiss-16 V2(212> 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (2) 


•DATA TABLE 1 

•STRUCTURE TO STORE TEST DATA 

•FOR TEST 56 *ECC ERROR LOCATION TEST* 



SEO 0036 


29-War- 1982 16:23:04 TOPS-20 Bliss-16 V2(21 2) 
29-Mar- 1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (2) 


!RH CONTROLLER BASE ADDRESS 
•RH CONTROLLER TYPE 
•RH CONTROLLER VECTOR ADDRESS 
•ML LOGICAL UNIT NO. 

•ML DRIVE NUMBER 


CZMLADO ML-11 LOGIC TEST 
LSAU report code section 


MACRO HU 13 30-MAA-82 11:18 PAGE 


ML 4 AD 


1791 

1792 

1793 
M 1794 

1795 
M 1796 
1797 
M 1798 
1799 
M 1800 
1801 
M 1802 
1803 
M 1804 
1805 
M 1806 
1807 
M 1808 
1809 
M 1810 
1811 
M 1812 
1813 
M 1814 
1815 
M 1816 
1817 
M 1818 
1819 
M 1820 
1821 
M 1822 
1823 
M 1824 
1825 
M 1826 
1827 
M 1828 
1829 
M 1830 
1831 
H 1832 
1833 
M 1834 
1835 


DECLARATION SECTION 


1784 ! 

1785 EQUALS; 


1786 ! 

1787 ! MAC 

1788 ! 

1789 

1790 macro 


MACRO DEFINITIONS 


REGISTER NAMES: 

MLCS1 = 

.ML.REG C0.REGISTER_ADD3X, 
Blwc = 

.ML REG C1.REGISTER.ADD3X, 
Mlba = 

.ML REG C2.REGISTER.ADD3X, 
Blda = 

.ML REG C3.REGISTER.ADDJX. 
BLCS2 = 

.ML REG C4.REGISTER.ADD3X, 
BLDS = 

.ML_REG C5,REGISTER_ADDJX, 

Bler = 

.ML REG C6,REGI$TER_ADDJX. 
Bias = 

.ML REG C7,REGISTERJU>DJX, 
BLLA = 

.ML REG C8.REGISTER.ADDJX, 

Mlpa = 

.ML REG C8.REGISTER.ADD3X, 
Bldb = 

.ML REG C9.REGISTER.ADD3X. 

Blmr = 

.ML REG C10.REGISTER.ADD3X, 
BLDT = 

.ML REG C11.REGISTER.ADD3X. 
BLSN = 

.ML REG C12,REGISTER_ADD3X, 
BLE1 = 

.ML REG C13,REGISTER„ADD3X, 
BLE2 = 

.ML REG C14,REGISTER_ADD3X, 
Bldi = 

.ML REG C15.REGISTER.ADD3X. 
BLD2 = 

.ML REG C16.REGISTER.ADD3X, 
BLEE = 

.ML REG C17,REGISTER_ADD3X. 
BLEL = 

.ML REG C18.REGISTER.ADD3X. 
BLPD = 

.ML.REG C19.REGISTER.ADD3X, 


SEQ 0037 


29-Mar-1982 16:23:04 TOPS-20 BUss-16 V2(212> 
29-Mar-1982 16:21:03 PA :<NE ALE >ML4 AD. 8L1 .4 (3) 


2 CONTROL AND STATUS REGISTER 1 
2UORD COUNT REGISTER 
2 UNIBUS ADDRESS REGISTER 
2 DESIRED ADDRESS REGISTER 
2 CONTROL AND STATUS REGISTER 2 
2 DRIVE STATUS REGISTER 
2 ERROR REGISTER 
2ATTENTI0N SUMMARY REGISTER 
2 LOOK AHEAD REGISTER 
2PR0M ADDRESS REGISTER 
•DATA BUFFER REGISTER 
{MAINTENANCE REGISTER 
•DRIVE TYPE REGISTER 
.•SERIAL NUMBER REGISTER 
2 ECC CRC WORD REGISTER 1 
2 ECC CRC WORD REGISTER 2 
•DATA DIAGNOSTIC REGISTER 1 
•DATA DIAGNOSTIC REGISTER 2 
2 ECC ERROR REGISTER 
2 ECC ERROR LCOATION REGISTER 
2 PROM DATA REGISTER 


CZMLADO HL-11 LOGIC TEST 
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SEQ 0038 


380 ;ML4AD 

381 ; 


DECLARATION SECTION 

M 1836 ML8AE = 

1837 .ML REG C20,REGISTER_ADD:JX, 
M 1838 MLCS3 = 

1839 .ML REG C21 ,REGISTER_ADDJX. 

1840 ! 

1841 ! BIT ASSIGNMENTS: 

1842 ! 

M 1843 SC = 

1844 <MLCS1X15,1>X. 

M 1845 TRE = 

1846 <MLCS1X14,1>X, 

M 1847 MCPE = , 

1848 <MLCS1X13.1>X, 

M 1849 DVA = 

1850 (MLCS1X11 ,1>X, 

M 1851 RDV = 

1852 (MLCS1X7,1>X, 

M 1853 IE = 

1854 (MLCS1X6,1>X. 

M 1855 GO = 

1856 <MLCS1X0,1>X, 

M 1857 MLFUNC = 

1858 <MLCS1X0.6>X, 

M 1859 DLT = 

1860 (MLCS2X15,1>X, 

M 1861 WCE = 

1862 <MLCS2X14,1>X, 

M 1863 PE = 

1864 (MLCS2X13,1>X. 

M 1865 NED = 

1866 (MLCS2X12,1>X, 

M 1867 NEW = 

1868 (MLCS2X11 ,1>X, 

M 1869 PGE = 

1870 <MLCS2X10.1>X, 

M 1871 MXF = 

1872 <MLCS2X9.1>X, 

M 1873 HOPE = 

1874 <MLCS2X8.1>X. 

M 1875 ORDT = 

1876 <MLCS2X7,1>X, 

M 1877 IRDY = 

1878 (MLC$2X6,1>X, 

M 1879 CLR = 

1880 <MLCS2X5.1>X, 

M 1881 PAT = 

1882 (MLCS2X4,1>X. 

M 1883 BAI = 

1884 <MLCS2X3,1>X, 

M 1885 DRV NUM = 

1886 (MLCS27<0,3>X, 

M 1887 ATTN = 


29-M«r-1982 16:23:04 
29-Mir-1982 16:21:03 


TOPS-20 Btiss-16 V2<212) 
PA:<NEALE>ML4AD.6LI.4 (3> 


!BUS ADDRESS EXTENSION REGISTER 
.'CONTROL AND STATUS REGISTER 3 


JMLCS1 BIT ASSIGNMENTS 


IMLCS2 BIT ASSIGNMENTS 



SEQ 0039 


29-Mar-1982 16:23:04 TOPS-20 Btiss-16 V2(212) 
29-Mar-1982 16:21:03 PA:<NEALE>HL4AD.BLI.4 (3) 

iMLDS 81 T ASSIGNMENTS 


JMLER BIT ASSIGNMENTS 


!MLMR BIT ASSIGNMENTS 


CZHLADO ML- 11 L06IC TEST 
LSAU REPORT CODE SECTION 


MACRO H1113 30-MAR-82 11:1 


;ML4AD 


*940 
M 1941 
1942 
M 1943 
1944 
M 1945 
M 1946 
1947 
M 1948 
1949 
M 1950 
M 1951 
1952 
M 1953 
1954 
M 1955 
1956 
M 1957 
1958 
M 1959 
1960 
M 1961 

1962 

1963 

1964 

1965 
M 1966 

1967 
H 1968 
1969 
M 1970 
1971 
M 1972 
1973 
H 1974 
M 1975 
1976 
M 1977 
M 1978 
1979 
M 1980 
M 1981 
1982 
H 1983 
M 1984 
1985 
M 1986 
M 1987 
1988 
M 1989 
M 1990 
1991 


DECLARATION SECTION 

<MLMRX1,1>X. 

ECCDM = 

<MLMR7<0,1>X, 

DRV TYP = 

(MLDT7<0,1>X, 

CRC.A = 

<MLE1X0,6>X, 

PAR CRC.WRD = 

(MLE1X8,6*X, 

CRC.8 = 

(MLE2X0,6>X, 

UNC ERR = 

<MLEE7<15,1>X, 

SGL ERR = 

(NLEE7<14,1>X. 

CRC ERR = 

(MLEET<13,1>X, 

BIT IN ERR = 

<MLEE)*0.5>X, 

CHAN IN ERR = 

(MLEEX5,6*X, 

I 

j MISCELLANEOUS MACRO DEFINITIONS: 

i 

SN3 = 

<MLSNX12,4>X, 

SN2 = 

(ML$NX8,4>X, 

SN1 = 

(MLSNX4,4>X, 

SNO : 

(MLSNX0,4>X, 

IS.SET = 

eqt IX, 

IS.NOT.SET = 

eql OX, 

HI = 

ML REGC. index, FORCE.HIJX, 

~LO = 

ML REGC. index, F0RCE.L03X, 

IGNORE = 

ML REGC. index, D0NT.CARE3X, 
MLE2.MASK = 

ML_REGC14,D0NT_CARE3X, 


SEO 0040 
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29-Mar-1982 16:23:04 TOPS-20 Btiss-16 V2(212J 
29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (3) 


!MLDT BIT ASSIGNMENTS 
!MLE1 BIT ASSIGNMENTS 

!MLE2 BIT ASSIGNMENTS 

.'MLEE BIT ASSIGNMENTS 


‘TEST IF BIT IS EQUAL 1 
'.TEST IF BIT IS EQUAL 0 

‘READS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE 
'.READS REGISTERS FORCED LO BITS FROM PERSONALITY TA8LE 
'READS REGISTERS DONT.CARE BITS FROM PERSONALITY TABLE 
'.READS MLE2 DONT CARE MASK EITHER DATA DIAG OR ECC CIE REG 


CZMLADO ML— 1 1 LOGIC TEST 
LSAU REPORT CODE SECTION 


MACRO Ml 113 30-MAR-82 11:18 PAGE 58 


SEO 0041 


ML4A0 


DECLARATION SECTION 


29-Mar-1982 16:23:04 
29-^ar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212) 
PA:<NEALE>ML4AD.BLI.4 (!) 


M 1992 
M 1993 

1994 
M 1995 
M 1996 

1997 

1998 

1999 

2000 

2001 

2002 

M 2003 
M 2004 
M 2005 
M 2006 

2007 
M 2003 
M 2009 
M 2010 
H 2011 

2012 
M 2013 
M 2014 
M 2015 
M 2016 

2017 

2018 

2019 

2020 
M 2021 

2022 
M 2023 
M 2024 
M 2025 
M 2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 


yOT MASK s 

- ‘GENERATE MASK DATA PATTERN USING REGISTER FORCE LO, HI AND IGNORE B 

.IGNORE or ((not .LO) and (.HI or .TST.PAT))!, 
f | p MRllS = 

U * ‘CLEAR MASS BUS RESTORE DRIVE NUMBER 

CLR = ONE; DRV NUM = .ML DUTX. 

!<8LF /SYNONYM iS.SET = EQC 1 * > 

!<8LF /SYNONYM IS.NOT.SET = EQL 0 * > 

• 

I DIAGNOSTIC DATA REGISTER MACROS 


RD 1 NG URD s 

•READ DATA D1AG REGS INTO BIND LOCATIONS 

D1 TEMP = .MLD1; 

D2"TEMP = .MLD2: 

E2 TEMP = .MLE2X, 

UmT LNG URD * 

- - " ! LOADS DATA DIAG REG WITH CONTENTS OF BIND LOCATIONS 

MLD1 = .D1.TEMP; 

MLD2 = .D2.TEMP; 

MLE2 = .E2 TEMP!, 

T f MC A||T | QQp w 

* " !WAIT LOOP DIRING HASS BUS TRANSFER 

do 

0 

until .DRY;!, 

i 

! ERROR PRINTING THRESHOLD MACROS 

» 

CLR THRESHOLD = 

P.CNT = ZERO;!, 

CMP THRESHOLD = 

P.CNT = .P.CNT ♦ 1; 

if .P.CNT gtr .LIMIT 
then ex it loop;!; 


BIND DECLARATIONS 


MANUAL INTERVENTION TEST ERROR AND OPERATOR MOMPT MESSAGES. 
TESTS 21 'POWER FAIL TEST' AND TEST 61 'BATTERY BACK-UP TEST' 


BREAKER OFF'). 


T 21 = t*lit (Xasciz'********* MANUAL INTERVENTION TEST 21 POWER FAIL *********') 
T61 * Slit (Xasciz'********* MANUAL INTERVENTION TEST 61 BATTERY BACK-UP ******’ 
PQR OFF = uplit (Xasciz 'WITH BATTERY BACK-UP ON TURN BOX AC CIRCUIT BREAKER OFF’) 
PvJroN * uplit (Xasciz 'WITH BATTERY BACK-UP OFF TURN BOX AC CIRCUIT BREAKER ON'). 
UNS'ERR = Uplit (Xasciz'UNS BIT NOT SET DURING AC POWER FAIL'). 

VVJ90T.SET a uplit (Xasciz'VV 8IT NOT SET AFTER RD.IN.PRESET FUNCTION ). 


C 2 ML ADO *1-11 LOGIC TEST 
LWU REPORT CODE SECTION 


MACRO *1113 30-MAR-82 11:18 


D 4 
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SEQ 0042 


604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 


*L4AD 


DECLARATION SECTION 


?9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V21212) 

?9-Mar-1982 16:21:03 PA:<NEALE>*L4AD.8LI .4 (3) 


2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 
2063 
2C64 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 


VV CLEAR = uplit (Zasciz’VV BIT CLEARED AFTER RD-IN-PRESET FUNCTION’), 

NO JNI T = uplit (Zasciz 'MEMORY NOT INITIALLED AFTER POWER UP WITH BAD BATTERY BACK-UP’), 
*B“D1S ERA = uplit (Zasciz 'REGISTERS NOT CLEARED BY MB.DIS AFTER POWER FAIL’), 



BAD BATTERY BACK-UP’). 
CIRCUIT BREAKER ON’), 


9V ERR = uplit (Zasciz'VV BIT CLEARED AFTER POWER FAIL WITH GOOD BATTERY BACK-UP’), 
“INIT ERR * uplit (Zasciz ’MEMORY UNITED AFTER POWER FAIL WITH GOOD BATTERY BACK-UP'), 
’88 ERR * uplit (Zasciz ’BATTERY BACK-UP FAILED TO MAINTAIN MEMORY INTEGRITY DURING PO 


POWER FAIL’), 


ERROR DATA MAPPING FORMATS 


FMT 1 = 
FMT 2 = 
FMT 3 = 
FMT.4 = 
FMT.5 = 
FMT.6 = 
FMT.7 = 
FMT 8 = 
FMT.9 = 
FMT JO 

fmOi 

FMT 12 
FMT 13 
FMT 14 
FML15 
FMTJ6 
FMT"17 
FMT 18 
FMTJ9 
FMT 20 
FMT 21 
FMT.22 
FMT”23 
FMT.24 
FMT’25 
FMT.26 


uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
- uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 
= uplit 


(Zasciz'ZAEXPECTED: Z06ZA READ: Z06ZNZN’), ^ ^ 

(Zasciz'ZAGOOD DATA: Z06ZA BAD DATA: Z06ZA XOR: Z06ZNZN'), 
(Zasciz’ZADRIVE SN: Z06ZNZN'), _ 

(Zasciz’ZA600D^NIB^DATA:*Z02ZA 'BAD NIB DATA: Z02ZA NIB POS: Z04ZNZN’), 
(Zasciz’ZANIB IN ERROR: ZD4ZNZN’). 

(Zasciz’ZAFAILED AT: Z06ZNZN’), 

(Zasciz’ZAREPLACE ARR MOD: ZD2ZNZN*), 

(Zasciz’ZAFAILED AT DSA: Z06ZNZN’), ^ 

(Zasciz’ZABIT<15:10>: ZB6ZA 8lf<9:0>: ZB10ZNZN’), 

(Zasciz’ZAFAJLING REG ADRS: Z06ZNZN’), 

(Zasciz’ZAFAILING FUNC: Z06ZNZN*), , . „ 

(Zasciz* ZAOFF SET CNT FOR NIB : Id2 ZA - ZD2 ZNZN’), 

(Zasciz'ZA WROTE: XD2ZA READ: ZD2ZNZN’), 

(Zasciz' ZANI8BLES XFERED BEFORE ERROR: ZD3ZN'), _ _ 

(Zasciz 'ZAFAIIJN6 REG: Z06ZA GOOD DATA: Z06ZA BAD DATA: Z06ZNZN'), 
(Zasciz'ZNZADIAGNOSING UNIT Z01ZNZN'), „ _ 

(Zasciz 'ZATIMED OUT DURING MBUS Z02ZA FUNCXNXN, 

(Zasciz 'ZACRC GEN * B: Z86ZA A: ZB6ZA P: Z86ZN') ( 

(Zasciz'ZACRC CAL = B: ZB6ZA A: ZB6ZA P: ZB6ZNZN*). 

(Zasciz'ZAFAILED AT PLOG: ZD2ZA CHANNEL: ZD2ZNZN’), 

(Zasciz ’ZAFAJLED AT WRD: ZD2ZA BIT: ZD2ZNZN ), 

(Zasc iz'ZARE6ISTERZS3ZAADDRESSZS7ZAC0NTENTSZNiN’ ) , 

(Zasciz* ZSZTZS5Z06ZS4Z016ZN* ) , 

(Zasciz'ZS4ZTZA:ZSZ06ZN*>, 

( Zasc i z ' ZS4ZTZA : ZSZD1 ZD1 Z6l ZD1 ZN ) , 


ERROR MESSAGE MAPPING FORMATS 


ONE jFMT 
TWO FMT 
THR FMT 
FOR’FMT 
FI V FMT 
SIX FMT 
SEV’FMT 
EIG’FMT 

nifTfmt 

TEN FMT 


uplit 
uplit 
Uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
upl it 
uplit 


(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 

(Zasciz 


'ZTZN ) , 

•ZTZTZN 1 ). 

’ZTXTZTZN 1 ), 

•ZTZTZTZTZN 1 ). 

•ZTZTZTZTZTZN , ) f 

•ZTZTZTZTZTZTZN 1 ), 

*ZTZTZTZTZTZTZTZN*) f 

•ZTZTZTZTZTZTZTZTZN 1 ). 

'ZTZTZTZTZTZTZTZTZTZN* ) f 

’ZTZTZTZTZTZTZTZTZTZTZN*), 



CZHLADO HL-11 LOGIC TEST 
ISAU REPORT CODE SECTION 


MACRO Ml 113 30-HAA-82 11:18 
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NL4AD 


DECLARATION SECTION 


?9-Har-1982 16:23:04 
?9-Nar-1982 16:21:03 


2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 


ELV.FNT s uplit (XascIz'XTXTXTXTXTXTXTXTXTXTXTXN'), 
DIAGNOSTIC VOCABULARY 


WORDS 


WRD.1 = 

WRD.2 = 

WRD.3 = 

WRD 4 = 

WRD.5 = 

WRDI6 * 

WRD“7 = 

WRD”8 = 

WRD.9 = 

WRD 10 

WRD”11 

WRD.1 2 

WRDI13 

WRD* 14 

WRD.1 5 

WRD.1 6 

WRD.1 7 

WRD.1 8 

WRD 19 

WRD.20 

WRD. 21 

WRD.22 

WRD.23 

WRD.24 

WRD.25 

WRD.26 

WRD 27 

WRD.29 

WRD.30 

WRD“31 

WRD ”32 

WRD“33 

WRD.34 

WRD.35 

WRD“36 

WRD”37 

WRD“38 

WRD“39 

WRD.40 

WRD“41 

WRD.42 

WRD>3 

WRD“44 

WRD 45 

WRD“46 


uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 


(Xasciz' 

(Xasciz' 

(Xasciz 1 

(Xasciz* 

(Xasciz' 

(Xasciz' 

(Xasciz* 

(Xasciz* 

(Xasciz' 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 


GO'), 

DRV.RDV') , 
ILF T ). 

0 PI'). 

BAD'), 

GOOD 1 ), 

PARITY NOT’), 

GENERATED'), 

DETECTED'), 

' ERROR'), 

' AFTER'), 

' DURING'), 

' AT') 

' FAILURE'). 

' ATA'). 

' ATTN'). 

* WRITING'). 

' W). 

' FUNC*). 

* T RE'). 

* RNR*), 


* EXCESSIVE'), 

' MBUS*), 

' DATA'). 

' CONTINUITY*), 
' AOS'), 

' LBT'K 
' PRENATURLY'). 
' IAE*), 

' INCREMENT 1 ). 

' WITH'). 

' UV*). 

' UNS'J. 

' PRCN'J, 

' OR*). 

* SELECT*). 

' RE6'), 

' UNIQUE'), 

' 14'), 

' NIBBLE CNT ' ) , 
' GTR'). 

' WHILE 1 ). 

' TRE*), 

' INITIAL'). 

' OFFSET'), 


SEO 0043 

TOPS-20 Bliss-16 V2(212) 

PA : <NE ALE>ML4AD ,8L I . 4 (3) 


CZMLADO ML-11 LOGIC TEST 
L$AU REPORT COOE SECTION 


MACRO Ml 1 13 30-NAR-82 11:18 


SEQ 0044 


716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 


ML4A0 


f 4 
PAGE 61 


DECLARATION SECTION 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


2U8 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2 1 59 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 


WRD 47 
WRD 48 
WRD 49 
WRD, 50 
WRDI51 
WRD 52 
WRD 53 
WRD.54 
WRD.55 
WRD.56 
WRD 57 
WRD 58 
WRD 59 
WRD.60 
WRD. 61 
WRD.62 
WRD 63 
WRDI64 
WRD.65 
WRD.67 
WRD .68 
WRD 69 
WRD 70 
WRD”71 
WRD.72 
WRD.73 
WRD.74 
WRD. 75 
WRD 76 
WRD_77 


uplit 

uplit 

uplit 

upllt 

upllt 

upllt 

uplit 

upllt 

uplit 

upllt 

upllt 

upllt 

uplit 

upllt 

upllt 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 


(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 

(Xasci 


• COUNT'). 

' DELAY'). 

' TESTS’). 

' APRS'), 

' COUNTER’). 

’ RE6'). 

» TESTED’). 

' NIBBLE'). 

’ ALL’). 

' TEST') . 

’ XFERED*). 

’ NIBBLES'). 

SC'). 

MULTIPLEXER'), 
UNEXPECTED’). 
NED'). 

ILR’). 

CRC*) , 

S6L ' ) , 

' ECH'). 

’UNO. 

BIT'), 

CHANNEL'). 
LATCH’). 

DC*'). 

B US’). 

SYNDRONE ' ) , 
DECODE*). 

NOT*). 

UNCORRECTABLE'). 


PHRASES 


PHR 1 = 
PHRl 2 - 
PHR 3 * 
PHR’4 = 
PWT5 = 
PHR“v = 
PHR 7 = 
PHR 8 • 
PHR 9 = 
PHR 10 
PHR.M 
PHR. 12 
PHR 13 
PHR 14 
PHR” 15 


uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 


(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 


BIT NOT SET'). 

BIT NOT CLR* ) , 

NO RESPONCE AFTER 1.5 US’), 
DATA ERRORS'). 

81 T SET*). 

BIT CLR*), 

OF OTHER DRIVES’). 

CLASS A'), 

CUSS 8'). 

* TO FIND*), 

' NOT UTCHED*). 

* SINGLE BIT ERROR*) 


MULTIPLE BIT ERROR 


t 


•SERIAL 


REGISTER 

#’). 


DUMP’). 


FUNCTIONS 


FNC.1 = uplit (Xasciz* MEM SI2IN6'). 


T0PS-20 Bliss-16 V2<212) 
PA : <NE ALE >ML4 AD. 8L I. 4 (3) 


CZMLADO ML-11 LOGIC TEST 
LSAU REPORT CODE SECTION 


SEQ 0045 
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772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 


ML4AD 


DECLARATION SECTION 


29-Mar-198? 16:23:04 
29-Mar- 1982 16:21:03 


2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 


FNC 2 
FNC 3 
FNC.4 
FNC.5 
FNC .6 
FNC 7 
FNC .8 
FNC.9 - 
FNC.10 
FNC 11 
FNC 12 
FNC 13 
FNC”14 

fnO!5 
FNCJ 6 
FNC 17 
FNC 18 
FNC 19 
FNCI21 
FNC.22 
FNC 23 


uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 

uplit 


(Xasciz' 

(Xasciz’ 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz* 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 


NOOP*), 

DRV), 

WRITE CHECK*), 
WRITE*), 

READ’), 

CLEAR*), 

COMP ERROR*), 

SYS CLR*), 
SEARCH*), 
READ-IN-PRESET*), 
ILLEGAL*), 
ABORT'), 

ARR RD WRT’) , 

GOOD BDC'), 

REFRESH*), 

ARRAY'). 

RAM-BUS*). 

OVERFLOW*), 

CHPC SUM*), 

LAST 8LK'), 
INITIALIZE*), 


! REGISTERS 


RE6.1 = 
REG.2 = 
REG.3 = 
REG.4 s 
REG.5 * 
REG.6 = 
REG.7 = 
REG.8 3 
REG 9 3 
REG 10 
REG.11 
REG.12 
REGJ3 
REG.14 
REG. 15 
REG.16 
REG.17 
REGJ8 
REG119 
REG.20 
REG_21 


uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
3 uplit 
= uplit 
= uplit 
= uplit 
3 uplit 
3 uplit 
= uplit 
= uplit 
3 uplit 
3 uplit 
= uplit 
= uplit 


(Xasciz' 

(Xasciz' 

(Xasciz* 

(Xasciz* 

(Xasciz' 

(Xasciz' 

(Xasciz* 

(Xasciz' 

(Xasciz* 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 

(Xasciz 


MLCS1 ') . 
NLDS'), 
MLER'), 
MLMR') , 
MLAS*). 
MLDA*), 
MLDT*) , 
PUPA*) , 
HLSN'). 

* MLE1'), 

* PHE2 ), 

* MIDI*), 

* MLD2'). 

* MLEE'), 

* MIEL*), 

* MLPD*), 

' MLCS2*5, 
' MLWC'), 

' ML8 A'), 

' MLBAl*), 

* MLCS3') , 


• MODULES IN ERROR MESSAGES 

i 

ASYNC = uplit (Xssciz 'ASYNCHRONOUS FAILURE MODULE 7361 ') . 
SYNC = uplit (Xasciz 'SYNCHRONOUS FAILURE MODULE 7362 *>- 
ARR DAT = uplit (Xasciz ’ARRAY DATA FAILURE MODULE 7363 *), 
MEM’ARR = uplit (Xasc iz 'MEMORY ARRAY FAILURE MODULE 7357'), 


T0PS-20 BHss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (3) 
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828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 


ML4AD 


DECLARATION SECTION 


>9-M«r-198< 

>9-M»r-198< 


16:23:04 

16:21:03 


llll 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 


INTER = upUt (t»sclz* INTERMEDIATE DIAGNOSTIC MESSAGE ), 

DATA LATt = upUt <Iisc1z*DATA LATE ERROR DURING TRANSFER ) ♦ 

SC SET * upltt (Xisdz'SC BIT SET DURING TRANSFER ), 

TRflLE LOOR = upUt (Stsclz 'TROUBLE SHOOT LOOP ERRORS'), 

RH ERROR = up lit (XascIz'RH CONTROLLER ERRORS'), 

TlME.OUT = uplit (Xisciz'DRIVE HUNG AFTER MASS 6us TRANSFER'), 

DATA DIAGNOSTIC REGISTER SAVE LOCATIONS 

D1.TEMP * NI8.SAVE, ^ 

D2ITEMP = NI8.SAVE Cl, 0, 16, 03, 

E2ITEMP = NIB.SAVE C2, 0, 16, 03; 

XSBTTL 'ROUTINE DECLARATION SECTION' 


TOPS-20 8lHs-16 V2(2 12) 
PA:<N£ALE>ML4AD.8LI.4 (3) 



CZMLADO ML-11 LOGIC TEST 

I 4 
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L JAU REPORT CODE SECTION 



SEQ 0047 

847 

;NL4AD 


29-Mar-1982 

29-Har-1982 

16:23:04 

TOPS-20 Bliss-16 V2(2 12) 

848 

; 

routine declaration section 

16:21:03 

PA : <NE AL E>ML4 AD. 8L I. 4 (4) 

549 






850 

2267 

routine LOAD STACK (STK_PTR, NI8.PTR) : novalue 

S 



851 

2268 

begin 




852 

2269 




853 

2270 

! ♦♦ 




854 

2271 

• FUNCTIONAL DESCRIPTION: 




855 

2272 

! LOAD STACK TAKES GOOD NIBBLE DATA 




856 

2273 

! FOUND IN THE STRUCTURE 'NIB SAVE* 




857 

2274 

! AND STORES IT INTO THE STRUCTURE 




858 

2275 

! * STACK* REWRITING ANY BAD NIBBLE 




859 

2276 

! 'STACK* LOCATIONS WITH GOOD NIBBLE 




860 

2277 

* DATA 




861 

2278 





862 

2279 

! FORMAL PARAMETERS: 




863 

2280 

i STK PTR 




864 

2281 

! ” POINTS TO PRESENT DEPTH OF THE 

! 'STACK* WHERE PRESENT GOOD NIBBLE 




865 

2282 




866 

2283 

! DATA IS TO BE STORED. 




867 

2284 





868 

2285 

• NIB PTR 




869 

2286 

! POINTS TO CURRENT NIBBLE POSITION BEING 



i 

870 

2287 

1 MANIPULATED. 



i 

871 

2288 





872 

2289 

! IMPLICIT INPUTS: 




873 

2290 

! STACK 




874 

2291 

i VECTOR OF 198 BYTE LOCATIONS WHERE 




875 

2292 

! GOOD NIBBLE DATA IS STORED 




876 

2293 

• DURING DIAGNOSTIC MODE READS. AFTER 

! BAD NIBBLE LOCATIONS HAVE BEEN 




877 

2294 




878 

2295 

! STRIPPED AWAY. 




879 

2296 






2297 

! STK OFF 




88 1 

2298 





882 

2299 

! vector of 9 byte LOCATIONS WHICH 

! STORES AWAY A BAD NIBBLE OFF SET 




883 

2300 




884 

2301 

! COUNT FOR EACH NIBBLE POSITION 




885 

2302 





886 

2303 

! NIB.SAVE 




887 

2304 

! BLOCK OF 3 WORDS TO STORE THE 




888 

2305 

• DATA FOUND IN MLD1 , MLD2 AND 




889 

2306 

! HLE2 AFTER A DIAGNOSTIC NODE READ. 




890 

2307 





2308 

! IMPLICIT OUTPUTS: 




892 

2309 

! * STACK* LOADED WITH GOOD NIBBLE 




893 

2310 

! DATA 




894 

2311 





895 

2312 

CONPLETETION CODES: NONE 




896 

2313 





897 

2314 

« SIDE EFFECTS: NONE 




898 

2315 




899 

2316 

! — 




900 

2317 




1 

901 

2318 

case .NIB.PTR trow 0 to 9 of 

! SELECT NIBBLE DATA TO BE LOADED INTO THE STACK 






J 



SEQ 0046 


J 4 

11:18 PAGE 65 


2 9-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 8H$s-16 V2C212) 
PA : <NE ALE >ML4AD .BL 1 . 4 (4) 


(.STIC OFF C.NIB_PTR3))3 = .NIB SAVE CNI8 .03; 

JLOAD NIBBLE DATA 0 INTO SELECTED STACK LOCATION 

(.STK OFF C.NIB_PTR3>>3 = .NIB SAVE CNIB 13; 

•LOAD NIBBLE DATA 1 INTO SELECTED STACK LOCATION 

(.STK OFF C.NIB PTR3>>3 = .NIB.SAVE CNIB.23; 

JLOAD NIBBLE DATA 2 INTO SELECTED STACK LOCATION 

(.STK OFF C.NIB.PTR3))3 = .NIB SAVE CNIB 33; 

JLOAD NIBBLE DATA 3 INTO SELECTED STACK LOCATION 

(.STK OFF C.NIB_PTR3>>3 = .NIB.SAVE CNIB 43; 

JLOAD NIBBLE DATA 4 INTO SELECTED STACK LOCATION 

(.STK OFF C.NIB PTR3))3 * .NIB.SAVE CNIB.53; 

JLOAD NIBBLE DATA 5 INTO SELECTED STACK LOCATION 

(.STK OFF C.NIB_PTR3>)3 = .NIB.SAVE CNIB.63; 

JLOAD NIBBLE DATA 6 INTO SELECTED STACK LOCATION 

(.STK OFF C.NI8_PTR3)>3 = .NIB.SAVE CNIB.73; 

JLOAD NIBBLE DATA 7 INTO SELECTED STACK LOCATION 

(.STK OFF t.NI8J>TR3)>3 = .NI8 SAVE CNI8.83; 

JLOAD NIBBLE DATA 8 INTO SELECTED STACK LOCATION 


(.STK OFF C.NIB PTR3>>3 = .NIB.SAVE CNIB .93; 

* JLOAD NIBBLE DATA 9 INTO SELECTED STACK LOCATION 


r 
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LSAU REPORT CODE 

SECTION 






SEO 0049 

95 7 




; Hi 4 AD 


29-Har-1982 

16:23:04 TOPS 

956 






ROUTINE DECLARATION SECTION 29-Har-1982 

16:21:03 PA : < 

959 








960 004716 

052 

052 

052 

P.AAA: 

.ASCII 

/***/ 


961 004721 

052 

052 

052 


.ASCII 

/***/ 


962 004724 

052 

052 

052 


.ASCII 

/***/ 


963 004727 

040 

115 

101 


.ASCII 

/ HA/ 


964 004732 

116 

125 

101 


.ASCII 

/NUA/ 


1 965 004735 

114 

040 

111 


.ASCII 

/L 1/ 


966 004740 

116 

124 

105 


.ASCII 

/NTE/ 


967 004743 

122 

126 

105 


.ASCII 

/RVE/ 


968 004746 

116 

124 

111 


.ASCII 

/Nil/ 


969 004751 

117 

116 

040 


.ASCII 

/ON / 


970 004754 

124 

105 

123 


.ASCII 

ms/ 


971 004757 

124 

040 

062 


.ASCII 

H 2/ 


972 004762 

061 

040 

120 


.ASCII 

/I P/ 


973 004765 

117 

127 

105 


.ASCII 

/OWE/ 


974 004770 

122 

040 

106 


.ASCII 

/R F/ 


975 004773 

101 

111 

114 


.ASCII 

/AIL/ 


976 004776 

040 

052 

052 


.ASCII 

/ **/ 


977 005001 

052 

052 

052 


.ASCII 

/***/ 


978 005004 

052 

052 

052 


.ASCII 

/***/ 


979 005007 

052 

000 

000 


.ASCII 

/*/<00><00> 


980 005012 

052 

052 

052 

P.AAB: 

.ASCII 

/***/ 


981 005015 

052 

052 

052 


.ASCII 

/***/ 


982 005020 

052 

052 

052 


.ASCII 

/***/ 


983 005023 

040 

115 

101 


.ASCII 

/ HA/ 


984 005026 

116 

125 

101 


.ASCII 

/NUA/ 

| 

985 005031 

114 

040 

111 


.ASCII 

/L 1/ 

i 

986 005034 

116 

124 

105 


.ASCII 

/NTE/ 


987 005037 

122 

126 

105 


.ASCII 

/RVE/ 


968 005042 

116 

124 

111 


.ASCII 

/Nil/ 


989 005045 

117 

116 

040 


.ASCII 

/ON / 


990 005050 

124 

105 

123 


.ASCII 

/TES/ 


991 005053 

124 

040 

066 


.ASCII 

/T 6/ 


992 005056 

061 

040 

102 


.ASCII 

/I 8/ 


993 005061 

101 

124 

124 


.ASCII 

/ATT/ 


994 005064 

105 

122 

131 


.ASCII 

/ERY/ 


995 005067 

040 

102 

101 


.ASCII 

/ BA/ 


996 005072 

103 

113 

055 


.ASCII 

/CK-/ 


997 005075 

125 

120 

040 


.ASCII 

/UP / 


998 005100 

052 

052 

052 


.ASCII 

/***/ 


999 005103 

052 

052 

052 


.ASCII 

/***/ 


1000 005106 

052 

052 

052 


.ASCII 

/***/ 


1001 005111 

000 




.ASCII 

<00> 


1002 005112 

127 

111 

124 

P.AAC: 

.ASCII 

/WIT/ 


1003 005115 

110 

040 

102 


.ASCII 

/H 0/ 


1004 005120 

101 

124 

124 


.ASCII 

/ATT/ 


1005 005123 

105 

122 

131 


.ASCII 

/ERY/ 


1006 005126 

040 

102 

101 


.ASCII 

/ BA/ 


1007 005131 

103 

113 

055 


.ASCII 

/«-/ 


1008 005134 

125 

120 

040 


.ASCII 

/UP / 


1009 005137 

117 

116 

040 


.ASCII 

/ON / 


1010 005142 

124 

125 

122 


.ASCII 

/TUR/ 


1011 005145 

— - - - - - --- - 

116 

040 

102 


.ASCII 

/N B/ 




1 
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L*AU REPORT CODE 

SECTION 





$EG 

0050 

1013 




;HL4AD 


29-H*r-1982 16:23:04 

TOPS 

1014 






ROUTINE DECLARATION SECTION 29-H«r-1982 16:21:03 

PA:< 

1015 








1016 005150 

117 

130 

040 


.ASCII 

/OX / 


1017 005153 

101 

103 

040 


.ASCII 

/AC / 


1018 005156 

103 

111 

122 


.ASCII 

/CIR/ 


1019 005161 

103 

125 

111 


.ASCII 

/CU 1/ 


1020 005164 

124 

040 

102 


.ASCII 

/T B/ 


1021 005167 

122 

105 

101 


.ASCII 

/REA/ 


1022 005172 

113 

105 

122 


.ASCII 

/XER/ 


1023 005175 

040 

117 

106 


.ASCII 

/ OF/ 


1024 005200 

106 

000 



.ASCII 

/F/<00> 


1025 005202 

127 

111 

124 

P.AAD: 

.ASCII 

/WIT/ 


1026 005205 

110 

040 

102 


.ASCII 

/W B/ 


1027 005210 

101 

124 

124 


.ASCII 

/ATT/ 


1028 005213 

105 

122 

131 


.ASCII 

/ERT/ 


1029 005216 

040 

102 

101 


.ASCII 

/ BA/ 


1030 005221 

103 

113 

055 


.ASCII 

/CX-/ 


1031 005224 

125 

120 

040 


.ASCII 

/UP / 


1032 005227 

117 

106 

106 


.ASCII 

/OFF/ 


1033 005232 

040 

124 

125 


.ASCII 

/ TU/ 


1034 005235 

122 

116 

040 


.ASCII 

/RN / 


1035 005240 

102 

117 

130 


.ASCII 

/BOX/ 


1036 005243 

040 

101 

103 


.ASCII 

/ AC/ 


1037 005246 

040 

103 

111 


.ASCII 

/ Cl/ 


1038 005251 

122 

103 

125 


.ASCII 

/RCU/ 


1039 005254 

111 

124 

040 


.ASCII 

/IT / 


1040 005257 

102 

122 

105 


.ASCII 

/BRE/ 


1041 005262 

101 

113 

105 


.ASCII 

/AXE/ 


1042 005265 

122 

040 

117 


.ASCII 

/R 0/ 


1043 005270 

116 

000 



.ASCII 

/N/<00> 


1044 005272 

125 

116 

123 

P.AAE: 

.ASCII 

/UNS/ 


1045 005275 

040 

102 

111 


.ASCII 

/ BI/ 


1046 005300 

124 

040 

116 


.ASCII 

/T N/ 


1047 005303 

117 

124 

040 


.ASCII 

/OT / 


1048 005306 

123 

105 

124 


.ASCII 

/SET/ 


1049 005311 

040 

104 

125 


.ASCII 

/ DU/ 


1050 005314 

122 

111 

116 


.ASCII 

/RIN/ 


1051 005317 

107 

040 

101 


.ASCII 

/6 A/ 


1052 005322 

103 

040 

120 


.ASCII 

/C P/ 


1053 005325 

117 

127 

105 


.ASCII 

/OWE/ 


1054 005330 

122 

040 

106 


.ASCII 

/R F/ 


1055 005333 

101 

111 

114 


.ASCII 

/AIL/ 


1056 005336 

000 

000 



.ASCII 

<00><00> 


1057 005340 

126 

126 

040 

P.AAF: 

.ASCII 

/VV / 


1058 005343 

102 

111 

124 


.ASCII 

/BIT/ 


1059 005346 

040 

116 

117 


.ASCII 

/ NO/ 


1060 005351 

124 

040 

123 


.ASCII 

/T S/ 


1061 005354 

105 

124 

040 


.ASCII 

/ET / 


1062 005357 

101 

106 

124 


.ASCII 

/AFT/ 


1063 005362 

105 

122 

040 


.ASCII 

/ER / 

! 

' 

1064 005365 

122 

104 

137 


.ASCII 

/RD / 


1065 005370 

111 

116 

137 


.ASCII 

/IN / 

I 

1066 005373 

120 

122 

105 


.ASCII 

/PRE/ 

J 

1067 005376 

r - -i ■ - - -■ 

123 

105 

124 


.ASCII 

/SET/ 
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LSAU REPORT CODE 

SECTION 







SEQ 

0051 

1069 




;ML4AD 



29-Mar-1982 

16:23:04 

TOPS 

1070 




0 


ROUTINE DECLARATION SECTION 

29-Mar-1982 

16:21:03 

PA :< 

1U/1 

1072 005401 

040 

106 

125 


.ASCII 

/ FU/ 




1073 005404 

116 

103 

124 


.ASCII 

/NCT/ 




1074 005407 

111 

117 

116 


.ASCII 

/ION/ 




1075 005412 

000 

000 



.ASCII 

<00><00> 




1076 005414 

126 

126 

040 

P.AAG: 

.ASCII 

/vv / 




1077 005417 

102 

111 

124 


.ASCII 

/BIT/ 




1078 005422 

040 

103 

114 


.ASCII 

/ CL/ 




1079 005425 

105 

101 

122 


.ASCII 

/EAR/ 




1080 005430 

105 

104 

040 


.ASCII 

/ED / 




1081 005433 

101 

106 

124 


.ASCII 

/AFT/ 




1082 005436 

105 

122 

040 


.ASCII 

/ER / 




1083 005441 

122 

104 

055 


.ASCII 

/RD-/ 




1084 005444 

111 

116 

055 


.ASCII 

/IN-/ 




1085 005447 

120 

122 

105 


.ASCII 

/PRE/ 




1086 005452 

123 

105 

124 


.ASCII 

/SET/ 




1087 005455 

040 

106 

125 


.ASCII 

/ FU/ 




1088 005460 

116 

103 

124 


.ASCII 

/NCT/ 




1089 005463 

111 

117 

116 


.ASCII 

/ION/ 




1090 005466 

000 

000 



.ASCII 

<U0><OO> 




1091 005470 

115 

105 

115 

P.AAH: 

.ASCII 

/MEM/ 




1092 005473 

117 

122 

131 


.ASCII 

/ORY/ 




1093 005476 

040 

116 

117 


.ASCII 

/ NO/ 




1094 005501 

124 

040 

111 


.ASCII 

/T 1/ 




1095 005504 

116 

111 

124 


.ASCII 

/NIT/ 




1096 005507 

111 

101 

114 


.ASCII 

/IAL/ 




1097 005512 

111 

132 

105 


.ASCII 

/I2E/ 




1098 005515 

104 

040 

101 


.ASCII 

/D A/ 




1099 005520 

106 

124 

105 


.ASCII 

nil/ 




1100 005523 

122 

040 

120 


.ASCII 

/R P/ 




1101 005526 

117 

127 

105 


.ASCII 

/OWE/ 




1102 005531 

122 

040 

125 


.ASCII 

/R U/ 




1103 005534 

120 

040 

127 


.ASCII 

/P W/ 




1104 005537 

111 

124 

110 


.ASCII 

/ITH/ 




1105 005542 

040 

102 

101 


.ASCII 

/ BA/ 




1106 005545 

104 

040 

102 


.ASCII 

/D 8/ 




1107 005550 

101 

124 

124 


.ASCII 

/ATT/ 




1108 005553 

105 

122 

131 


.ASCII 

/ERY/ 




1109 005556 

040 

102 

101 


.ASCII 

/ BA/ 




1110 005561 

103 

113 

055 


.ASCII 

/«-/ 




1111 005564 

125 

120 

000 


.ASCII 

/UP/<00> 




1112 005567 

000 




.ASCII 

<00> 




1113 005570 

122 

105 

107 

P.AAI : 

.ASCII 

/REG/ 




1114 005573 

111 

123 

124 


.ASCII 

/IST/ 




1115 005576 

105 

122 

123 


.ASCII 

/ERS/ 




1116 005601 

040 

116 

117 


.ASCII 

/ NO/ 




1117 005604 

124 

040 

103 


.ASCII 

/T C/ 




1118 005607 

114 

105 

101 


.ASCII 

/LEA/ 




1119 005612 

122 

105 

104 


.ASCII 

/RED/ 




1120 005615 

040 

102 

131 


.ASCII 

/ BY/ 




1121 005620 

040 

115 

102 


.ASCII 

/ MB/ 




1122 005623 

137 

104 

111 


.ASCII 

/ DI/ 




1123 005626 

< 

*- - - Tl - -■ r-i 

123 

040 

101 


.ASCII 

/5 A/ 









i 
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LSAU REPORT CODE 

SECTION 







SEO 0053 

1181 




; ML 4 AD 



29-Mar-1982 

16:23:04 TOPS 

1182 




• 


ROUTINE DECLARATION SECTION 

29-Mar-1982 

16:21:03 PA:< 

1 1 83 

1184 006060 

127 

111 

124 

P.AAW: 

.ASCII 

/WIT/ 



1185 006063 

110 

040 

102 


.ASCII 

/H B/ 



1186 006066 

101 

124 

124 


.ASCII 

/ATT/ 



1187 006071 

105 

122 

131 


.ASCII 

/ERY/ 



1188 006074 

040 

102 

101 


.ASCII 

/ BA/ 



1189 006077 

103 

113 

055 


.ASCII 

/CK-/ 



1190 006102 

125 

120 

040 


.ASCII 

/UP / 



1191 006105 

117 

116 

040 


.ASCII 

/ON / 



1192 006110 

124 

125 

122 


.ASCII 

/T UR/ 



1193 006113 

116 

040 

102 


.ASCII 

/N B/ 



1194 006116 

117 

130 

040 


.ASCII 

/OX / 



1195 006121 

101 

103 

040 


.ASCII 

/AC / 



1196 006124 

103 

111 

122 


-ASCII 

/CIR/ 



1197 006127 

103 

125 

111 


.ASCII 

/CUI/ 



1198 006132 

12 4 

040 

102 


.ASCII 

/T 8/ 


1 

1199 006135 

122 

105 

101 


.ASCII 

/REA/ 


< 

1200 006140 

113 

105 

122 


.ASCII 

/KER/ 



1201 006143 

040 

117 

116 


.ASCII 

/ ON/ 



1202 006146 

000 

000 



.ASCII 

<00><00> 


| 

1203 006150 

126 

126 

040 

P.AAN: 

.ASCII 

/VV / 


I 

1204 006153 

102 

111 

124 


.ASCII 

/BIT/ 


! 

1205 006156 

040 

103 

114 


.ASCII 

/ CL/ 


* 

1206 006161 

105 

101 

122 


.ASCII 

/EAR/ 



1207 006164 

105 

104 

040 


.ASCII 

/ED / 



1208 006167 

101 

106 

124 


.ASCII 

/AFT/ 



1209 006172 

105 

122 

040 


.ASCII 

/ER / 



1210 006175 

120 

1 17 

127 


.ASCII 

/POW/ 



1211 006200 

105 

122 

040 


.ASCII 

/ER / 



1212 006203 

106 

101 

111 


.ASCII 

/FAI/ 



1213 006206 

114 

040 

1 27 


.ASCII 

/L W/ 



1214 006211 

111 

124 

110 


.ASCII 

/ITH/ 



1215 006214 

040 

107 

117 


.ASCII 

/ GO/ 



1216 006217 

117 

104 

040 


.ASCII 

/OD / 



1217 006222 

102 

101 

124 


.ASCII 

/BAT/ 



1218 006225 

124 

105 

122 


.ASCII 

/TER/ 



1219 006230 

131 

040 

102 


.ASCII 

/Y B/ 



1220 006233 

101 

103 

113 


.ASCII 

/ACK/ 



1221 006236 

055 

125 

120 


.ASCII 

/-UP/ 



1222 006241 

000 




.ASCII 

<00> 



1223 006242 

115 

105 

115 

P.AAO: 

.ASCII 

/MEM/ 



1224 006245 

117 

122 

131 


.ASCII 

/ORY/ 



1225 006250 

040 

111 

116 


.ASCII 

/ IN/ 



1226 006253 

111 

124 

105 


.ASCII 

/ITE/ 



1227 006256 

104 

040 

101 


.ASCII 

/D A/ 



1228 006261 

106 

124 

105 


.ASCII 

/FTE/ 



1229 006264 

122 

040 

120 


.ASCII 

/R P/ 


j 

1230 006267 

117 

127 

105 


.ASCII 

/OWE/ 


1 

1231 006272 

122 

040 

106 


.ASCII 

/R F/ 


1 

1232 006275 

101 

111 

114 


.ASCII 

/AIL/ 


1 

1233 006300 

040 

127 

111 


.ASCII 

/ WI/ 



1234 006303 

124 

110 

040 


.ASCII 

/TH / 



1235 006306 

1 

5 

107 

117 

117 


.ASCII 

/GOO/ 
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1237 

1238 

1239 

1240 006311 

U4 

040 

102 

;ML4AD 

# 

.ASCII 

ROUTINE DECLARATION SECTION 

/D B/ 

1241 006314 

101 

124 

124 


.ASCII 

/ATT/ 

1242 006317 

105 

122 

131 


.ASCII 

/ERY/ 

1243 006322 

040 

102 

101 


.ASCII 

/ BA/ 


103 

113 

055 


.ASCII 

/CK-/ 

ih 

125 

120 

000 


.ASCII 

/UP/<00> 

1246 006333 

1247 006334 

000 

102 

101 

124 

P.AAP: 

.ASCII 

.ASCII 

<00> 

/BAT/ 

1248 006337 

124 

105 

122 


.ASCII 

/TER/ 

1249 006342 

131 

040 

102 


.ASCII 

/Y B/ 

1250 006345 

101 

103 

113 


.ASCII 

/ACK/ 

1251 006350 

055 

125 

120 


.ASCII 

/-UP/ 

1252 006353 

040 

106 

101 


.ASCII 

/ FA/ 

1253 006356 

111 

114 

105 


.ASCII 

/ILE/ 

1254 006361 

104 

040 

124 


.ASCII 

/D T/ 

1255 006364 

117 

040 

115 


.ASCII 

/O N/ 

1256 006367 

101 

111 

116 


.ASCII 

/AIN/ 

1257 006372 

124 

101 

111 


.ASCII 

/TAI/ 

1258 006375 

116 

040 

115 


.ASCII 

/N M/ 

1259 006400 

105 

115 

117 


.ASCII 

/ENO/ 

1260 006403 

122 

131 

040 


.ASCII 

/RY / 

1261 006406 

111 

116 

124 


.ASCII 

/INT/ 

1262 006411 

105 

107 

122 


.ASCII 

/EGR/ 

1263 006414 

111 

124 

131 


.ASCII 

/ITY/ 

1264 006417 

040 

104 

125 


.ASCII 

/ DU/ 

1265 006422 

122 

111 

116 


.ASCII 

/RIN/ 

1266 006425 

107 

040 

120 


.ASCII 

/G P/ 

1267 006430 

117 

127 

105 


.ASCII 

/OWE/ 

1268 006433 

122 

040 

106 


.ASCII 

/R F/ 

1269 006436 

101 

111 

114 


.ASCII 

/AIL/ 

1270 006441 

1271 006442 

000 

045 

101 

105 

P.AAO: 

.ASCII 

.ASCII 

<00> 

/ME/ 

1272 006445 

130 

120 

105 


.ASCII 

/XPE/ 

1273 006450 

103 

124 

105 


.ASCII 

/CTE/ 

1274 006453 

104 

072 

040 


.ASCII 

/D: / 

1275 006456 

045 

117 

066 


.ASCII 

/X06/ 

1276 006461 

045 

101 

040 


.ASCII 

/U / 

1277 006464 

040 

040 

040 


.ASCII 

/ / 

1278 006467 

122 

105 

101 


.ASCII 

/REA/ 

1279 006472 

104 

072 

040 


.ASCII 

/D: / 

1280 006475 

045 

117 

066 


.ASCII 

/I06/ 

1281 006500 

045 

116 

045 


.ASCII 

/*NX/ 

1282 006503 

116 

000 

000 


.ASCII 

/N/<00><00> 

1283 006506 

045 

101 

107 

P.AAR: 

.ASCII 

/MG/ 

1284 006511 

117 

117 

104 


.ASCII 

/OOD/ 

1285 006514 

040 

104 

101 


.ASCII 

/ DA/ 

1286 006517 

124 

101 

072 


.ASCII 

/TA:/ 

1287 006522 

040 

045 

117 


.ASCII 

/ 10/ 

1288 006525 

066 

045 

101 


.ASCII 

/6M/ 

1289 006530 

040 

040 

040 


.ASCII 

/ / 

1290 006533 

040 

102 

101 


.ASCII 

/ BA/ 

1291 006536 

104 

040 

104 


.ASCII 

/D 0/ 


SEQ 0054 

29-Nar-1982 16:23:04 TOP 
29-Har-1982 16:21:03 PA: 
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1293 ; Hi 4 AD 

1294 
1>95 


t296 006541 

101 

124 

101 


.ASCII 

1297 006544 

072 

040 

045 


.ASCII 

1298 006547 

117 

066 

045 


.ASCII 

1299 006552 

101 

040 

040 


.ASCII 

1300 006555 

040 

040 

130 


.ASCII 

1301 006560 

117 

122 

072 


.ASCII 

1302 006563 

040 

045 

117 


.ASCII 

1303 006566 

066 

045 

116 


.ASCII 

1304 006571 

045 

116 

COO 


.ASCII 

1305 006574 

045 

101 

104 

P.AAS: 

.ASCII 

1306 006577 

122 

111 

126 


.ASCII 

1307 006602 

105 

040 

123 


.ASCII 

1308 006605 

116 

072 

040 


.ASCII 

1309 006610 

045 

117 

066 


.ASCII 

1310 006613 

045 

116 

045 


.ASCII 

1311 006616 

116 

000 



.ASCII 

1312 006620 

045 

101 

102 

P.AAT : 

.ASCII 

1313 006623 

111 

124 

040 


.ASCII 

1314 006626 

111 

116 

040 


.ASCII 

1315 006631 

105 

122 

122 


.ASCII 

1316 006634 

117 

122 

072 


.ASCII 

1317 006637 

040 

045 

117 


.ASCII 

1318 006642 

066 

045 

116 


.ASCII 

1319 006645 

045 

116 

000 


.ASCII 

1320 006650 

045 

101 

107 

P.AAU: 

.ASCII 

1321 006653 

1,7 

117 

104 


.ASCII 

1322 006656 

040 

116 

111 


.ASCII 

1323 006661 

102 

040 

104 


.ASCII 

1324 006664 

101 

124 

101 


.ASCII 

1325 006667 

072 

040 

045 


.ASCII 

1326 006672 

117 

062 

045 


-ASCII 

1327 006675 

101 

040 

040 


.ASCII 

1328 006700 

040 

040 

102 


.ASCII 

1329 006703 

101 

104 

040 


.ASCII 

1330 006706 

116 

111 

102 


.ASCII 

1331 006711 

140 

104 

101 


.ASCII 

1332 006714 

124 

101 

072 


.ASCII 

1333 006717 

040 

045 

117 


.ASCII 

1334 006722 

062 

045 

101 


.ASCII 

1335 006725 

040 

040 

040 


.ASCII 

1336 006730 

040 

116 

111 


.ASCII 

1337 006733 

102 

040 

120 


.ASCII 

1338 006736 

117 

123 

072 


.ASCII 

1339 006741 

040 

045 

117 


.ASCII 

1340 006744 

064 

045 

116 


.ASCII 

1341 006747 

045 

116 

000 


.ASCII 

1342 006752 

045 

*' 4 

l 

101 

116 

P.AAV: 

.ASCII 

1343 006755 

102 

040 


.ASCII 

1544 006760 

M 

105 

116 

040 


.ASCII 

1345 006763 

122 

122 


.ASCII 

1346 006766 

117 

122 

072 


.ASCII 

1347 006771 

040 

045 

104 


.ASCII 



tn v 
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LSAU REPORT COOE 

SECTION 







SEO 0056 

1349 




;NL4AD 




29-N»r-1982 16:23:04 TOPS 

1350 




# 


ROUTINE DECLARATION SECTION 


29-N«r-1982 16:21:03 PA:< 

1351 

1352 006774 

064 

045 

116 


.ASCII 

/4XN/ 



1353 006777 

045 

116 

000 


.ASCII 

/XN/<00> 



1354 007002 

045 

101 

106 

P.AAW: 

.ASCII 

/XA f/ 



1355 007005 

101 

111 

114 


.ASCII 

/AIL/ 



1356 007010 

105 

104 

040 


.ASCII 

/ED / 



1357 007013 

101 

124 

072 


.ASCII 

/AT:/ 



1358 007016 

040 

045 

117 


.ASCII 

/ XO/ 



1359 007021 

066 

045 

116 


.ASCII 

/6ZN/ 



1360 007024 

045 

116 

000 


.ASCII 

/XN/<00> 



1361 007027 

000 




.ASCII 

<00> 



1362 007030 

045 

101 

122 

P.AAX: 

.ASCII 

/XAR/ 



1363 007033 

105 

120 

114 


.ASCII 

/EPL/ 



1364 007036 

101 

103 

105 


.ASCII 

/ACE / 



1365 007041 

040 

101 

122 


.ASCII 

/ AR/ 



1366 007044 

122 

040 

115 


.ASCII 

/R «/ 



1367 007047 

117 

104 

072 


.ASCII 

/OD:/ 



1368 007052 

040 

045 

104 


.ASCII 

/ ID/ 



1369 007055 

06 2 

045 

116 


.ASCII 

/2XN/ 



1370 007060 

045 

116 

000 


.ASCII 

/XN/<00> 



1371 007063 

000 




.ASCII 

<00> 



1372 007064 

045 

101 

106 

P.AAY: 

.ASCII 

/XAf/ 



1373 007067 

101 

111 

114 


.ASCII 

/AIL/ 



1374 007072 

105 

104 

040 


.ASCII 

/ED / 



1375 007075 

101 

124 

040 


.ASCII 

/AT / 



1376 007100 

104 

123 

101 


.ASCII 

/DSA/ 



1377 007103 

072 

040 

045 


.ASCII 

/: X/ 



1378 007106 

117 

066 

045 


.ASCII 

/06X/ 



1379 007111 

116 

045 

116 


.ASCII 

/NXN/ 



1380 007114 

000 

000 



.ASCII 

<00><00> 



1381 007116 

045 

101 

102 

P.AA2: 

.ASCII 

/XAB/ 



1382 007121 

111 

124 

074 


.ASCII 

/IT</ 



1383 007124 

061 

065 

072 


.ASCII 

/15:/ 



1384 007127 

061 

060 

076 


.ASCII 

/10>/ 



1385 007132 

072 

040 

045 


.ASCII 

/: X/ 



1386 007135 

102 

066 

045 


.ASCII 

/86X/ 



1387 007140 

101 

040 

040 


.ASCII 

/A / 



1588 007143 

040 

040 

102 


.ASCII 

/ 8/ 



1389 007146 

111 

124 

074 


.ASCII 

/IT</ 



1390 007151 

071 

072 

060 


.ASCII 

/9:0/ 

% 


1391 007154 

076 

072 

040 


.ASCII 

/>: / 



1392 007157 

045 

102 

061 


.ASCII 

/X81/ 



1393 007162 

060 

045 

116 


.ASCII 

/OXN/ 



1394 007165 

045 

116 

000 


.ASCII 

/XN/<00> 



1395 007170 

045 

101 

106 

P.ABA: 

.ASCII 

/XAf/ 



1396 007173 

101 

111 

114 


.ASCII 

/AIL/ 



1397 007176 

111 

116 

107 


.ASCII 

/ING/ 



1398 007201 

040 

122 

105 


.ASCII 

/ RE/ 



1399 007204 

107 

040 

101 


.ASCII 

/G A/ 



1400 007207 

104 

122 

123 


.ASCII 

ms/ 



1401 007212 

072 

040 

045 


.ASCII 

/: X/ 



1402 00721$ 

117 

066 

045 


.ASCII 

/06X/ 



14C3 007220 

116 

045 

116 


.ASCII 

/NXN/ 




I 

i 
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1405 




;ML4AD 



1406 




4 


ROUTINE DECLARATION SECTION 

1407 







1408 007223 

000 




.ASCII 

<00> 

1409 007224 

045 

101 

106 

P.A8B: 

.ASCII 

/IAF/ 

1410 007227 

101 

111 

114 


.ASCII 

/AIL/ 

1411 007232 

111 

116 

107 


.ASCII 

/ING/ 

1412 007235 

040 

106 

125 


.ASCII 

/ FU/ 

1413 007240 

116 

103 

072 


.ASCII 

/NC:/ 

1414 007243 

040 

045 

117 


.ASCII 

/ *0/ 

1415 007246 

066 

045 

116 


.ASCII 

/6XN/ 

1416 007251 

045 

116 

000 


.ASCII 

/IN/<00> 

1417 007254 

040 

045 

101 

P.AflC : 

.ASCII 

/ XA/ 

1418 007257 

117 

106 

106 


.ASCII 

/OFF/ 

1419 007262 

137 

123 

105 


.ASCII 

/ SE/ 

1420 007265 

124 

040 

103 


.ASCII 

/T C/ 

1421 007270 

116 

124 

040 


.ASCII 

/NT / 

1422 007273 

106 

117 

122 


.ASCII 

/FOR/ 

1423 007276 

040 

116 

111 


.ASCII 

/ HI/ 

1424 007301 

102 

040 

072 


.ASCII 

/8 :/ 

1425 007304 

040 

045 

104 


.ASCII 

/ ID/ 

1426 007307 

062 

040 

045 


.ASCII 

/2 1/ 

1427 007312 

101 

040 

075 


.ASCII 

/A =/ 

1428 007315 

040 

045 

104 


.ASCII 

/ ID/ 

1429 007320 

062 

040 

045 


.ASCII 

/2 1/ 

1430 007323 

116 

045 

116 


.ASCII 

/NlN/ 

1431 007326 

000 

000 



. ASCII 

<00><00> 

1432 007330 

045 

101 

127 

P.ABD: 

.ASCII 

/IAW/ 

1433 007333 

122 

117 

124 


.ASCII 

/ROT/ 

1434 007336 

105 

072 

040 


. ASCII 

/E: / 

1435 007341 

045 

104 

062 


.ASCII 

/ID2/ 

1436 007344 

045 

101 

040 


.ASCII 

/XA / 

1437 007347 

040 

040 

040 


.ASCII 

/ / 

1438 007352 

122 

105 

101 


.ASCII 

/REA/ 

1439 007355 

104 

072 

040 


.ASCII 

/D: / 

1440 007360 

045 

104 

062 


.ASCII 

/ID2/ 

1441 007363 

045 

116 

045 


.ASCII 

/INI/ 

1442 007366 

116 

000 



.ASCII 

/N/<00> 

1443 007370 

045 

101 

116 

P.A8E: 

.ASCII 

/IAN/ 

1444 007373 

111 

102 

102 


.ASCII 

/I8B/ 

1445 007376 

114 

105 

123 


.ASCII 

/LES/ 

1446 007401 

040 

130 

106 


.ASCII 

/ XF/ 

1447 007404 

105 

122 

105 


.ASCII 

/ERE/ 

1448 007407 

104 

040 

102 


.ASCII 

/D 8/ 

1449 007412 

105 

106 

117 


.ASCII 

/EFO/ 

1450 007415 

1 22 

105 

040 


.ASCII 

/RE / 

1451 007420 

105 

122 

122 


.ASCII 

/ERR/ 

1452 007423 

117 

122 

072 


.ASCII 

/OR:/ 

1453 007426 

040 

045 

104 


.ASCII 

/ ID/ 

1454 007431 

063 

045 

116 


.ASCII 

/3IN/ 

1455 007434 

000 

000 



.ASCII 

<00><00> 

1456 007436 

045 

101 

106 

P.A8F: 

.ASCII 

/IAF/ 

1457 007441 

101 

111 

114 


.ASCII 

/AIL/ 

1458 007444 

111 

116 

107 


.ASCII 

/ING/ 

1459 007447 

040 

122 

105 


.ASCII 

/ RE/ 
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1461 




;NL4AD 



1462 

1463 

1464 007452 




9 


ROUTINE DECLARATION SECTION 

107 

072 

040 


.ASCII 

/G: / 

1465 007455 

045 

117 

066 


.ASCII 

/X06/ 

1466 007460 

045 

101 

040 


.ASCII 

/XA / 

1467 007463 

107 

117 

117 


.ASCII 

/GOO/ 

1468 007466 

1469 007471 

104 

040 

104 


.ASCII 

/D D/ 

101 

124 

101 


.ASCII 

/ATA/ 

1470 007474 

072 

040 

045 


.ASCII 

/: 1/ 

1471 007477 

117 

066 

045 


.ASCII 

/06X/ 

1472 OC7502 

101 

040 

102 


.ASCII 

/A 8/ 

1473 007505 

101 

104 

040 


.ASCII 

/AD / 

1474 007510 

104 

101 

124 


.ASCII 

/DAT/ 

1475 007513 

101 

072 

040 


.ASCII 

/A: / 

1476 007516 

045 

117 

066 


.ASCII 

/X06/ 

1477 007521 

045 

116 

045 


.ASCII 

/xnx/ 

1478 007524 

116 

000 



.ASCII 

m/< oo> 

1479 007526 

045 

116 

045 

P.A8G: 

.ASCII 

/xnx/ 

1480 007531 

101 

104 

111 


.ASCII 

/ADI/ 

1481 007534 

101 

107 

116 


.ASCII 

/AG N/ 

1482 007537 

117 

123 

111 


.ASCII 

/OSI/ 

1483 007542 

116 

107 

040 


.ASCII 

/HQ / 

1484 007545 

125 

116 

111 


.ASCII 

/UNI/ 

1485 007550 

124 

040 

045 


.ASCII 

/T 1/ 

1486 007553 

117 

061 

045 


.ASCII 

10 IX/ 

1487 007556 

116 

045 

116 


.ASCII 

/NXN/ 

1488 007561 

000 




.ASCII 

<00> 

1489 007562 

045 

101 

124 

P.ABH; 

.ASCII 

/XAT/ 

1490 007565 

111 

115 

105 


.ASCII 

/INE/ 

1491 007570 

104 

040 

117 


.ASCII 

/D 0/ 

1492 007573 

125 

124 

040 


.ASCII 

/UT / 

1493 007576 

104 

125 

122 


.ASCII 

/DUR/ 

1494 007601 

111 

116 

107 


.ASCII 

/ING/ 

1495 007604 

040 

115 

102 


.ASCII 

/ m/ 

1496 007607 

125 

123 

040 


.ASCII 

/US / 

1497 007612 

045 

117 

062 


.ASCII 

/X02/ 

1498 007615 

045 

101 

040 


.ASCII 

/XA / 

1499 007620 

106 

125 

116 


.ASCII 

/FUN/ 

1500 007623 

103 

045 

116 


.ASCII 

/Cl N/ 

1501 007626 

045 

116 

000 


.ASCII 

/IN/<00> 

1502 007631 

000 




.ASCII 

<00> 

1503 007632 

045 

101 

103 

P.ABI : 

.ASCII 

/IAC/ 

1504 007635 

122 

103 

040 


.ASCII 

/RC / 

1505 007640 

107 

105 

116 


.ASCII 

/GEN/ 

1506 007643 

040 

075 

040 


.ASCII 

/ = / 

1507 007646 

102 

072 

040 


.ASCII 

/B: / 

1508 007651 

045 

102 

066 


.ASCII 

/XB6/ 

1509 007654 

045 

101 

040 


.ASCII 

/XA / 

1510 007657 

101 

072 

040 


.ASCII 

/A: / 

1511 007662 

045 

102 

066 


.ASCII 

/XB6/ 

1512 0076o5 

045 

101 

040 


.ASCII 

/XA / 

1513 007670 

120 

072 

040 


.ASCII 

/P: / 

1514 007675 

045 

102 

066 


.ASCII 

/X86/ 

1515 007676 

045 

116 

000 


.ASCII 

/XN/<00> 
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1517 

1518 

1519 

1520 007701 

1521 007702 

000 

045 

101 

103 

;rfL4AD 

# 

P.A8J: 

.ASCII 

.ASCII 

ROUTINE DECLARATION SECTION 

<00> 

/XAC/ 

1522 0077G* 

1 22 

103 

040 


.ASCII 

/AC / 

1523 007710 

103 

101 

114 


.ASCII 

/CAL/ 

1524 007713 

040 

075 

040 


.ASCII 

/ = / 

1525 007716 

102 

072 

040 


.ASCII 

/B: / 

1526 007721 

045 

102 

066 


.ASCII 

/XB6/ 

1527 007724 

045 

101 

040 


.ASCII 

/XA / 

1528 007727 

101 

072 

040 


.ASCII 

/A: / 

1529 007732 

045 

102 

066 


.ASCII 

/X86/ 

1530 007735 

045 

101 

040 


.ASCII 

/XA / 

1531 007740 

120 

072 

040 


.ASCII 

/P: / 

1532 007743 

045 

102 

n 66 


.ASCII 

/X86/ 

1533 007746 

045 

116 

045 


.ASCII 

/XNX/ 

1534 007751 

116 

000 

COC 


.ASCII 

/N/<00><00> 

1535 007754 

045 

101 

106 

P.ABK: 

.ASCII 

/XA f/ 

1536 007757 

101 

111 

1 14 


.ASCII 

/AIL/ 

1537 007762 

105 

104 

040 


.ASCII 

/ED / 

1538 007765 

101 

124 

040 


.ASCII 

/AT / 

1539 007770 

120 

114 

117 


.ASCII 

/PLO/ 

1540 007773 

107 

072 

040 


.ASCII 

/G: / 

1541 007776 

045 

104 

062 


.ASCII 

/XD2/ 

1542 010001 

045 

101 

040 


.ASCII 

/XA / 

1543 010004 

103 

110 

101 


.ASCII 

/CHA/ 

1544 010007 

116 

116 

105 


.ASCII 

/NNE/ 

1545 010012 

114 

072 

040 


.ASCII 

/L: / 

1546 010015 

045 

104 

062 


.ASCII 

/XD2/ 

1547 010020 

045 

116 

045 


.ASCII 

/XNX/ 

1548 010023 

116 

000 

000 


.ASCII 

/N/<00><00> 

1549 010026 

045 

101 

106 

P.ABL : 

.ASCII 

/XAf / 

1550 010031 

101 

111 

114 


.ASCII 

/AIL/ 

1551 010034 

105 

104 

040 


.ASCII 

/ED / 

1552 010037 

101 

124 

040 


.ASCII 

/AT / 

1553 010042 

127 

122 

104 


.ASCII 

/URD/ 

1554 010045 

072 

040 

045 


.ASCII 

/: X/ 

1555 010050 

104 

062 

045 


.ASCII 

/D2X/ 

1556 010053 

101 

040 

102 


.ASCII 

/A B/ 

1557 010056 

111 

124 

072 


.ASCII 

/IT:/ 

1558 010061 

040 

045 

104 


.ASCII 

/ XD/ 

1559 010064 

062 

045 

116 


.ASCII 

/2XN/ 

1560 010067 

045 

116 

000 


.ASCII 

/XN/<00> 

1561 010072 

045 

101 

122 

P.ABN: 

.ASCII 

/XAR/ 

1562 010075 

105 

107 

111 


.ASCII 

/EGI/ 

1563 010100 

123 

124 

105 


.ASCII 

/STE/ 

1564 010103 

122 

045 

123 


.ASCII 

/RXS/ 

1565 010106 

063 

045 

101 


.ASCII 

/3XA/ 

1566 0101 11 

1567 010114 

101 

104 

104 


.ASCII 

/ADD/ 

122 

105 

123 


.ASCII 

/RES/ 

1568 010117 

123 

045 

123 


.ASCII 

/SIS/ 

1569 010122 

067 

045 

101 


.ASCII 

/7XA/ 

1570 010125 

103 

117 

116 


.ASCII 

/CON/ 

1571 010130 

124 

105 

116 


.ASCII 

/TEN/ 
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1573 

1574 

1575 

1576 010133 

124 

123 

045 

1577 010136 

116 

045 

116 

1578 010141 

000 



1579 010142 

045 

123 

045 

1580 010145 

124 

045 

123 

1581 010150 

065 

045 

117 

1582 010153 

066 

045 

123 

1583 010156 

064 

045 

117 

1584 010161 

061 

066 

045 

1585 010164 

116 

000 


1586 010166 

045 

123 

064 

1587 010171 

045 

124 

045 

1588 010174 

101 

072 

045 

1589 010177 

123 

045 

117 

1590 010202 

066 

045 

116 

1591 010205 

000 



1592 010206 

045 

123 

064 

1593 010211 

045 

124 

045 

1594 010214 

101 

072 

045 

1595 010217 

123 

045 

104 

1596 010222 

061 

045 

104 

1597 010225 

061 

045 

104 

1598 010230 

061 

045 

104 

1599 010233 

061 

045 

116 

1600 010236 

000 

000 


1601 010240 

045 

124 

045 

1602 010243 

116 

000 

000 

1603 010246 

045 

124 

045 

1604 010251 

124 

045 

116 

1605 010254 

000 

000 


1606 010256 

045 

124 

045 

1607 010261 

124 

045 

124 

1608 010264 

045 

116 

000 

1609 010267 

000 



1610 010270 

045 

124 

045 

1611 010273 

124 

045 

124 

1612 010276 

1613 010301 

045 

124 

045 

116 

000 

000 

1614 010304 

045 

124 

045 

1615 010307 

124 

045 

124 

1616 010312 

045 

124 

045 

1617 010315 

124 

045 

116 

1618 010320 

000 

000 


1619 010322 

045 

124 

045 

1620 010325 

1621 010330 

124 

045 

124 

045 

124 

045 

1622 010333 

1623 010336 

124 

045 

124 

045 

116 

000 

1624 010341 

000 



1625 010342 

1626 010345 

045 

124 

045 

124 

045 

124 

1627 010350 

045 

124 

045 


;*L4AD 


• 


ROUINE DECLARATION SECTION 


.ASCII 

n SI/ 


.ASCII 

/HtH/ 


.ASCII 

<00> 

P.A0N: 

.ASCII 

/SSI/ 


.ASCII 

/TIS/ 


.ASCII 

/5I0/ 


.ASCII 

/6XS/ 


.ASCII 

/4X0/ 


-ASCII 

/16X/ 


.ASCII 

/N/<00> 

P.A80: 

.ASCII 

/XS4/ 


.ASCII 

/XTX/ 


.ASCII 

/A:X/ 


.ASCII 

/SXO/ 


.ASCII 

/6XN/ 


.ASCII 

<00> 

P.ABP: 

.ASCII 

/XS4/ 


.ASCII 

/XTX/ 


.ASCII 

/A:X/ 


.ASCII 

/SXD/ 


.ASCII 

/1XD/ 


.ASCII 

/1XD/ 


.ASCII 

/1XD/ 


.ASCII 

/1XN/ 


.ASCII 

<00><00> 

P.ABO: 

•ASCII 

/XTX/ 


.ASCII 

/N/<00><00> 

P.ABR: 

.ASCII 

/XTX/ 


.ASCII 

/TIN/ 


.ASCII 

<00><00> 

P.A85: 

.ASCII 

/XTX/ 


.ASCII 

/TXT/ 


.ASCII 

/XN/<00> 


.ASCII 

<00> 

P.ABT: 

.ASCII 

/XTX/ 


.ASCII 

/TXT/ 


.ASCII 

/XTX/ 


.ASCII 

/N/<00><00> 

P.A8U: 

.ASCII 

/XTX/ 


.ASCII 

/TXT/ 


.ASCII 

/XTX/ 


.ASCII 

/TIN/ 


.ASCII 

<00><00> 

P.A8V: 

.ASCII 

/XTX/ 


.ASCII 

/TXT/ 


.ASCII 

/XTX/ 


.ASCII 

/TXT/ 


.ASCII 

/XN/<00> 


.ASCII 

<00> 

P.A8W: 

.ASCII 

/XTX/ 


.ASCII 

/TXT/ 


.ASCII 

/XTX/ 
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1629 




;ML4AD 


1630 




9 


ROUTINE DECLARATION SECTION 

1631 







1632 010353 

124 

045 

124 


.ASCII 

/TXT/ 

1633 010356 

045 

124 

045 


.ASCII 

/in/ 

1634 010361 

116 

000 

000 


.ASCII 

/N/<00><00> 

1635 010364 

045 

124 

045 

P.ABX: 

.ASCII 

/in/ 

1636 010367 

124 

045 

124 


.ASCII 

/TIT/ 

1637 010372 

045 

124 

045 


.ASCII 

/IT!/ 

1638 010375 

124 

045 

124 


.ASCII 

/TXT/ 

1639 010400 

045 

124 

045 


.ASCII 

/XTX/ 

1640 010403 

124 

045 

116 


.ASCII 

/TIN/ 

1641 010406 

000 

000 



.ASCII 

<00><00> 

1642 010410 

045 

124 

045 

P.ABY: 

.ASCII 

/XTX/ 

1643 010413 

124 

045 

124 


.ASCII 

/TXT/ 

1644 010416 

045 

124 

045 


.ASCII 

/XTX/ 

1645 010421 

124 

045 

124 


.ASCII 

/TXT/ 

1646 010424 

045 

124 

045 


.ASCII 

/XTX/ 

1647 010427 

124 

045 

124 


.ASCII 

/TXT/ 

1648 010432 

045 

116 

000 


.ASCII 

/XN/<00> 

1649 010435 

000 




.ASCII 

<00> 

1650 010436 

045 

124 

045 

P.ABZ: 

.ASCII 

/XTX/ 

1651 010441 

124 

045 

124 


.ASCII 

/TXT/ 

1652 010444 

045 

124 

045 


.ASCII 

/XTX/ 

1653 010447 

124 

045 

124 


.ASCII 

/TXT/ 

1654 010452 

045 

124 

045 


.ASCII 

/XTX/ 

1655 010455 

124 

045 

124 


.ASCII 

/TXT/ 

1656 010460 

045 

124 

045 


.ASCII 

/XTX/ 

1657 010463 

116 

000 

000 


.ASCII 

/N/<00><00> 

1658 010464 

045 

124 

045 

P.ACA: 

.ASCII 

/XTX/ 

1659 010471 

124 

045 

124 


.ASCII 

/TXT/ 

1660 010474 

045 

124 

045 


.ASCII 

/XTX/ 

1661 010477 

124 

045 

124 


.ASCII 

/TXT/ 

1662 010502 

045 

124 

045 


.ASCII 

/XTX/ 

1663 010505 

124 

045 

124 


.ASCII 

/TXT/ 

1664 010510 

045 

124 

045 


.ASCII 

/XTX/ 

1665 010513 

124 

045 

116 


.ASCII 

/TtN/ 

1666 010516 

000 

000 



.ASCII 

<00><00> 

1667 010520 

040 

107 

117 

P.AC8. 

.ASCII 

/ 60/ 

1668 010523 

000 




.ASCII 

<00> 

1669 010524 

040 

104 

122 

P.ACC. 

.ASCII 

/ DR/ 

1670 010527 

126 

137 

122 


.ASCII 

/V R/ 

1671 010532 

104 

131 

000 


.ASCII 

/D?/<00> 

1672 010535 

000 




.ASCII 

<00> 

1673 010536 

040 

111 

114 

P.ACD 

.ASCII 

/ SU 

1674 010541 

106 

000 

000 


.ASCII 

/F/<OQ><00> 

1675 010544 

040 

117 

120 

P.ACC 

.ASCII 

/ OP/ 

1676 010547 

111 

000 

000 


.ASCII 

/I/<00><00> 

1677 010552 

040 

102 

101 

P.ACC 

.ASCII 

/ BA/ 

1678 010555 

104 

000 

000 


.ASCII 

/D/<00><00> 

1679 010560 

040 

107 

117 

P.ACC 

.ASCII 

/ 60/ 

1680 010563 

117 

104 

000 


.ASCII 

/OD/<00> 

1681 010566 

040 

120 

101 

P.ACH 

.ASCII 

/ PA/ 

1682 010571 

122 

111 

124 


.ASCII 

mi/ 

1683 010574 

131 

040 

116 


.ASCII 

n h/ 


i 

I 

i 
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1685 





;ML4AD 


1686 
<ii Q7 





• 

0 


ROUTINE DECLARATION SECTION 

\bo7 

1688 

010577 

117 

124 

000 


.ASCII 

/OT/<00> 

1689 

010602 

040 

107 

105 

P.ACI: 

.ASCII 

/ GE/ 

1690 

010605 

116 

105 

122 


.ASCII 

/NER/ 

1691 

010610 

101 

124 

105 


.ASCII 

/ATE/ 

1692 

010613 

104 

000 

000 


.ASCII 

/D/<00><00> 

1693 

010616 

040 

104 

105 

P.ACJ : 

.ASCII 

/ DE/ 

1694 

010621 

124 

105 

103 


.ASCII 

/TEC/ 

1695 

010624 

124 

105 

104 


.ASCII 

/TED/ 

1696 

010627 

000 




.ASCII 

<00> 

1697 

010630 

040 

105 

122 

P.ACK: 

.ASCII 

/ ER/ 

1698 

010633 

122 

117 

122 


.ASCII 

/ROR/ 

1699 

010636 

000 

000 



.ASCII 

<00><00> 

1700 

010640 

040 

101 

106 

P.ACL: 

.ASCII 

/ AF/ 

1701 

010643 

124 

105 

122 


.ASCII 

/TER/ 

1702 

010646 

000 

000 



.ASCII 

<00><00> 

1703 

010650 

040 

104 

125 

P.ACM: 

.ASCII 

/ DU/ 

1704 

010653 

122 

111 

116 


.ASCII 

/RIN/ 

1705 

010656 

107 

000 



.ASCII 

/6/<00> 

1706 

010660 

040 

101 

124 

P.ACN: 

.ASCII 

/ AT/ 

1707 

010663 

000 




.ASCII 

<00> 

1708 

010664 

040 

106 

101 

P.ACO: 

.ASCII 

/ FA/ 

1709 

010667 

111 

114 

125 


.ASCII 

/ILU/ 

1710 

010672 

122 

105 

000 


.ASCII 

/RE/<00> 

1711 

010675 

000 




.ASCII 

<00> 

1712 

010676 

040 

101 

124 

P.ACP 

.ASCII 

/ AT/ 

1713 

010701 

101 

000 

000 


.ASCII 

/A/<00><00> 

1714 

010704 

040 

101 

124 

P.ACO 

.ASCII 

/ AT/ 

1715 

010707 

124 

116 

000 


.ASCII 

/TN/<00> 

1716 

010712 

040 

127 

122 

P.ACR 

.ASCII 

/ UR/ 

1717 

010715 

111 

124 

111 


.ASCII 

tint 

1718 

010720 

116 

107 

000 


.ASCII 

/NG/<00> 

1719 

010723 

000 




.ASCII 

<00> 

1720 

010724 

040 

126 

126 

P.ACS 

.ASCII 

/ VV/ 

1721 

010727 

000 




.ASCII 

<00> 

1722 

010730 

040 

106 

125 

P. ACT 

.ASCII 

/ FU/ 

1723 

010733 

116 

103 

000 


.ASCII 

/NC/<00> 

1724 

010736 

040 

124 

122 

P.ACU 

.ASCII 

/ TR/ 

1725 

010741 

105 

000 

000 


.ASCII 

/E/<00xOO> 

1726 

010744 

040 

122 

115 

P.ACV 

.ASCII 

/ RM/ 

1727 

010747 

122 

000 

000 


.ASCII 

/R/<00><00> 

1728 

010752 

040 

105 

130 

P.ACU 

.ASCII 

/ EX/ 

1729 

010755 

103 

105 

123 


.ASCII 

/CCS/ 

1730 

010760 

123 

111 

126 


.ASCII 

/SIV/ 

1731 

010763 

105 

000 

000 


.ASCII 

/E/<00x00> 

1732 

010766 

040 

115 

102 

P.ACX 

.ASCII 

/ MB/ 

1733 

010771 

125 

123 

000 


.ASCII 

/US/<00> 

1734 

010774 

040 

104 

101 

P.ACV 

.ASCII 

/ DA/ 

1735 

010777 

124 

101 

000 


.ASCII 

/TA/<00> 

1736 

011002 

040 

103 

117 

P.ACI 

.ASCII 

/ CO/ 

1737 

011005 

116 

124 

111 


.ASCII 

/NTI/ 

1738 

011010 

116 

125 

111 


.ASCII 

/NUI/ 

1739 

011013 

124 

131 

000 


.ASCII 

/tr/<00> 


SEQ 006? 
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1741 




; ML 4 AD 



1742 

17/7 




# 


ROUTINE DECLARATION SECTION 

1 TAJ 

1744 011016 

040 

101 

117 

P.ADA: 

.ASCII 

/ AO/ 

174S 011021 

105 

000 

000 


.ASCII 

/E/<00><00> 

1746 011024 

040 

114 

102 

P.ADB: 

.ASCII 

/ LB/ 

1747 011027 

124 

000 

000 


.ASCII 

/T/<00><00> 

1748 011032 

040 

120 

122 

P.ADC: 

.ASCII 

/ PR/ 

1749 011035 

105 

115 

101 


.ASCII 

/EMA/ 

1750 011040 

124 

125 

12 2 


.ASCII 

/TUR/ 

1751 011043 

114 

131 

000 


.ASCII 

/LY/<00> 

1752 011046 

040 

111 

101 

P.ADD: 

.ASCII 

/ IA/ 

1753 011051 

105 

000 

000 


.ASCII 

/E/<00><00> 

1754 011054 

040 

111 

116 

P.ADE: 

.ASCII 

/ IN/ 

1755 011057 

103 

122 

105 


.ASCII 

/CRE/ 

1756 011062 

115 

105 

116 


.ASCII 

/MEN/ 

1757 011065 

124 

000 

000 


.ASCII 

/T/<00><00> 

1758 011070 

040 

127 

111 

P.ADF: 

.ASCII 

/ W 1/ 

1759 011073 

124 

110 

000 


.ASCII 

/TH/<00> 

1760 011076 

040 

125 

126 

P.ADG: 

.ASCII 

/ UV/ 

1761 011101 

000 




.ASCII 

<00> 

1762 011102 

040 

125 

116 

P.ADH: 

.ASCII 

/ UN/ 

1763 011105 

123 

000 

000 


.ASCII 

/S/<00><00> 

1764 011110 

040 

120 

122 

P.ADJ: 

.ASCII 

/ PR/ 

1765 011113 

117 

115 

000 


.ASCII 

/OM/<00> 

1766 011116 

040 

117 

122 

P.ADJ : 

.ASCII 

/ OR/ 

1767 011121 

000 




.ASCII 

<00> 

1768 011122 

040 

123 

105 

P.ADK: 

.ASCII 

/ SE/ 

1769 011125 

114 

105 

103 


.ASCII 

/L EC/ 

1770 011130 

124 

000 



.ASCII 

/T/<00> 

1771 011132 

040 

122 

105 

P.ADL: 

.ASCII 

/ RE/ 

1772 011135 

107 

000 

000 


.ASCII 

/G/<00><00> 

1773 011140 

040 

125 

116 

P.ADA: 

.ASCII 

/ UN/ 

1774 011143 

111 

121 

125 


.ASCII 

/IQU/ 

1775 011146 

105 

000 



.ASCII 

/E/<00> 

1776 011150 

040 

061 

064 

P.ADN: 

.ASCII 

/ 14/ 

1777 011153 

000 




.ASCII 

<00> 

1778 011154 

040 

116 

111 

P.AD0: 

.ASCII 

/ HI/ 

1779 011157 

102 

102 

114 


.ASCII 

mu 

1780 011162 

105 

040 

103 


.ASCII 

/E C/ 

1781 011165 

116 

124 

000 


.ASCII 

/NT/<00> 

1782 011170 

040 

107 

124 

P.ADP: 

.ASCII 

/ GT/ 

1783 011173 

122 

000 

000 


.ASCII 

/R/<00><00> 

1784 011176 

040 

127 

110 

P.ADQ: 

.ASCII 

/ WH/ 

1785 011201 

111 

114 

105 


.ASCII 

/ILE/ 

1786 011204 

000 

000 



.ASCII 

<00><00> 

1787 011206 

040 

124 

122 

P.ADR: 

.ASCII 

/ TR/ 

1788 011211 

105 

000 

000 


.ASCII 

/E/<00><00> 

1789 011214 

040 

111 

116 

P.ADS: 

.ASCII 

/ IN/ 

1790 011217 

111 

124 

111 


.ASCII 

/in/ 

1791 011222 

101 

114 

000 


.ASCII 

/AL/<00> 

1792 011225 

000 




.ASCII 

<00> 

1793 011226 

040 

117 

106 

P.ADT: 

.ASCII 

/ OF/ 

1794 011231 

106 

137 

123 


.ASCII 

/F S/ 

1795 011234 

105 

124 

000 


.ASCII 

/et/<oo> 
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LSAU REPORT CODE 

SECTION 






1797 





;ML4AD 



1798 

^ 700 





# 


ROUTINE DECLARATION SECTION 

1 ( 77 
1800 

011237 

000 




.ASCII 

<00> 

1801 

011240 

040 

103 

117 

P.ADU: 

.ASCII 

/ CO/ 

1802 

011243 

125 

116 

124 


.ASCII 

/UNT/ 

1803 

011246 

000 

000 



.ASCII 

<00><00> 

1804 

011250 

040 

104 

105 

P.ADV: 

.ASCII 

/ DE/ 

1805 

011253 

114 

101 

131 


.ASCII 

/LAY/ 

1806 

011256 

000 

000 



.ASCII 

<00><00> 

1807 

011260 

040 

124 

105 

P.ADU: 

.ASCII 

/ TE/ 

1808 

011263 

123 

124 

123 


.ASCII 

/STS/ 

1809 

011266 

000 

000 



.ASCII 

<00><00> 

1810 

011270 

040 

101 

104 

P.ADX: 

.ASCII 

/ AD/ 

1811 

011273 

122 

123 

000 


.ASCII 

/RS/<00> 

1812 

011276 

040 

103 

117 

P.ADY: 

.ASCII 

/ CO/ 

1813 

011301 

125 

116 

124 


.ASCII 

/UNT/ 

1814 

011304 

105 

122 

000 


.ASCII 

/ER/<00> 

1815 

011307 

000 




.ASCII 

<00> 

1816 

011310 

040 

122 

105 

P.AD2: 

.ASCII 

/ RE/ 

1817 

011313 

107 

000 

000 


.ASCII 

/G/<00><00> 

1818 

011316 

040 

124 

105 

P.AEA: 

.ASCII 

/ TE/ 

1819 

011321 

123 

124 

105 


.ASCII 

/STE/ 

1820 

011324 

104 

000 



.ASCII 

/D/<00> 

1821 

011326 

040 

116 

111 

P.AE8: 

.ASCII 

/ HI/ 

1822 

011331 

102 

102 

114 


.ASCII 

/8BL/ 

1823 

011334 

105 

000 



.ASCII 

/E/<00> 

1824 

011336 

040 

101 

114 

P.AEC: 

.ASCII 

/ Al/ 

1825 

011341 

114 

000 

000 


.ASCII 

/L/<00><00> 

1826 

011344 

040 

124 

105 

P.AED: 

.ASCII 

/ TE/ 

1827 

011347 

123 

124 

000 


.ASCII 

/ST/<00> 

1828 

011352 

040 

130 

106 

P.AEE: 

.ASCII 

/ XF/ 

1829 

011355 

105 

1 22 

105 


.ASCII 

/ERE/ 

1830 

011360 

104 

000 



.ASCII 

/D/<00> 

1831 

011362 

040 

116 

111 

P.AE f: 

.ASCII 

/ HI/ 

1832 

011365 

102 

102 

114 


.ASCII 

/BBL/ 

1833 

011370 

105 

125 

000 


.ASCII 

/ES/<00> 

1834 

011373 

000 




.ASCII 

<00> 

1835 

011374 

040 

123 

103 

P.AEG: 

.ASCII 

/ SC/ 

1836 

011377 

000 




.ASCII 

<00> 

1837 

011400 

040 

115 

125 

P.AEH: 

.ASCII 

/ MU/ 

1838 

011403 

114 

124 

111 


.ASCII 

/LT 1/ 

1839 

011406 

120 

114 

105 


.ASCII 

/PLE/ 

1840 

011411 

130 

105 

122 


.ASCII 

/XER/ 

1841 

011414 

000 

000 



.ASCII 

<00><00> 

1842 

011416 

040 

125 

116 

P.AEJ : 

.ASCII 

/ UN/ 

1843 

011421 

105 

130 

120 


.ASCII 

/EXP/ 

1844 

011424 

105 

103 

124 


.ASCII 

/ECT/ 

1845 

011427 

105 

104 

000 


.ASCII 

/ED/<00> 

1846 

011432 

040 

116 

105 

P.AEJ: 

.ASCII 

/ NE/ 

1847 

011435 

104 

000 

000 


.ASCII 

/D/<00><00> 

1848 

011440 

040 

111 

114 

P.AEK: 

.ASCII 

/ IL/ ^ 

1849 

011443 

122 

000 

000 


.ASCII 

/R/<00><00> 

1850 

011446 

040 

103 

122 

P.AEL: 

.ASCII 

/ CR/ 

1851 

011451 

103 

000 

000 


.ASCII 

/C/<OOxOO> 


SEO 0064 
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1853 ;NL4AD 

1854 

1855 


1856 011454 

040 

123 

107 

P.AEN: .ASCII 

1857 011457 

114 

000 

000 

.ASCII 

1858 011462 

040 

105 

103 

P.AEN: .ASCII 

1859 011465 

110 

000 

000 

.ASCII 

1860 011470 

125 

116 

103 

P.AEO: .ASCII 

1861 011473 

1862 011474 

000 

040 

102 

111 

.ASCII 
P.AEP: .ASCII 

1863 011477 

124 

000 

000 

.ASCII 

1864 011502 

040 

103 

110 

P.AEP: .ASCII 

1865 011505 

101 

116 

116 

.ASCII 

1866 011510 

105 

114 

000 

.ASCII 

1867 011513 

1868 011514 

000 

040 

114 

101 

.ASCII 
P.AER: .ASCII 

1869 011517 

124 

103 

110 

.ASCII 

1870 011522 

000 

000 


.ASCII 

1871 011524 

040 

104 

103 

P.AES: .ASCII 

1872 011527 

113 

000 

000 

.ASCII 

1873 011532 

040 

102 

125 

P.AET: .ASCII 

1874 011535 

123 

000 

000 

.ASCII 

1875 011540 

040 

123 

131 

P.AEU: .ASCII 

1876 011543 

116 

104 

122 

.ASCII 

1877 011546 

117 

116 

105 

.ASCII 

1878 011551 

1879 011552 

000 

040 

104 

105 

.ASCII 
P.AEV: .ASCII 

1880 011555 

103 

117 

104 

.ASCII 

1881 011560 

105 

000 


.ASCII 

1882 011562 

040 

116 

117 

P.AEU: .ASCII 

1883 011565 

124 

000 

000 

.ASCII 

1884 011570 

040 

125 

116 

P.AEX: .ASCII 

1885 011573 

103 

117 

122 

.ASCII 

1886 011576 

122 

105 

103 

.ASCII 

1887 011601 

124 

101 

102 

.ASCII 

1888 011604 

114 

105 

000 

.ASCII 

1889 011607 

1890 011610 

000 

040 

102 

111 

.ASCII 
P.AEY: .ASCII 

1891 011613 

124 

040 

116 

.ASCII 

1892 011616 

117 

124 

040 

.ASCII 

1893 011621 

123 

105 

124 

.ASCII 

1894 011624 

000 

000 


.ASCII 

1895 011626 

040 

10 2 

111 

P.AEZ: .ASCII 

1896 011631 

124 

040 

116 

.ASCII 

1897 011634 

117 

124 

040 

.ASCII 

1898 011637 

103 

114 

122 

.ASCII 

1899 011642 

000 

000 


.ASCII 

1900 011644 

040 

116 

117 

P.AFA: .ASCII 

1901 011647 

040 

122 

105 

.ASCII 

1902 011652 

123 

120 

117 

.ASCII 

1903 011655 

116 

103 

105 

.ASCII 

1904 011660 

040 

101 

106 

.ASCII 

1905 011663 

124 

105 

122 

.ASCII 

1906 011666 

040 

061 

056 

.ASCII 

1907 011671 

065 

040 

125 

.ASCII 



SEQ 0065 



ROUTINE DECLARATION SECTION 
/ SG/ 

/L/<00><00> 

/ EC/ 

/H/<00><00> 

/UNC/ 

< 00 > 

/ BI/ 

/T/<00><00> 

/ CH/ 

/ANN/ 

/EL/<00> 

< 00 > 

/ LA/ 

/TCH/ 

< 00 >< 00 > 

/ DC/ 

/K/<0Q><Q0> 

/ BU/ 

/S/<00><00> 

/ SY/ 

/NDR/ 

/ONE/ 

< 00 > 

/ DE/ 

/COD/ 

/E/<00> 

/ NO/ 

/T/<00><00> 

/ UN/ 

/COR/ 

/REC/ 

/TAB/ 

/LE/<00> 

< 00 > 

/ BI/ 

/T N/ 

/OT / 

/SET/ 

< 00 >< 00 > 

/ BJ/ 

/T N/ 

/OT / 

/CLR/ 

<00><00> 

/ NO/ 

/ RE/ 

/SPO/ 

/NCE/ 

/ AF/ 

/TER/ 

/ 1 ./ 

/5 U/ 
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LSAU REPORT CODE SECTION 


1909 




;ML4AD 



1910 

4 A4 4 




0 


ROUTINE DECLARATION SECTION 

ItI I 

1912 011674 

123 

000 



.ASCII 

/S/<00> 

1913 011676 

040 

104 

101 

P.AF8: 

.ASCII 

/ OA/ 

1914 011701 

124 

101 

040 


.ASCII 

/TA / 

1915 011704 

105 

1 22 

122 


.ASCII 

/ERR/ 

1916 011707 

117 

122 

123 


.ASCII 

/ORS/ 

1917 011712 

000 

000 



.ASCII 

<00><00> 

1918 011714 

040 

102 

111 

P.AFC: 

.ASCII 

/ 81/ 

1919 011717 

124 

040 

123 


.ASCII 

/T S/ 

1920 01172* 

105 

124 

000 


.ASCII 

/ET/<00> 

1921 01 ’725 

000 




.ASCII 

<00> 

1922 01 * •'<. 

y 0 

102 

111 

P.AFD: 

.ASCII 

/ 81/ 

1923 011731 

124 

040 

103 


.ASCII 

/T C/ 

1924 011734 

114 

122 

000 


.ASCII 

/LR/<00> 

1925 011737 

000 




.ASCII 

<00> 

1926 011740 

040 

117 

106 

P.AFE: 

.ASCII 

/ OF/ 

1927 011743 

040 

117 

124 


.ASCII 

/ OT/ 

1928 011746 

110 

105 

122 


.ASCII 

/HER/ 

1929 011751 

040 

104 

122 


.ASCII 

/ DR/ 

1930 011754 

111 

126 

105 


.ASCII 

/IVE/ 

1931 011757 

123 

000 

000 


.ASCII 

/S/<00><00> 

1932 011762 

040 

103 

114 

P.AFF: 

.ASCII 

/ CL/ 

1933 011765 

101 

123 

123 


.ASCII 

/ASS/ 

1934 011770 

040 

101 

000 


.ASCII 

/ A/<00> 

1935 011773 

000 




.ASCII 

<00> 

1936 011774 

040 

103 

114 

P.AFG: 

.ASCII 

/ CL/ 

1937 011777 

101 

123 

123 


.ASCII 

/ASS/ 

1938 012002 

040 

102 

000 


.ASCII 

/ B/<00> 

1939 012005 

000 




.ASCII 

<00> 

1940 012006 

040 

124 

117 

P.AFH: 

.ASCII 

/ TO/ 

1941 012011 

040 

106 

111 


.ASCII 

/ FI/ 

1942 012014 

116 

104 

000 


.ASCII 

/ND/<00> 

1943 012017 

000 




.ASCII 

<00> 

1944 012020 

040 

116 

117 

P.AF1: 

.ASCII 

/ NO/ 

1945 012023 

124 

040 

114 


.ASCII 

/T U 

1946 012026 

101 

124 

103 


.ASCII 

/ATC/ 

1947 012031 

110 

105 

104 


.ASCII 

/HED/ 

1948 012034 

000 

000 



.ASCII 

<00><00> 

1949 012036 

040 

123 

111 

P.AFJ: 

.ASCII 

/ SI/ 

1950 012041 

116 

107 

114 


.ASCII 

mu 

1951 012044 

105 

040 

102 


.ASCII 

/E 8/ 

1952 012047 

111 

124 

040 


.ASCII 

/IT / 

1953 012052 

105 

122 

122 


.ASCII 

/ERR/ 

1954 012055 

117 

122 

000 


.ASCII 

/OR/<00> 

1955 012060 

040 

115 

125 

P.AFK: 

.ASCII 

/ MU/ 

1956 012063 

114 

124 

111 


.ASCII 

/LTI/ 

1957 012066 

120 

114 

105 


.ASCII 

/Pit/ 

1958 012071 

040 

102 

111 


.ASCII 

/ 81/ 

1959 012074 

124 

040 

105 


.ASCII 

/T E/ 

1960 012077 

122 

122 

117 


.ASCII 

/RRO/ 

1961 012102 

122 

000 



.ASCII 

/R/<00> 

1962 012104 

040 

040 

040 

P.AFL : 

.ASCII 

/ / 

1963 012107 

040 

040 

040 


.ASCII 

/ / 
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1965 




;M14AD 



1966 




9 


ROUTINE DECLARATION SECTION 

1967 







1968 012112 

040 

040 

040 


.ASCII 

/ / 

1969 012115 

122 

105 

107 


.ASCII 

/REG/ 

1970 012120 

111 

123 

124 


.ASCII 

/IST/ 

1971 012123 

105 

122 

040 


.ASCII 

/ER / 

1972 012126 

040 

040 

104 


.ASCII 

/ D/ 

1973 012131 

125 

115 

120 


.ASCII 

/UMP/ 

1974 012134 

000 

000 



.ASCII 

<00><00> 

1975 012136 

123 

105 

122 

P.AFM: 

.ASCII 

/SER/ 

1976 012141 

111 

101 

114 


.ASCII 

/IAl/ 

1977 012144 

040 

043 

000 


.ASCII 

/ 0/<OO> 

1978 012147 

000 




.ASCII 

<00> 

1979 012150 

040 

115 

105 

P.AFN: 

.ASCII 

/ ME/ 

1980 012153 

115 

040 

123 


.ASCII 

/M S/ 

1981 012156 

111 

132 

111 


.ASCII 

/111/ 

1982 012161 

116 

107 

000 


.ASCII 

/NG/<00> 

1983 012164 

040 

116 

117 

P.AFO: 

.ASCII 

/ NO/ 

1984 012167 

117 

120 

000 


.ASCII 

/0P/<00> 

1985 012172 

040 

104 

122 

P.AFP: 

.ASCII 

/ DR/ 

1986 012175 

126 

000 

000 


.ASCII 

/V/<00><00> 

1987 012200 

040 

127 

122 

P.AFO: 

.ASCII 

/ WR/ 

1988 012203 

111 

124 

105 


.ASCII 

/ITE/ 

1989 012206 

040 

103 

110 


.ASCII 

/ CH/ 

1990 012211 

105 

103 

113 


.ASCII 

/ECK/ 

1991 012214 

000 

000 



.ASCII 

<00><00> 

1992 012216 

040 

127 

122 

P.AFR: 

.ASCII 

/ WR/ 

1993 012221 

111 

124 

105 


.ASCII 

/ITE/ 

1994 012224 

000 

000 



.ASCII 

<00><00> 

1995 012226 

040 

122 

105 

P.AFS: 

.ASCII 

/ RE/ 

1996 012231 

101 

104 

000 


.ASCII 

/AD/<00> 

1997 012234 

040 

103 

114 

P.AFT: 

.ASCII 

/ CL/ 

1998 012237 

105 

101 

122 


.ASCII 

/EAR/ 

1999 012242 

000 

000 



.ASCII 

<00><00> 

2000 012244 

040 

103 

117 

P.AFU: 

.ASCII 

/ CO/ 

2001 012247 

115 

120 

040 


.ASCII 

/MP / 

2002 012252 

105 

122 

122 


.ASCII 

/ERR/ 

2003 012255 

117 

122 

000 


.ASCII 

/0R/<00> 

2004 012260 

040 

123 

131 

P.AFV: 

.ASCII 

/ sr/ 

2005 012263 

123 

040 

103 


.ASCII 

/s c/ 

2006 012266 

114 

122 

000 


.ASCII 

/LR/<00> 

2007 012271 

000 




.ASCII 

<00> 

2008 012272 

040 

123 

105 

P.AFW: 

. ASCII 

/ SE/ 

2009 012275 

101 

122 

103 


.ASCII 

/ARC/ 

2010 012300 

110 

000 



.ASCII 

/H/<00> 

2011 012302 

040 

122 

105 

P.AFX: 

.ASCII 

/ RE/ 

2012 012305 

101 

104 

055 


.ASCII 

/AD-/ 

2013 012310 

111 

116 

055 


.ASCII 

/IN-/ 

2014 012313 

120 

122 

105 


.ASCII 

/PRE/ 

2015 012316 

123 

105 

124 


.ASCII 

/SET/ 

2016 012321 

000 




.ASCII 

<00> 

2017 012322 

040 

111 

114 

P.AFY: 

.ASCII 

/ IL/ 

2018 012325 

114 

105 

107 


.ASCII 

/LEG/ 

2019 012330 

101 

114 

000 


.ASCII 

/AL/<00> 
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2023 

2024 012333 

000 




.ASCII 

<0C> 

2025 012334 

040 

101 

102 

P.AF2 : 

.ASCII 

/ AB/ 

2026 012337 

117 

122 

124 


.ASCII 

/ORT/ 

2027 012342 

000 

000 



.ASCII 

<00><00> 

2028 012344 

040 

101 

122 

P.AGA: 

.ASCII 

/ AR/ 

2029 012347 

122 

040 

122 


.ASCII 

/R R/ 

2030 012352 

104 

137 

127 


.ASCII 

/DU/ 

2031 012355 

122 

124 

000 


.ASCII 

/RT/<00> 

2032 012360 

040 

107 

117 

P.AG8: 

.ASCII 

/ GO/ 

2033 012363 

117 

104 

040 


.ASCII 

/OD / 

2034 012366 

102 

114 

113 


.ASCII 

/sue/ 

2035 012371 

000 




.ASCII 

<00> 

2036 012372 

040 

122 

105 

P.AGC: 

.ASCII 

/ RE/ 

2037 012375 

106 

122 

105 


.ASCII 

/FRE/ 

2038 012400 

123 

110 

000 


.ASCII 

/SH/<00> 

2039 012403 

000 




.ASCII 

<00> 

2040 012404 

040 

101 

122 

P.AGD: 

.ASCII 

/ AR/ 

2041 012407 

122 

101 

131 


.ASCII 

/RAV/ 

2042 012412 

000 

000 



.ASCII 

<00><00> 

2043 012414 

040 

122 

101 

P.AGE: 

.ASCII 

/ RA/ 

2044 012417 

H5 

055 

102 


.ASCII 

/H-6/ 

2045 012422 

125 

123 

000 


.ASCII 

/US/<00> 

2046 012425 

000 




.ASCII 

<00> 

2047 012426 

040 

117 

126 

P.AGF: 

.ASCII 

/ ov/ 

2048 012431 

105 

122 

106 


.ASCII 

/ERF/ 

2049 012434 

114 

117 

127 


.ASCII 

/LOU/ 

2050 012437 

000 




.ASCII 

<00> 

2051 012440 

040 

103 

110 

P.AGG: 

.ASCII 

/ CH/ 

2052 012443 

113 

137 

123 


.ASCII 

/K S/ 

2053 012446 

125 

115 

000 


.ASCII 

/UR/<00> 

2054 012451 

000 




.ASCII 

<00> 

2055 012452 

040 

114 

101 

P.AGH: 

.ASCII 

/ LA/ 

2056 012455 

123 

124 

040 


.ASCII 

/ST / 

2057 012460 

102 

114 

113 


.ASCII 

/8LK/ 

2058 012463 

000 




.ASCII 

<00> 

2059 012464 

040 

111 

116 

P.AGI: 

.ASCII 

/ IN/ 

2060 012467 

111 

124 

111 


.ASCII 

/in/ 

2061 012472 

101 

114 

111 


.ASCII 

/ALI/ 

2062 012475 

2063 012500 

132 

105 

000 


.ASCII 

/ZE/<00> 

040 

115 

114 

P.AGJ: 

.ASCII 

/ HL/ 

2064 012503 

2065 012506 

103 

123 

061 


.ASCII 

/C$1/ 

000 

000 



.ASCII 

<00><00> 

2066 012510 

040 

115 

114 

P.AGK: 

.ASCII 

/ HL/ 

2067 012513 

104 

123 

000 


.ASCII 

/DS/<00> 

2068 012516 

040 

115 

114 

P.AGL: 

.ASCII 

/ HL/ 

2069 012521 

105 

122 

000 


.ASCII 

/ER/<00> 

2070 012524 

040 

115 

114 

P.AGH: 

.ASCII 

/ HL/ 

2071 012527 

2072 012532 

2073 012535 

115 

122 

000 


.ASCII 

/HR/<00> 

040 

115 

114 

P.AGN: 

.ASCII 

/ HL/ 

101 

123 

000 


.ASCII 

/AS/<00> 

2074 012540 

040 

115 

114 

P.AGO: 

.ASCII 

/ HL/ 

2075 012543 

104 

101 

000 


.ASCII 

/DA/<00> 


29-Ha r- 1982 16:23:04 TOP 
29-Ha r-1 982 16:21:03 PA: 
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20 77 




; Ml 4 AD 



2078 




m 


ROUTINE DECLARATION SECTION 

2079 







2080 012546 

040 

115 

114 

P.AGP: 

.ASCII 

/ Ml/ 

2081 012551 

104 

124 

000 


.ASCII 

/DT/<00> 

2082 012554 

040 

115 

114 

P.AGQ: 

.ASCII 

/ Ml/ 

2083 012557 

120 

101 

000 


.ASCII 

/PA/<00> 

2084 012562 

040 

115 

114 

P.AGR: 

.ASCII 

/ ML/ 

2085 012565 

123 

116 

000 


.ASCII 

/SN/<00> 

2086 012570 

040 

115 

114 

P.AGS: 

.ASCII 

/ Ml/ 

2087 012573 

105 

061 

000 


.ASCII 

/E1/<00> 

2088 012576 

040 

115 

114 

P.A6T: 

.ASCII 

/ Ml/ 

2089 012601 

105 

m 

000 


.ASCII 

/E2/<00> 

2090 012604 

040 

115 

114 

P.AGU: 

.ASCII 

/ Ml/ 

2091 012607 

104 

061 

000 


.ASCII 

/D1/<00> 

2092 012612 

040 

115 

114 

P.AGV: 

.ASCII 

/ ML/ 

2093 012615 

104 

062 

000 


.ASCII 

/D2/<00> 

2094 012620 

040 

115 

114 

P.AGU: 

.ASCII 

/ ML/ 

2095 012623 

105 

105 

000 


.ASCII 

/EE/<00> 

2096 012626 

040 

115 

114 

P.AGX: 

.ASCII 

/ Ml/ 

2097 012631 

105 

114 

000 


.ASCII 

/EL/<00> 

2098 012634 

040 

115 

114 

P.AGV: 

.ASCII 

/ Ml/ 

2099 012637 

120 

104 

000 


.ASCII 

/PD/<00> 

2100 012642 

040 

115 

114 

P.AG2: 

.ASCII 

/ ML/ 

2101 012645 

103 

123 

062 


.ASCII 

/CS2/ 

2102 012650 

000 

000 



.ASCII 

<00><00> 

2103 012652 

040 

115 

114 

P.AHA: 

.ASCII 

/ Ml/ 

2104 012655 

127 

103 

000 


.ASCII 

/WC/<00> 

2105 012660 

040 

115 

114 

P.AHB: 

.ASCII 

/ ML/ 

2106 012663 

102 

101 

000 


.ASCII 

/BA/<00> 

2107 012666 

040 

115 

114 

P.AHC: 

.ASCII 

/ Ml/ 

2108 012671 

102 

101 

111 


.ASCII 

/8AI/ 

2109 012674 

000 

000 



.ASCII 

<00><00> 

2110 012676 

040 

115 

114 

P.AHD: 

.ASCII 

/ ML/ 

2111 012701 

103 

123 

063 


.ASCII 

/C$3/ 

2112 012704 

000 

000 



.ASCII 

<00><00> 

2113 012706 

101 

123 

131 

P.AHE: 

.ASCII 

/asv/ 

2114 012711 

116 

103 

110 


.ASCII 

/NCH/ 

2115 012714 

122 

117 

116 


.ASCII 

/RON/ 

2116 012717 

117 

125 

123 


.ASCII 

/OUS/ 

?117 012722 

040 

106 

101 


.ASCII 

/ FA/ 

2)18 012725 

111 

114 

125 


.ASCII 

/IIU/ 

2119 012730 

122 

105 

040 


.ASCII 

/RE / 

2120 012733 

115 

117 

104 


.ASCII 

/MOD/ 

2121 012736 

125 

114 

105 


.ASCII 

/ULE/ 

2122 012741 

040 

067 

063 


.ASCII 

/ 73/ 

2123 012744 

066 

061 

000 


.ASCII 

/61/<00> 

2124 012747 

000 




.ASCII 

<00> 

2125 012750 

123 

131 

116 

P.AHF: 

.ASCII 

/SVN/ 

2126 012753 

103 

110 

122 


.ASCII 

/cm/ 

2127 012756 

117 

116 

117 


.ASCII 

/OHO/ 

2128 012761 

125 

123 

040 


.ASCII 

/US / 

2129 012764 

106 

101 

111 


.ASCII 

/FAI/ 

2130 012767 

114 

125 

122 


.ASCII 

/LUR/ 

2131 012772 

105 

040 

115 


.ASCII 

/E M/ 


29-Mar-1982 16:23:04 
29-M»r~l982 1 6:21:03 
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LSAU REPORT CODE 

SECTION 






2133 





; ML 4 AD 



2134 

1C 





• 


ROUTINE DECLARATION SECTION 

2136 

012775 

117 

104 

125 


.ASCII 

/ODU/ 

2137 

013000 

114 

105 

040 


.ASCII 

/LE / 

2138 

013003 

067 

063 

066 


.ASCII 

7736/ 

2139 

013006 

062 

040 

000 


.ASCII 

/2 /<00> 

2140 

013011 

000 




.ASCII 

<00> 

2141 

013012 

101 

122 

122 

P.AHG: 

.ASCII 

/ARR/ 

2142 

013015 

101 

131 

040 


.ASCII 

/AY / 

2143 

013020 

104 

101 

124 


.ASCII 

/DAT/ 

2144 

013023 

101 

040 

106 


.ASCII 

/A F/ 

2145 

013026 

101 

111 

114 


.ASCII 

/AIL/ 

2146 

013031 

125 

122 

105 


.ASCII 

/URE/ 

2147 

013034 

040 

115 

117 


.ASCII 

/ MO/ 

2148 

013037 

104 

125 

114 


.ASCII 

/DUL/ 

2149 

013042 

105 

040 

067 


.ASCII 

/f V 

2150 

013045 

063 

066 

063 


.ASCII 

/363/ 

2151 

013050 

040 

000 



.ASCII 

/ /<00> 

2152 

013052 

115 

105 

115 

P.AHH: 

.ASCII 

/MEM/ 

2153 

013055 

117 

122 

131 


.ASCII 

/OR Y/ 

2154 

013060 

040 

101 

122 


.ASCII 

/ AR/ 

2155 

013063 

122 

101 

131 


.ASCII 

/RAY/ 

2156 

013066 

040 

106 

101 


.ASCII 

/ FA/ 

2157 

013071 

111 

114 

125 


.ASCII 

/ILU/ 

2158 

013074 

122 

105 

040 


.ASCII 

/RE / 

2159 

013077 

115 

117 

104 


.ASCII 

/MOD/ 

2160 

013102 

125 

114 

105 


.ASCII 

/ULE/ 

2161 

013105 

040 

067 

063 


.ASCII 

/ 73/ 

2162 

013110 

065 

067 

000 


.ASCII 

/57/<00> 

2163 

013113 

000 




.ASCII 

<00> 

2164 

013114 

111 

116 

124 

P.AHJ : 

.ASCII 

/INT/ 

2165 

013117 

105 

122 

115 


.ASCII 

/ERM/ 

2166 

013122 

105 

104 

111 


.ASCII 

/EDI/ 

2167 

013125 

101 

124 

105 


.ASCII 

/ATE/ 

2168 

013130 

040 

104 

111 


.ASCII 

/ DI/ 

2169 

013133 

101 

107 

116 


.ASCII 

/A GN/ 

2170 

013136 

117 

123 

124 


.ASCII 

/OST/ 

2171 

013141 

111 

103 

040 


.ASCII 

/1C / 

2172 

013144 

115 

105 

123 


.ASCII 

/MES/ 

2173 

013147 

123 

101 

107 


.ASCII 

/SAG/ 

2174 

013152 

105 

000 



.ASCII 

/E/<00> 

2175 

013154 

104 

101 

124 

P.AHJ: 

.ASCII 

/DAT/ 

2176 

013157 

101 

040 

114 


.ASCII 

/A L/ 

2177 

013162 

101 

124 

105 


.ASCII 

/ATE/ 

2178 

013165 

040 

105 

122 


.ASCII 

/ ER/ 

2179 

013170 

122 

117 

122 


.ASCII 

/ROR/ 

2180 

013173 

040 

104 

125 


.ASCII 

/ DU/ 

2181 

013176 

122 

111 

116 


.ASCII 

/RIN/ 

2182 

013201 

107 

040 

124 


.ASCII 

/6 T/ 

2183 

013204 

122 

101 

116 


.ASCII 

/RAN/ 

2184 

013207 

123 

106 

105 


.ASCII 

/SFE/ 

2185 

013212 

122 

000 



.ASCII 

/R/<00> 

2186 

013214 

123 

103 

040 

P.AHK: 

.ASCII 

/SC / 

2187 

013217 

102 

111 

124 


.ASCII 

/BIT/ 


SEQ 0070 

29-M4r-1982 16:23:04 TOP' 
29-M«r-1982 16:21:03 PA < 


CZHLADO HL-11 LOGIC TEST 
LSAU REPORT CODE SECTION 


2189 

2190 

2191 

2192 013222 

2193 013225 

2194 013230 

2195 013233 

2196 013236 

2197 013241 

2198 013244 

2199 013247 

2200 013250 

2201 013253 

2202 013256 

2203 013261 

2204 013264 

2205 013267 

2206 013272 

2207 013275 

2208 013300 

2209 013302 

2210 013305 

2211 013310 

2212 013313 

2213 013316 

2214 013321 

2215 013324 

2216 013327 

2217 013330 

2218 013333 

2219 013336 

2220 013341 

2221 013344 

2222 013347 

2223 013352 

2224 013355 

2225 013360 

2226 013363 

2227 013366 

2228 013371 

2229 

2230 

2231 

2232 013374 

2233 013374 

2234 013402 

2235 013402 

2236 014000 

2237 014000 

2238 014002 

2239 014002 

2240 014004 

2241 014006 

2242 014006 


MACRO Ml 113 30-MAR-82 11:18 
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• 


ROUTINE DECLARATION SECTION 

040 

123 

105 


.ASCII 

/ SE/ 

124 

040 

104 


.ASCII 

/T D/ 

125 

122 

111 


.ASCII 

/URI/ 

116 

107 

040 


.ASCII 

/NG / 

124 

122 

101 


.ASCII 

/TRA/ 

116 

123 

106 


.ASCII 

/HSF/ 

105 

122 

000 


.ASCII 

/ER/<00> 

000 




.ASCII 

<00> 

124 

122 

117 

P.AHL: 

.ASCII 

/TRO/ 

125 

102 

114 


.ASCII 

/UBL/ 

105 

040 

123 


.ASCII 

/E S/ 

110 

117 

117 


.ASCII 

/HOO/ 

124 

040 

114 


.ASCII 

/T L/ 

117 

117 

120 


.ASCII 

/OOP/ 

040 

105 

122 


.ASCII 

/ ER/ 

122 

117 

122 


.ASCII 

/ROR/ 

123 

000 



.ASCII 

/S/<00> 

122 

110 

040 

P.AHM: 

.ASCII 

/RH / 

103 

117 

116 


.ASCII 

/CON/ 

124 

122 

117 


.ASCII 

/TRO/ 

114 

114 

105 


.ASCII 

/LLE/ 

122 

040 

105 


.ASCII 

/R E/ 

122 

122 

117 


.ASCII 

/RAO/ 

122 

123 

000 


.ASCII 

/RS/<00> 

000 




.ASCII 

<00> 

104 

122 

111 

P.AHN: 

.ASCII 

/DAI/ 

126 

105 

040 


.ASCII 

/VE / 

110 

125 

116 


.ASCII 

/HUN/ 

107 

040 

101 


.ASCII 

/6 A/ 

106 

124 

105 


.ASCII 

/ETE/ 

122 

040 

115 


.ASCII 

/R N/ 

101 

123 

123 


.ASCII 

/ASS/ 

040 

102 

125 


.ASCII 

/ BU/ 

123 

040 

124 


.ASCII 

/S T/ 

122 

101 

116 


.ASCII 

/RAN/ 

123 

106 

105 


.ASCII 

/SEE/ 

122 

000 

000 


.ASCII 

/R/<00><00> 


NIB. SAVE: 

.8LKV 3 
HW.0R.T8l: 

.BUM 177 
PTBl.PTA: 

.BLAU 1 
OP.NUH.ARR: 

.BUM 1 
ARR. INC:. BLAU 1 
GOOD. SLA: 

.BlAW 1 


SEQ 0071 

29-Mar-1982 16:23:04 TOPS 
29-M«r-1982 16:21:03 PA:< 



000000 


CZHIADO ML-1 1 LOOK TEST 
i-VAU REPORT CODE SECTION 


2244 

2245 

2246 

2247 014010 

2248 014012 

2249 014012 

2250 014014 

2251 014016 

2252 014020 

2253 014022 

2254 015022 

2255 015034 

2256 015342 

2257 015344 

2258 015344 

2259 015346 

2260 015350 

2261 015352 

2262 015354 

2263 015354 

2264 015356 

2265 015356 

2266 015360 

2267 015360 

2268 015362 

2269 015364 

2270 015366 

2271 015370 

2272 015372 

2273 015374 

2274 015376 

2275 015400 

2276 015402 

2277 015402 

2278 015404 

2279 015405 

2280 015406 

2281 015410 

2282 015412 

2283 015414 

2284 015415 

2285 015416 

2286 015417 

2287 015420 

2288 015421 

2289 015422 

2290 015423 

2291 015424 

2292 015425 

2293 015426 

2294 015427 

2295 015430 

2296 015431 

2297 015432 

2298 015433 


000 

000 

004000 

173701 

160200 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 


NACRO Nil 13 30-NAR-82 


;NL4AD 


PAR.DIS: .BLKW 
CHIP. SI 2: 

.81 AW 
LST.BLK: .BLKW 
ARP. 16: .BLKW 
LST.ARR: .8LKW 
I0.8UF: .8LKW 
STK. OFF:. BLKW 
STACK: .BLKW 
PD. TEMP:. BLKW 
W.C.SI2E: 

.BLKW 
RAS. INC:. BLKW 
WT. DATA:. BLKW 
RD. DAT A:. BLKW 
DRIVE. TYPE: 

.BLKW 

LST.DUT.REG: 

.BLKW 

REG.INIT.FLG: 

.WORD 


A. CAL: 

B. CAL: 
P.CAL: 

A. GEN: 

B. GEN: 
P.GEN: 
P.CNT : 
LIFUT: 


.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


DROP.CNT : 

.BLKW 
NL.REG: .BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.NYTE 
.6>TE 
.BYTE 
.BYTE 


i 


SEQ 0072 



CO V 



CZNLADO *l~n LOGIC TEST 
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Uo REPORT CODE SECTION 


SEQ 0073 

i 2500 


; HI 4 AD 

29-Har-1982 16:23:04 TOPS 

f 2501 



ROUTINE DECLARATION SECTION 29-*«r-1982 16:21:03 PA:< 

2302 

; 2503 015454 

000 

.BYTE 

0 

2304 015455 

000 

.BYTE 

0 

2305 015436 

000 

.BYTE 

0 

2306 015437 

000 

.BYTE 

0 

2307 015440 

000 

.BYTE 

0 

2308 015441 

000 

.BYTE 

0 

2309 015442 

2310 015443 

000 

000 

.BYTE 

.BYTE 

0 

0 

2311 015444 

000 

.BYTE 

0 

2312 015445 

000 

.BYTE 

0 

2313 015446 

000 

.BYTE 

0 

2314 015447 

000 

.BYTE 

0 

2315 015450 

000 

.BYTE 

0 

2316 015451 

000 

.BYTE 

0 

2317 015452 

2318 015453 

000 

000 

.BYTE 

.BYTE 

0 

0 

2319 015454 

000 

.BYTE 

0 

2320 015455 

000 

.BYTE 

0 

2321 015456 

010600 

.WORD 

10600 

2322 015460 

025077 

.WORD 

25077 

2323 015462 

000100 

.WORD 

100 

2324 015464 

000 

.BYTE 

0 

2325 015465 

000 

.BYTE 

0 

2326 015466 

000 

.BYTE 

0 

2327 015467 

000 

.BYTE 

0 

2328 015470 

014620 

.WORD 

14620 

2329 015472 

2330 015473 

000 

000 

.BYTE 

.BYTE 

0 

0 

2331 015474 

000 

.BYTE 

0 

2332 015475 

2333 015476 

000 

.BYTE 

0 

000 

.BYTE 

0 

2334 015477 

000 

.BYTE 

0 

2335 015500 

000 

.BYTE 

0 

2336 015501 

000 

.BYTE 

0 

2337 015502 

177400 

.WORD 

-400 

2338 015504 

000 

.BYTE 

0 

2339 015505 

000 

.BYTE 

0 

2340 015506 

000 

.BYTE 

0 

2341 015507 

000 

.BYTE 

0 

2342 015510 

100000 

.WORD 

-100000 

2343 015512 

000 

.BYTE 

0 

2344 015513 

000 

.BYTE 

0 

2345 015514 

000 

.BYTE 

0 

2346 015515 

000 

.BYTE 

0 

2347 015516 

000 

.BYTE 

0 

2348 015517 

000 

.BYTE 

0 

2349 015520 

000 

.BYTE 

0 

2350 015521 

000 

.BYTE 

0 

2351 015522 

000 

.BYTE 

0 

2352 015523 

000 

.BYTE 

0 

2353 015524 

000 

.BYTE 

0 

2354 015525 

000 

.BYTE 

0 



CZMLADO ML-11 LOGIC TEST 
LtAU REPORT CODE SECTION 


SEO 0074 


J 6 
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2356 

2357 

2358 

2359 015526 


;ML4AD 

» 

ROUTINE DECLARATION SECTION 

000 

.BYTE 

0 

2360 015527 

000 

.BYTE 

0 

2361 015530 

000020 

.WORD 

20 

2362 015532 

177400 

.WORD 

-400 

2363 015534 

000 

.BYTE 

0 

2364 015535 

000 

.BYTE 

0 

2365 015536 

2366 015540 

000110 

.WORD 

110 

177666 

.WORD 

-112 

2367 015542 

000001 

.WORD 

1 

2368 015544 

000 

.BYTE 

0 

2369 015545 

000 

.BYTE 

0 

2370 015546 

000 

.BYTE 

0 

2371 015547 

000 

.BYTE 

0 

2372 015550 

000 

.BYTE 

0 

2373 015551 

000 

.BYTE 

0 

2374 015552 

000 

.BYTE 

0 

2375 015553 

000 

.BYTE 

0 

2376 015554 

000 

.BYTE 

0 

2377 015555 

000 

.BYTE 

0 

2378 015556 

000 

.BYTE 

0 

2379 015557 

000 

.BYTE 

0 

2380 015560 

140300 

.WORD 

-37500 

2381 015562 

000 

.BYTE 

0 

2382 015563 

000 

.BYTE 

0 

2383 015564 

000 

.BYTE 

0 

2384 015565 

000 

.BYTE 

0 

2385 015566 

000 

.BYTE 

0 

2386 015567 

000 

.BYTE 

0 

2387 015570 

100300 

.WORD 

-77500 

2388 015572 

000 

.BYTE 

0 

2389 015573 

000 

.BYTE 

0 

239C 015574 

000 

.BYTE 

0 

2391 015575 

000 

.BYTE 

0 

2392 015576 

000 

•BVTF 

0 

2393 015577 

000 

.BYTE 

0 

2394 015600 

000 

.BYTE 

0 

2395 015601 

000 

.BYTE 

0 

2396 015602 

000 

.BYTE 

0 

2397 015603 

000 

.BYTE 

0 

2398 015604 

000 

.BYTE 

0 

2399 015605 

000 

.BYTE 

0 

2400 015606 

000 

.BYTE 

0 

2401 015607 

000 

.BYTE 

0 

2402 015610 

000 

.BYTE 

0 

2403 015611 

000 

.BYTE 

0 

2404 015612 

000 

.BYTE 

0 

2405 015613 

000 

.BYTE 

0 

2406 015614 

000 

.BYTE 

0 

2407 015615 

000 

.BYTE 

0 

2408 015616 

000 

.BYTE 

0 

2409 015617 

000 

.BYTE 

0 

2410 015620 

010000 

.WORD 

10000 


29-M*r-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 
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11:13 PAGL 92 



LSAU REPORT CODE SECTION 





SEG 0075 

2412 


;ML4AD 



29-Har-1982 

16:23:04 TOPS 

2413 




ROUTINE DECLARATION SECTION 

29-Mar-1982 

16:21:03 PA:< 

2414 







2415 015622 

000 


.BYTE 

0 



2416 015623 

000 


.BYTE 

0 



2417 015624 

000 


.BYTE 

0 



2418 015625 

000 


.BYTE 

0 



2419 015626 

000 


.BYTE 

0 



2420 015627 

000 


.BYTE 

0 



2421 015630 

000 


.BYTE 

0 



2422 015631 

000 


.BYTE 

0 



2423 015632 

000 


.BYTE 

0 



2424 015633 

000 


.BYTE 

0 



2425 015634 

000 


.BYTE 

0 



2426 015635 

000 


-BYTE 

0 



2427 015636 

000 


.BYTE 

0 



2428 015637 

000 


.BYTE 

0 



2429 015640 

000 


.BYTE 

0 



2430 015641 

000 


.BYTE 

0 



2431 015642 

000 


.BYTE 

0 



2432 015643 

000 


.BYTE 

0 



2433 015644 

000 


.BYTE 

0 



2434 015645 

000 


.BYTE 

0 



2435 015646 

000 


.BYTE 

0 



2436 015647 

000 


.8YTE 

0 



2437 015650 

000 


.BYTE 

0 



2438 015651 

000 


.BYTE 

0 



2439 015652 

000 


.BYTE 

0 



2440 015653 

000 


.BYTE 

0 



2441 015654 

000 


.BYTE 

0 



2442 015655 

000 


.BYTE 

0 



2443 015656 

000 


.BYTE 

0 



2444 015657 

000 


.BYTE 

0 



2445 015660 

000 


.BYTE 

0 



2446 015661 

000 


.BYTE 

0 



2447 015662 

000000 


.WORD 

0 



2448 015664 

001001 

REM.T8L 

:.WORD 

1001 



2449 015666 

004004 


.WORD 

4004 



2450 015670 

020020 


.WORD 

20020 



2451 015672 

003003 


.WORD 

3003 



2452 015674 

014014 


.WORD 

14014 



2453 015676 

021460 


.WORD 

21460 



2454 015700 

005005 


.WORD 

5005 



2455 015702 

024024 


.WORD 

24024 



2456 015704 

023023 


.WORD 

23023 



2457 015706 

017017 


.WORD 

17017 



2458 015710 

035474 


.WORD 

35474 



2459 015712 

024465 


.WORD 

24465 



2460 015714 

021021 


.WORD 

21021 



2461 015716 

007007 


.WORD 

7007 



2462 015720 

034034 


.WORD 

34034 



2463 015722 

022463 


.WORD 

22463 



2464 015724 

011011 


.WORD 

11011 



2465 015726 

005444 


.WORD 

5444 



2466 015730 

026026 


.WORD 

26026 
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SEQ 0076 


2468 

2469 

2470 

2471 015732 

033033 

;ML4>.y 

9 

.WORD 

ROUTINE DECLARATION SECTION 

33033 

2472 015734 

016457 


.WORD 

16457 

2473 015736 

033472 


.WORD 

33472 

2474 015740 

014455 


.WORD 

14455 

2475 015742 

023462 


.WORD 

23462 

24^6 015744 

015015 


.WORD 

15015 

247 7 015746 

025464 


.WORD 

25464 

24/8 015750 

025025 


.WORD 

25025 

2479 015752 

027027 


.WORD 

27027 

2480 015754 

037037 


.WORD 

37037 

2481 015756 

0364^7 


.WORD 

36477 

2482 015760 

030‘. 1 


.WORD 

30471 

2483 015762 

2484 

2485 015764 

041 


.BYTE 

.EVEN 

.WORD 

41 

064477 

0T.1: 

64477 

2486 015766 

007700 


.WORD 

7700 

2487 015770 

000 


.BYTE 

0 

2488 015771 

000 


.BYTE 

0 

2489 015772 

064477 


.WORD 

64477 

2490 015774 

000077 


.WORD 

77 

2491 015776 

000 


.BYTE 

0 

2492 015777 

000 


.BYTE 

0 

2493 016000 

100577 


.WORD 

-77201 

2494 016002 

017700 


.WORD 

17700 

2495 016004 

077 


.BYTE 

77 

2496 016005 

000 


.BYTE 

0 

2497 016006 

100577 


.WORD 

-77201 

2498 016010 

000000 


.WORD 

0 

2499 016012 

077 


.BYTE 

77 

2500 016013 

000 


.BYTE 

0 

2501 016014 

100577 


.WORD 

-77201 

2502 016016 

010077 


.WORD 

10077 

2503 016020 

077 


.BYTE 

77 

2504 

2505 016022 


RH.ADD: 

.EVEN 

.BLKW 

1 

2506 016024 


RH.TYP: 

.BLKW 

1 

2507 016026 


RH.VEC: 

.BLKW 

1 

2508 016030 


ML.LUN: 

.BLKW 

1 

2509 016032 


ML.DUT : 

.BLKW 

1 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

100000 

BIT 15== 

.GLOBL 

.GL08L 

REGDMP. ONEPAS. INTERVEN, F 
ERRTHR 

-100000 

2517 

040000 

BIT14== 


40000 

2518 

020000 

BIT 13== 


20000 

2519 

010000 

BIT 12== 


10000 

2520 

004000 

BIT1 1== 


4000 

2521 

002000 

BIT 10== 


2000 

2522 

001000 

8IT09== 


1000 


29-M*r-1982 16:23:04 TOP 
29-M«r-1982 16:21:03 PA: 


L 


<s> v 


CZHLADO HL- 

11 LOGIC TEST 

MACRO H1 113 30-MAR-82 
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LSAU report 

2524 

2525 

2526 

2527 

COOE SECTION 

; Ml 4 AD 
• 

ROUTINE DECLARATION SECTION 

000400 

BIT08== 

400 

2528 

000200 

BIT07== 

200 

2529 

000100 

BIT06== 

100 

2530 


BI T05== 

40 

2531 

000020 

81 T04== 

20 

2532 


BIT03- 

10 

2533 

000004 

81102== 

4 

2534 

wnw'mmm 

BI T01 == 

2 

2535 


BIT00== 

1 

2536 

* ? K'H'X'I 

BIT9== 

1000 

2537 

000400 

BIT8== 

400 

2538 

000200 

BIT7== 

200 

2539 


8IT6== 

100 

2540 


8IT5== 

40 

2541 

' ■y|y • 

BIT4== 

20 

2542 


8IT3== 

10 

2543 

||19yjy r i .wSifii 

BIT2== 

4 

2544 

yl ;; Ivm’ V 

BIT1== 

2 

2545 


81 T0== 

1 

2546 

iiliHiVi:* y 

EF. START— 

40 

2547 

sfof- ■ilfiii » 

EF. RESTART— 

37 

2548 

■iii y l Si.-V'ir 

EF. CONTINUE— 

36 

2549 

fc,-.»iyy i vlfP 

EF.NEU== 

36 

255C 


EF.PWR== 

34 

2551 

jSSBiJy*" iflispflNi 

PR 107== 

340 

2552 


PR I 06== 

300 

2553 

sSS&WlIIJlk '/ iBfeill 

PR I 05== 

240 

2554 

000200 

PR I 04== 

200 

2555 

000140 

PR 1 03— 

140 

2556 

000100 

PR I 02== 

100 

2557 

i • iMirMi 

PRI01— 

40 

2558 

fe«i • • y '■HHp 

PR 1 00— 

0 

2559 


EVL— 

4 

2560 

VMwam 

LOT— 

10 

2561 

000020 

ADR== 

20 

2562 

000040 

IDU== 

40 

2563 


ISR== 

100 

2564 


UAM== 

200 

2565 

i^K»>:i:iMi!i^^^S 

B0E— 

400 

2566 

001000 

PNT— 

1000 

2567 


PRI— 

2000 

2568 

l-iv Mytiytim; 

IXE— 

4000 

2569 

- B'l vtvl 

IBE== 

10000 

2570 

^.-*Mif yty®' 

IER== 

20000 

2571 

. K^vtyl 

L0E== 

40000 

2572 


HOE— 

-100000 

2573 


T.21- 

P.AAA 

2574 

005012 

T.61 = 

P.AAB 

2575 

005112 

PWR.0FF= 

P.AAC 

2576 

005202 

PUR. ON- 

P.AAD 

2577 

005272 

UNS.ERR= 

P.AAE 

2578 

005340 

VV.N0T.SET= 

P.AAF 


SEQ 0077 

29-Ha r- 1982 16:23:04 TOPS 
29-Har-1982 16:21:03 PA:*. 




CZMLADO ML- 

11 LOGIC TEST 
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L$AU REPORT 

2580 

2581 

2582 

2583 

CODE SECTION 

;ML4AD 

• 

ROUTINE DECLARATION SECTION 

005414 

VV. CLEAR= 

P.AAG 

2584 

005470 

NO.INIT= 

P.AAH 

2585 

005570 

MB.DIS.ERR= 

P.AAI 

2586 

005652 

WC.ERR= 

P.AAJ 

2587 

005722 

W.ER R= 

P.AAK 

2588 

005764 

VV.SET= 

P.AAL 

2589 

006060 

PUP. 88= 

P.AAM 

2590 

006150 

B8.VV.ERR= 

P.AAN 

2591 

006242 

B8.INIT.ERR= 

P.AAO 

2592 

006334 

88.88. ERR= 

P.AAP 

2593 

006442 

EMT.1= 

P.AAO 

2594 

006506 

FMT. 2= 

P.AAR 

2595 

006574 

FMT.3= 

P.AAS 

2596 

006620 

FMT.4= 

P.AAT 

2597 

006650 

FMT.5= 

P.AAU 

2598 

006752 

FMT.6= 

P.AAV 

2599 

007002 

FMT.7= 

P.AAU 

2600 

007030 

FMT . 8= 

P.AAX 

2601 

007064 

FMT.9= 

P.AAY 

2602 

007116 

FMT. 10= 

P.AAZ 

2603 

007170 

FMT. 11= 

P.ABA 

2604 

007224 

FMT. 12= 

P.A88 

2605 

007254 

FMT. 13= 

P.ABC 

2606 

007330 

FMT. 14= 

P.ABD 

2607 

007370 

FMT. 15= 

P.ABE 

2608 

007436 

FMT. 16= 

P.ABF 

2609 

007526 

FMT. 17= 

P.ABG 

2610 

007562 

FMT. 18= 

P.ABH 

2611 

007632 

FMT. 19= 

P.A8I 

2612 

007702 

FMT. 20= 

P.ABJ 

2613 

007754 

FMT. 21= 

P.A8K 

2614 

010026 

FMT. 22= 

P.A6L 

2615 

010072 

FMT. 23= 

P.ABM 

2616 

010142 

FMT. 24= 

P.A8N 

2617 

010166 

FMT. 25= 

P.ABO 

2618 

010206 

FMT. 26= 

P.A8P 

2619 

010240 

ONE. FMT = 

P.ABO 

2620 

010246 

TWO. FMT = 

P.A8R 

2621 

010256 

THR.FMT= 

P.A8S 

2622 

010270 

FOR.FMT= 

P.ABT 

2623 

010304 

FJV.FMT= 

P.ABU 

2624 

010322 

SIX.FMT= 

P.ABV 

2625 

010342 

SEV.FMT= 

P.ABU 

2626 

010364 

EIG.FMT= 

P.ABX 

2627 

010410 

NIN.FMT= 

P.ABY 

2628 

010436 

TEN.FMT= 

P.ABZ 

2629 

010466 

EL V. FMT* 

P.ACA 

2630 

010520 

WRD.1= 

P.ACB 

2631 

010524 

WRD.2= 

P.ACC 

2632 

2633 

010536 

010544 

WRD.3* 

URD.4= 

P.ACD 

P.ACE 

2634 

010552 

WRD.5= 

P.ACF 


SEO 0078 

29-Mar-1982 16:23:04 TOP 

29-Mar-1982 16:21:03 PA- 


A 


CZMLADO ML-11 LOGIC TEST 
LSAU REPORT CODE SECTION 


MACRO Mil 13 30-MAR 


2636 


; ML 4 AD 

2637 


9 

2638 



2639 

010560 

WRD. 6= 

2640 

010566 

WRD. 7= 

2641 

010602 

WRD. 8= 

2642 

010616 

WRD. 9= 

2643 

010630 

WRD. 10= 

2644 

010640 

WRD. 11= 

2645 

010650 

WRD. 12= 

2646 

010660 

WRD. 13= 

2647 

010664 

WRD. 14= 

2648 

010676 

WRD. 15= 

2649 

010704 

WRD. 16= 

2650 

010712 

WRD. 17= 

2651 

010724 

WRD. 18= 

2652 

010730 

WRD. 19= 

2653 

010736 

WRD. 20= 

2654 

010744 

WRD. 21= 

2655 

010752 

WRD. 22= 

2656 

010766 

WRD. 23= 

2657 

010774 

WRD. 24= 

2658 

011002 

WRD. 25= 

2659 

011016 

WRD. 26= 

2660 

011024 

WRD. 27= 

2661 

011032 

WRD. 29= 

2662 

011046 

WRD. 30= 

2663 

011054 

WRD. 31= 

2664 

011070 

WRD. 32= 

2665 

011076 

WRD. 33= 

2666 

011102 

WRD. 34= 

2667 

011110 

WRD. 35= 

2668 

011116 

WRD. 36= 

2669 

011122 

WRD. 37= 

2670 

011132 

WRD. 38= 

2671 

011140 

WRD. 39= 

2672 

011150 

WRD. 40= 

2673 

011154 

WRD. 41= 

2674 

011170 

WRD. 42= 

2675 

011176 

WRD. 43= 

2676 

011206 

WRD. 44= 

2677 

011214 

WRD. 45= 

2678 

011226 

WRD. 46= 

2679 

011240 

WRD. 47= 

2680 

011250 

WRD. 48= 

2681 

011260 

WRD. 49= 

2682 

011270 

WRD. 50= 

2683 

011276 

WRD. 51= 

2684 

011310 

WRD. 52= 

2685 

011316 

WRD. 53= 

2686 

011326 

WRD. 54= 

2687 

011336 

WRD. 55= 

2688 

011344 

WRD. 56= 

2689 

011352 

WRD. 57= 

2690 

011362 

WRD. 58= 
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SEO 0079 


ROUTINE DECLARATION SECTION 

P.ACG 

P.ACH 

P.ACI 

P.ACJ 

P.ACK 

P.ACL 

P.ACH 

P.ACN 

P.ACO 

P.ACP 

P.ACO 

P.ACR 

P.ACS 

P.ACT 

P.ACU 

P.ACV 

P.ACU 

P.ACX 

P.ACV 

P.ACZ 

P.ADA 

P.AD6 

P.ADC 

P.ADD 

P.ADE 

P.ADF 

P.ADG 

P.AOH 

P.ADI 

P.ADJ 

P.ADK 

P.ADL 

P.AOH 

P.ADN 

P.ADO 

P.ADP 

P.ADO 

P.AOR 

P.ADS 

P.ADT 

P.AOU 

P.AOV 

P.AOU 

P.ADX 

P.ADY 

P.ADZ 

P.AEA 

P.AEB 

P.AEC 

P.AED 

P.AEE 

P.AEF 



1 CZMLADO ML- 
LtAU REPORT 

2692 

2693 

11 LOGIC TEST 

CODE SECTION 

MACRO Mil 13 30-MAR-S2 

; ML 4 AD 
• 

11:18 PAGE 5 ? 7 

ROUTINE DECLARATION SECTION 

2694 

2695 

011374 

WRD.59= 

P.AEG 

2696 

2697 

011400 

WRD. 60= 

P.AEH 

011416 

WRD. 61= 

P.AEI 

2698 

011432 

WRD.62= 

P.AEJ 

2699 

011440 

WRD. 63= 

P.AEK 

2700 

011446 

WRD.64= 

P.AEL 

2701 

011454 

WRD. 65= 

P.AEM 

2702 

011462 

WRD.67= 

P.AEN 

2703 

011470 

WRD. 68= 

P.AEO 

2704 

011474 

WRD. 69= 

P.AEP 

2705 

011502 

WRD. 70= 

P.AEQ 

2706 

011514 

WRD. 71= 

P.AER 

2707 

011524 

WRD. 72= 

P.AES 

2708 

011532 

WRD. 73= 

P.AET 

2709 

011540 

WRD. 74= 

P.AEU 

2710 

011552 

WRD. 75= 

P.AEV 

2711 

011562 

WRD. 76= 

P.AEW 

2712 

011570 

WRD. 77= 

P.AEX 

2713 

011610 

PHR . 1 = 

P.AET 

2714 

011626 

PHR.2= 

P.AE2 

2715 

011644 

PHR. 3= 

P.AFA 

2716 

011676 

PHR. 4= 

P.AFB 

2717 

011714 

PHR. 5= 

P.AFC 

2718 

011726 

PHR. 6= 

P.AFD 

2719 

011740 

PHR. 7= 

P.AFE 

2720 

011762 

PHR. 8= 

P.AFF 

2721 

011774 

PHR. 9= 

P.AFG 

2722 

012006 

PHR. 10= 

P.AFH 

2723 

012020 

PHR. 11= 

P.AFI 

2724 

012036 

PHR. 12= 

P.AFJ 

2725 

012060 

PHR. 13= 

P.AFK 

2726 

012104 

PHR. 14= 

P.AFL 

2727 

012136 

PHR. 15= 

P.AFH 

2728 

012150 

FNC.1= 

P.AFN 

2729 

012164 

FNC.2= 

P.AFO 

2730 

012172 

FNC.3= 

P.AFP 

2731 

012200 

FNC. 4= 

P.AFQ 

2732 

0^2216 

FNC. 5= 

P.AFR 

2733 

012226 

FNC.6= 

P.AFS 

2734 

012234 

FNC.7= 

P.AFT 

2735 

012244 

FNC.8= 

P.AFU 

2736 

012260 

FNC.9= 

P.AFV 

2737 

012272 

FNC.10= 

P.AFW 

2738 

012302 

FNC. 1 1= 

P.AFX 

2739 

012322 

FNC.12= 

P.AFT 

2740 

012334 

FNC. 13= 

P.AFZ 

2741 

012344 

FNC. 14= 

P.AGA 

2742 

012560 

FNC. 15= 

P.AGB 

2743 

012372 

FNC. 16= 

P.AGC 

2744 

012404 

FNC. 17= 

P.AGD 

2745 

012414 

FNC. 18= 

P.AGE 

2746 

012426 

FNC. 19= 

P.AGF 


i 



r-1982 

r-1982 


SEO 0080 

16:23:04 TOPS 
16:21:03 PA:< 



C2MLAD0 ML-11 LOGIC TEST 
LSAU REPORT CODE SECTION 


2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2795 

2796 

2797 

2798 

2799 

2800 
2801 


016034 

016034 

016040 

016044 

016050 

016052 

016056 


012440 

012452 

012464 

012500 

012510 

012516 

012524 

012532 

012540 

012546 

012554 

012562 

012570 

012576 

012604 

012612 

012620 

012626 

012634 

012642 

012652 

012660 

012666 

012676 

012706 

012750 

013012 

013052 

013114 

013154 

013214 

013250 

013302 

013330 

013374 

013376 

013400 


004167 

016601 

012702 

060102 

016601 

016600 
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-ML 4 AD 

; ROUTINE DECLARATION SECTION 

FNC.21= P.AGG 

FNC.22= P.AGH 

FNC.23= P.AGI 

REG. I s P.AGJ 

REG. 2= P.AGK 

REG. 3= P.AGL 

REG. 4= P.AGM 

REG. 5= P.AGN 

REG. 6= P.AGO 

REG. 7= P.AGP 

REG. 8= P.AGO 

REG. 9= P.AGR 

REG. 10= P.AGS 

REG. 11= P.AGT 

REG. 12= P.AGU 

REG. 13= P.AGV 

REG. 14= P.AGW 

REG. 15= P.AGX 

REG. 16= P.AGY 

REG. 17= P.AGZ 

REG. 18= P.AHA 

REG. 19= P.AHB 

REG. 20= P.AHC 

REG. 21= P.AHD 

ASYNC* P.AHE 

SYNC= P.AHF 

AAR.DAT= P.AHG 

MEM.ARR= P.AHH 

INTER= P.AHI 

DATA.LATE= P.AHJ 

$C.$ET= P.ANK 

TR8LE.L00P= P.AHL 

RH.ERROR= P.AHM 

TIME.OUT= P.AHN 

D1.TEMP= NIB. SAVE „ 

D2.TEMP= NIB.SAVE+2 

E2.TEMP= NIB. SAVE *4 


SEO 0081 


166514 

000012 

015022 

000014 

000012 


29-M*r-1982 16:23:04 
29-ftor-1982 16:21:03 


•SBTTL LOAD. STACK ROUTINE DECLARATION SECTION 


LOAD. STACK: 
JSR 
MOV 
MOV 
ADD 
MOV 
MOV 


R1.SSAVE3 

12(SP),R1 

#STK.0FF,R2 

R1.R2 

14(SP) ,R1 

12(SP>,R0 


; NI8.PTR,* 


; STK.PTR # * 
; NI8.PTR.* 


2267 

2322 
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I LOAD. STACK ROUTINE DECLARATION SECTION 


30-NAR-82 11:18 
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SEO 0083 


2859 

2860 
2861 

2862 016250 

2863 016252 

2864 016254 

2865 016256 

2866 016260 

2867 016264 

2868 016266 

2869 016270 

2870 016272 

2871 016274 

2872 016276 

2873 016302 

2874 016304 

2875 016306 

2876 016310 

2877 016312 

2878 016314 

2879 016316 

2880 016320 
2S81 01632 

2882 0163 

2883 0163? 

2884 0163i_ 

2885 016336 

2886 016342 

2887 016346 

2888 016350 

2889 016352 

2890 016354 

2891 016356 

2892 016362 

2893 016364 

2894 016366 

2895 016370 

2896 016372 

2897 016374 

2898 016400 

2899 016404 

2900 016410 

2901 

2902 

2903 

2908 

2909 


005003 

151203 

010100 

160300 

016703 

000421 

005003 

151203 

010100 

160300 

016703 

006203 

006203 

006203 

006203 

000406 

005003 

151203 

010100 

160300 

016703 

000303 

042703 

105060 

150360 

000207 

005003 

151203 

160301 

016703 

006203 

006203 

006203 

006203 

000303 

042703 

105061 

150361 

000207 


175112 


175074 


175050 

177760 

015034 

015034 


175016 


177770 

015034 

015034 


; ML 4 AD 


98: 


108: 


118: 


128: 


138: 

148: 


158: 


CLR 

Bisa 

NOV 

SUB 

NOV 

BR 

CLR 

B1SB 

NOV 

SUB 

NOV 

ASR 

ASR 

ASR 

ASR 

BR 

CLR 

BISB 

NOV 

SUB 

NOV 

SWAB 

31 C 

CLRB 

BISB 

RTS 

CLR 

BISB 

SUB 

NOV 

ASR 

ASR 

ASR 

ASR 

SUAB 

BIC 

CLRB 

BJSB 

RTS 


ROUTINE DECLARATION SECTION 
R3 

(R2).R3 
R1 ,R0 
R3.R0 

N|B.SAVE*2,R3 

(R2).R3 

A1.R0 

R3.R0 

NIB. SAVE *2,83 
R3 

R3 

R3 

138 

R3 

(R2) ,R3 

R1.R0 

R3.R0 

NIB. SAVE *4, R3 

#177760,83 
STACK (RO) 

R3, STACK <R0) 

PC 

R3 

<R2).R3 
R3.R1 

NIB. SAVE *4,83 

rJ 

R? 

r3 


I177770.R3 
STACK <R1> 
R3,STACK(R1) 
PC 


29-Nar-1982 16:21:04 
29-Nar-1982 16:21:03 


TOPS 

PA:< 

2346 


2350 


2354 


2318 

2358 


2267 


Routine Size: 119 words 

Maxim* stack depth per invocation: 4 words 
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LOAD. STACK ROUTINE DECLARATION SECTION 
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SEQ 0084 


2911 ;HL4AD 

2912 ; 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2941 

2942 

2946 016412 

2947 016412 

2948 016420 

2949 016426 

2950 016434 

2951 016442 

2952 

2953 

2954 

2959 

2960 


2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 


152777 

016777 

012777 

012777 

000207 


ROUTINE DECLARATION SECTION 
routine DAT.DM.XFER : nowelue = 


Functional description: 

A REPEATEDLY CALLED SEQUENCE 
Of ASSIGNMENT EXPRESSIONS TO 
LOAD THE DSA, BUS ADRS AND WORD 
COUNT REGISTERS WITH APPROPRIATE 
INFORMATION BEFORE A MASS BUS 
TRANSFER CAN COMMENCE 

LOADS A NASS BUS BLOCK TRANSFER, 
IN DI'* NOSTIC MODE, AT THE GOOD 
BLOCK ADRS. 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bllss-16 V2C212) 
PA:<NEALE>ML4AD.8LI.4 ($> 


begin 

DAT. DM = ONE; 

HLDX = .GOOD BLK; 
MLBA = 10 BUF: 
MLWC = noE 255; 
end; 


•SET DATA DIAG MODE 

‘LOAD DSA REG WITH THE GOOD BLOCK ADRS 
ILOAD BUS ADRS REG WITH THE 10 BUF ADRS 
!L0AD WORD COUNT REG WITH CONPtlMENT 256 


DAT.DM.XFER ROUTINE DECLARATION SECTION 


000010 

177104 

BISB 

175362 

177006 

MOV 

014022 

176770 

MOV 

177400 

176752 

MOV 



RTS 


.SBTTL 

DAT.DM.XFER: 

#10,8ML.REG+120 
GOOD. BLK. 8ML. RE 6+30 
#10. BUF ,8ML .REG+20 
#-400, 8ML. REG+10 
PC 

Routine Size: 13 words 
Maxim* stack depth per Invocation: 


2382 

2383 

2384 

2385 
2363 


0 words 


C2WLADC *-11 LOGIC TEST MACRO H1113 

DAT. DM. XFER ROUTINE DECLARATION SECTION 


30-MAA-82 lisle 


2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 


; AL4AD 


ROUTINE DECLARATION SECTION 

routine STRIPPER (WRD.CNT. NI8.CNT) 
begin 


H 7 
PAGE 102 


novalue = 


SEQ 0085 


9-Mar-19$2 16:23:04 
9-Mar-1982 16 21:03 


TOPS-20 Bl1**-16 V2(212) 
PA : <NE ALE>ML 4 AD. Bl 1 .4 (6> 


2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 


FUNCTIONAL DESCRIPTION: 

STRIPPER RUNS IN DATA D1AG NODE AND STRIPS OUT 
A VARIABLE NUMBER OF GOOD NIBBLES FROM THE 
GOOD BLOCK AND STORES THEM INTO A CONTIGIOUS 
STACK FOR SEQUENTIAL ACCESSING 

FORMAL PARAMETERS: 

URD CNT 

TELCS STRIPPER HOW MANY WORDS IN THE GOOD 
BLOCK TO READ OUT 

NIB CNT 

TELtS STRIPPER HOW MANY NIBBLES TO 
STRIP OUT OF EACH WORD. 


IMPLICIT INPUTS: 

local 

STK.PTR; 

incr CNT fro* 0 to .NIB CNT do 
STK.OFF C.CNTJ = ZEROES; 

CLR.MBUS; 

STK.PTR = -1; 

DAT DM XFER O; 

MLCSl = read; 

DELAY (ONE.US); 

incr CNT from 0 to .WRD.CNT do 
begin 

PD TEMP = .MLPD; 

DAT CLK = ONE; 

DELAY (ONE.US); 

RD.LNG.WRD; 

incr NIB PTR from 0 to .NIB.CNT do 
begin 

STK.PTR = .STK.PTR ♦ 1; 

if .PD TEMP C.NI8.PTR3 IS.SET 
then 

STK.OFF C.NI8.PTR3 = (.STK. 


.'STACK POINTER 

•CLEAR OUT THE STACK OFFSETS 


•RESET THE STACK POINTER 

.'SET UP A DATA XFER AT THE GOOD BLOCK 

•DO A READ XFER 

! ALLOW PROM DATA TO GET INTO THE MLPD REG 

•LOAD THE STACK WITH ALL GOOD NIBBLE DATA 

•GET THE PROM DATA 
i CLOCK OUT THE DATA WORD 

i 

•READ DATA DIAG REGS INTO NIBBLE SAVE 

! STRIP OUT X NUMBER OF NIB8LES 

•INCREMENT THE STACK POINTER 

•SEE IF THIS A GOOD NI88LE 

OFF C.NIB PTRJ) ♦ (.NIB CNT ♦ 1) 

!THER INCREMENT IT t S STACK OFFSET 


LOAD. STACK (.STK.PTR. .NIB.PTR); 


.'ELSE LOAD THE NIBBLE iN THE STACK 
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OAT.DN.XFER ROUTINE DECLARATION SECTION 
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SEO 0086 


;NL4AD 


3021 ; 

2439 

3022 ; 

2440 

30 23 ; 

2441 

3024 ; 

2442 

3025 ; 

2443 

3026 ; 

3030 

3031 

2444 


3032 
303? 

303A 

3038 016444 

3039 016444 

3040 016450 

3041 016452 

3042 016456 

3043 016460 

3044 016462 

3045 016466 

3046 016470 

3047 016472 

3048 016474 

3049 016502 

3050 016506 

3051 016512 

3052 016520 

3053 016524 

3054 016530 

3055 016534 

3056 016542 

3057 016546 

3058 016550 

3059 016554 

3060 016556 

3061 016560 

3062 016562 

3063 016564 

3064 016566 

3065 016570 

3066 016572 

3067 016574 

3068 016602 

3069 016610 

3070 016614 

3071 016616 

3072 016622 


ROUTINE DECLARATION SECTION 
end; 

end; 


CLR.MBUS; 

end; 


004167 

005746 

016604 

005001 

000403 

105061 

005201 

020104 

003773 

152777 

016705 

042705 

142777 

150577 

012705 

004767 

012777 

012701 

001410 

016702 

001403 

005016 

005302 

001375 

005301 

000767 

005003 

000502 

:,;7767 

152777 

012701 

001410 

016702 

001403 


>9-N*r-1982 

>9-M»r-1982 


16:23:04 
16:21 : 


03 


TOPS-20 BUss-16 V2(212) 
PA:<NEALE>NL4AD.8LI.4 (6) 


.GLO0L LSDLY 


.S8TTL 

STRIPPER: 

166142 JSR 

TST 

000020 NOV 

CLR 

BR 

015022 IS: CLRB 

INC 

2S: CMP 

BLE 

000040 176742 BISS 

177324 MOV 

177770 BIC 

000007 176724 BIC8 

176720 BISB 

177777 MOV 

177656 JSR 

000071 1766*2 MOV 

000001 MOV 

3S: BEO 

163342 MOV 

8EQ 

4$: CLR 

DEC 
BNE 

5$: DEC 

BR 

6S: CLR 

BR 

177034 176540 7S: MOV 

000020 176714 BISB 

000001 MOV 

8S: BEO 

163274 MOV 

SEO 


STRIPPER ROUTINE DECLARATION SECTION 


R1.SSAVE5 

-<SP> 

20(SP).R4 

R1 

2S 

STK.OFFCRD 

R1 

R1.R4 

IS 

#40.aML.REG+40 

#7.BNL.REG*40 

R5-BML.REG+40 

I-1.R5 

PC.DAT.DN.XFER 

#71,BNL.REG 

fl.RI 

6S 

LSDLY, R2 

5S 

(SP> 

R2 

4S 

R1 

3S 

*3 

16S 

aNL.RE6*230,PD.TENP 

#20,BNL.REG*120 

fl.Rl 

ni 

LSDLY. R2 
10S 


; NIB.CNT,* 
; CNT 

; *(CNT) 

; CNT 
; CNT.* 


♦.STK.PTR 

*.SSTNP2 

*,SSTMP1 

SSTMP 

SSTMP1 

SSTMP2 

CNT 

•.SSTMP2 

*,SSTMP1 


2387 

2412 


2413 

2412 


2413 


2416 

2417 

2418 

2419 


2421 

2423 

2424 

2425 


! 
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STRIPPER ROUTINE DECLARATION SECTION 
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SEQ 008 7 


3074 

3075 

3076 

3077 016624 

3078 016626 

3079 016630 

3080 016632 

3081 016634 

3082 016636 

3083 016644 

3084 016652 

3085 016660 

3086 016662 

3087 016664 

3088 016666 

3089 016670 

3090 016672 

3091 016674 

3092 016676 

3093 016702 

3094 016704 

3095 016706 

3096 016712 

3097 016716 

3098 016720 

3099 016724 

3100 016730 

3101 016732 

3102 016734 

3103 016736 

3104 016742 

3105 016744 

3106 016746 

3107 016750 

3108 016754 

3109 016756 

3110 016760 

3111 016762 

3112 016766 

3113 016770 

3114 016772 

3115 016774 

3116 016776 

3117 017000 

3118 017004 

3119 017006 

3120 017014 

3121 017020 

3122 017024 

3123 017032 

3124 017036 

3125 017040 

3126 


;ML4AD 


005016 

005302 

001375 

005301 

000767 

017767 

017767 

017767 

005002 

000443 

005205 

010201 

006201 

006201 

006201 

062701 

010146 

010246 

042716 

012746 

005046 

004767 

062706 

005300 

001011 

005001 

156201 

060401 

010100 

005200 

110062 

000405 

010546 

010246 

004767 

022626 

005202 

020204 

003733 

005203 

m 

152777 

016705 

042705 

142777 

150577 

005726 

000207 


176732 

176734 

176706 


174530 11$: 

174524 

174520 


015342 


177770 

000001 

164710 

000010 


015022 


015022 


177046 


000022 

000040 

177012 

177770 

000007 

176406 


176430 


176412 


CLR 

DEC 

BNE 

DEC 

BR 

MOV 

MOV 

MOV 

CLR 

BR 

INC 

MOV 

ASR 

ASR 

ASR 

ADD 

MOV 

MOV 

BIC 

MOV 

CLR 

JSR 

ADD 

DEC 

BNE 

CLR 

81 SB 

ADD 

MOV 

INC 

M0V8 

BR 

MOV 

MOV 

JSR 

CMP 

INC 

CMP 

BLE 

INC 

CMP 

BLE 

BIS8 

MOV 

BIC 

BICB 

BIS6 

TST 

RTS 


ROUTINE DECLARATION SECTION 

(SP) 

R2 

9$ 

R1 

8 $ 

BML.REG*! 70,01 .TEMP 

9ML. REG *200, 02. TEMP 

8ML.REG+160.E2.TEMP 

R2 

15$ 

R5 

R2,R1 

R1 

R1 

R1 

#PD.TEMP,R1 

RI.-(SP) 

R2.-CSP) 

#1^7770. (SP) 
fl.-(SP) 

-(SP) 

PC.BLSGT2 
#10, SP 
RO 
13S 
R1 

STK.OFF (R2) ,R1 
R4,R1 
R1.R0 
RO 

RO. STK.OFF (R2) 

14i 

R5,-(SP> 

R2,-(SP) 

PC, LOAD. STACK 
(SP)+,(SP)+ 

R2 

R2.R4 

12 $ 

R3 

R3,22(SP> 

#40,8ML.REG*40 

#7,aML.iEGH0 

R5.8ML.REGH0 

($£)♦ 

PC 


>9-Mar-1982 16:23:04 
?9-Nar-1982 16:21:03 


; SSTMP 
; SSTMP1 

; SSTMP2 


; NIB.PTR 

; STK.PTR 
; NIB.PTR,* 


; NIB.PTR,* 


; * (NIB.PTR),* 


•.•(NIB.PTR) 

STK.PTR,* 

NIB.PTR,* 


; NIB.PTR 
; NIB.PTR,* 

; CNT 

; CNT.URD.CNT 


2428 


2387 


; Routine Size: 127 words 
; Maximum stack dapth par invocation: 11 words 


K 7 
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STRIPPER ROUTINE DECLARATION SECTION 


SEO 0088 



3137 


3138 


; ML A AD 


ROUTINE DECLARATION SECTION 


29-M*r-1982 16:23:0A TOPS 

29-Mar-1982 16:21:03 PA:< 



! 


L 7 
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STRIPPER ROUTINE DECLARATION SECTION 


SEO 0089 


3140 

3H1 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 


ML4AD 


2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2 458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 


ROUTINE DECLARATION SECTION 

routine CAL CRC : novalue = 
begin 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212> 
PA : <NE ALE >ML4 AD .8L 1 . 4 (7) 


FUNCTIONAL DESCRIPTION: 

CALCULATE THE CRC CODE FOR THE GOOD BLOCKS 
FIRST CRC GROUP (60 NIBBLES) BY STRIPPING 
OUT GOOD NIBBLES AND MODULO 2 ADDING EACH 
BITS WEIGHT RESULTING IN A_CAL,B_CAL.P.CAL. 

IMPLICIT INPUTS: 

P CAL , A CAL ,B CAL 

gOlbal Storage location where calculated 

CRC CODES ARE STORED AND EXAMINED FROM 
REN TBL 

TABCE CONTAINING PRECALCULATED BIT POSITION 
WEIGHTS USED IN THE MODULO 2 CALCULATION OF THE 
CRC CODE 


local 

CHANNEL. 

STK PTR 

NIB"SAV # : bi twee tor C4J, 

ALOG, 

BLOG; 

STRIPPER (12. 9); 

STK. PTR = -1; 

incr PLOG from 0 to 5 do 
begin 

CHANNEL = -1; 

incr NIB.CNT from 0 to 8 do 
begin 

STK.PTR r .STK.PTR ♦ 1; 

NIBISAV s .stack C.STK.PTRD; 

incr 8IT.TST froia 0 to 3 do 
begin 

CHANNEL = .CHANNEL ♦ 1; 

if .NIB.SAV C.BIT.TST3 IS.SET 
then 

begin 

ALOG = .PLOG ♦ .CHANNEL; 
BLOG > .PLOG ♦ .CHANNEL *2; 

while .ALOG geg 63 do 
ALOG = .ALOG - 63; 


2 CHANNEL POINTS TO THE BITS IN A WORD 

! STACK POINTER 

•NIBBLE SAVE LOCATION 

•INDEX INTO REMAINDER TABLE 

•INDEX INTO REMAINDER TABLE 

! STRIP OUT ALL 10 NI88LE FROM 13 ARRAY WORDS 
•RESET STACK POINTER 

•PLOG POINTS TO ONE CRC GROUP '6 WORDS' 

•RESET CHANNEL FOR EACH WORD 

•READ DATA NIBBLE 0-8 AND CALCULATE CRC 

‘INCREMENT THE STACK POINTER 
!L0AD NIV.SAV WITH A STACK NIB8LE 

! TEST THE BIT FOR BEING SET 

•CHANNEL POINTS TO THIS BIT 

•SEE IF THIS BIT IS SET 

•IF SET THEN MOD 2 ADD THE REMAINDER 
) CALCULATE THE ALOG 
•CALCULATE THE BLOG 

•REDUCE ALOG UNTIL < 64 
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STRIPPER ROUTINE DECLARATION SECTION 


SEO 0090 


3196 ;ML4AD 

3197 ; 

3198 

3199 ; 

3200 ; 

3201 ; 

3202 ; 

3203 ; 

3204 ; 

3205 ; 

3206 ; 

3207 ; 

3208 ; 

3209 ; 

3210 ; 

3211 ; 

3212 : 

3213 ; 

3214 ; 

3215 ; 

3219 

3220 

3224 017042 

3225 017046 

3226 017052 

3227 017056 

3228 017062 

3229 017066 

3230 017074 

3231 017100 

3232 017106 

3233 017112 

3234 017116 

3235 017122 

3236 017130 

3237 017134 

3238 017136 

3239 017142 

3240 017144 

3241 017146 

3242 017150 

3243 017152 

3244 017156 

3245 017160 

3246 017162 

3247 017164 

3248 017166 

3249 017172 

3250 017176 


ROUTINE DECLARATION SECTION 


while .BLOG aeq 63 do 
BLOG = .BLOG - 63; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


! REDUCE BLOG UNTIL <64 


T0PS-20 Bliss-16 V21212) 
PA:<NEALE>MUAD.BLI.4 (7) 


P CAL 

A. CAL 

B. CAL 
end; 


l.P CAL) xor l.REM.TBL C.PL0G3); 
(.A" CAL) xor <.REM_T8L C.ALOGJ); 
( .8*” CAL) xor (.REM.TBL C.BL0G3); 


!MOD 2 P CAL WITH REM.TBL 
!M0D 2 A.CAL WITH REM.TBL 
!MOD 2 B CAL WITH REM.TBL 


STK.PTR = .STK.PTR ♦ 1; 
end; 


004167 

162706 

012746 

012746 

004767 

012766 

005066 

012766 

005066 

005266 

016605 

116566 

105066 

005003 

005266 

010305 

006205 

006205 

006205 

012704 

060604 

060405 

010546 

010346 

042716 

012746 

005046 


165544 

000012 

000014 

000011 

177356 

177777 000006 
000004 

177777 000010 
000012 
000006 
000006 

015034 000014 
000015 

000010 


000014 


177770 

000001 


.S8TTL 

CAL.CRC.-JSR 

SUB 

MOV 

MOV 

JSR 

MOV 

CLR 

1$: MOV 

CLR 

2S: INC 

MOV 
MOVB 
CLRB 
CLR 

3$: INC 

MOV 
A SR 
ASR 
ASR 
MOV 
ADD 
ADD 
MOV 
MOV 
BIC 
MOV 
CLR 


!SKIP OVER THE CRC NIB NT THE STACK 


CAL.CRC ROUTINE DFCLARATION 

R1.SSAVE5 

#1 2.SP 

#14,-<SP> 

fll.-(SP) 

PC. STRIPPER 
#-1,6(SP> 

4(SP) 

f-1,10(SP) 

12CSP) 

61SP) 

6<SP),R5 
STACKIR5) ,14(SP) 

151SP) 

R3 

10(SP) 

R3.R5 

R5 

R5 

R5 

#14, R4 
SP.R4 
R4.R5 
R5.-CSP) 

R3.-ISP) 

#1^7770, (SP) 

#1.-<SP> 

-(SP) 


SECTION 


♦.STK.PTR 

PLOG 

*, CHANNEL 

NIB.CNT 

STIC.PTR 

STK.PTR,* 

•-NI8.SAV 

NIB.SAV 

B1T.TST 

CHANNEL 

8IT.TST.* 


; NIB.SAV,* 


; 8IT.TST.* 
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CAL.CRC ROUTINE DECLARATION SECTION 


3308 

3309 

3310 

3315 

3316 


;ML4AD 


ROUTINE DECLARATION SECTION 


SEQ 0092 

?9-Mar-1982 16:23:04 TOPS 

?9-Nar-1982 16:21:03 PA:< 


1 


CZMLADO ML-11 LOGIC TEST MACRO 

CAL.CRC ROUTINE DECLARATION SECTION 


Kill 3 30-MAR-82 11:18 PAGE 


C 8 
110 


5318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3362 

3363 

3367 

3368 

3369 

3370 

3371 

3372 


;ML4AD 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


SEO 0093 


017442 

017442 

017446 

017452 

017456 

017460 


2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 


004167 

012701 

012702 

005201 

005003 


ROUTINE DECLARATION SECTION 

routine ERR.CHK.CRC = 
begin 

+♦ 

FUNCTIONAL DESCRIPTION: 

•ERROR CHECK CRC* COMPARES HARDWARE GENERATED CRC 
CODES TO SOFTWARE CALCULATED CRC CODE FOR ONE 
CRC GROUP AND RETURNS A ONE ON DETECTION OF ERRORS 

IMPLICIT INPUTS: 

P CAL, A CAL ,8 CAL 

gCobal Storage locations where calculated 

CRC CODES ARE STORED AND EXAMINED FROM 

GCoIaL A 5TROAGE 6 LOCATIONS WHERE HARDWARE GENERATED 
CRC CODES ARE STORED AND EXAMINED FROM 


TOPS-20 Bliss-16 V2'212) 
PA : <NE ALE >ML4AD.fiL I .4 (8) 


local 

POS. 

TEMP; 

POS = -1; 


.•VARIABLE FOR FIELD SELECTOR 
•TEMPORARY STORAGE LOCATION 

•RESET THE POS 

•CONVERT VERTICAL STACK CRC TO HORIZONTAL REPRESENTATION 
•INCREMENT POS 

•READ CRC NIB FROM THE STACK 
.'CONVERT 1ST BIT 
! CONVERT 2ND BIT 
•CONVERT 3ED BIT 


incr STK.PTR from 9 to 59 by 10 do 
begin 

POS = .POS ♦ 1: 

TEMP = .stack C.STK.PTR3; 

(P GEN) <. POS, 1> = .TEMP<0, 1 >; 

(A GEN) <. POS, 1> = not .TEMPO, 1>; 

(8 GEN) <. POS. 1> = not ,TEMP<2, 1>; 
end; 

if (.P.GEN neq .P.CAL) or C.A.6EN neq .A.CAL) or (.BJiEN neq .B.CAL) then return ONE else return ZERO; 

{COMPARE GENERATED CRC CODE TO CALCULATED CRC CODE 

end; 



ERR.CHK.CRC 

165106 

JSR 

177777 

MOV 

000011 

MOV 

IS: INC 


CLR 


.S8TTL ERR.CMK.CRC ROUTINE DECLARATION SECTION 


R1.SSAVE3 
#-1 ,R1 
#11, R2 
R1 
R3 


*,POS 

*,STK.PTR 

POS 

TEMP 


2514 

2537 

2539 

2541 

2542 
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ERR.CHK.CRC ROUTINE DECLARATION SECTION 


SEO 0094 


3374 

3375 

3376 

3377 017462 

3378 017466 

3379 017472 
33R0 017474 
33.1 017500 

3382 017502 

3383 017506 

3384 017512 

3385 017516 

3386 017520 

3387 017524 

3388 017526 

3389 017532 

3390 017534 

3391 017536 

3392 017540 

3393 017544 

3394 017550 

3395 017552 

3396 017556 

3397 017560 

3398 017564 

3399 017566 

3400 017570 

3401 017572 

3402 017576 

3403 017602 

3404 017606 

3405 017612 

3406 017614 

3407 017622 

3408 017624 

3409 017632 

3410 017634 

3411 017642 

3412 017644 

3413 017650 

3414 017652 

3415 017654 

3416 017656 

3417 

3418 

3419 

3424 

3425 


; ML 4 AD 


156203 

012746 

010146 

012746 

010346 

042716 

004767 

012716 

010146 

012746 

005046 

032703 

001401 

005216 

005116 

004767 

012716 

010146 

012746 

005046 

032703 

001401 

005216 

005116 

004767 

062706 

062702 

020227 

003721 

026767 

001010 

026767 

001004 

026767 

001403 

012701 

000401 

005001 

010100 

000207 


015034 

015374 

000001 

177776 

164360 

015370 

000001 

000002 


164326 

015372 

000001 

000004 


164274 

000024 

000012 

000073 

175554 175544 
175540 175530 
175532 175522 
000001 


ROUTINE DECLARATION SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 



BISS 

STACK (R2),R3 

; *(STK.PTR),TEMP 


MOV 

#P.6EN,-(SP> 

9 


MOV 

RI.-(SP) 

; POS,* 


MOV 

41,-(SP) 



MOV 

R3.-(SP) 

; TEMP,* 


BIC 

41^7776,(SP) 



JSR 

PC.BLSPU2 



MOV 

4A.GEN,($P) 

9 


MOV 

R1,-(SP) 

; POS,* 


MOV 

41,-(SP) 



CLR 

-(SP) 



BIT 

42.R3 

; *.TEMP 


BEQ 

2$ 



INC 

<SP) 


2$: 

COM 

(SP) 



JSR 

PC.BLSPU2 



MOV 

48. GEN, (SP) 

9 


MOV 

RI.-(SP) 

; POS,* 


MOV 

41,-(SP) 



CLR 

-(SP) 



BIT 

44, R3 

; *.TEMP 


BEQ 

3S 



INC 

(SP) 


3*: 

COM 

(SP) 



JSR 

PC.BLSPU2 



ADD 

424, SP 

• 


ADD 

412.R2 

; *,STK.PTR 


CMP 

R2.473 

; STK.PTR,* 


BLE 

1$ 



CMP 

P.GEN.P.CAL 

9 


BNE 

4$ 



CMP 

A. GEN, A. CAL 



BNE 

4$ 



CMP 

B. GEN, B. CAL 



BEQ 

5S 


4S: 

MOV 

41 ,R1 



BR 

6$ 


5S: 

CLR 

R1 


61: 

MOV 

R1.R0 

9 


RTS 

PC 

9 


2540 

2539 


2548 


; Routine Size: 71 words 

; Maxi men stack depth per Invocation: 14 words 


e 8 
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ERR. CHIC. CRC ROUTINE DECLARATION SECTION 


SEQ 0095 


3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

344 1 
344 £ 
344 3 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 
34 57 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3470 

3471 

3475 

3476 

3477 

3478 

3479 

3480 

3481 


.HL4AD 


017660 

017660 

017664 

017666 

017672 

017676 

017702 


fill 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 


004167 

005746 

016646 

012746 

004767 

010001 


ROUTINE DECLARATION SECTION 

routine FIND.CONP.BIT (BITS.XFERED) = 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V 2(212 ) 
PA : <NEALE >ML4AD .BL 1 . 4 (9) 


FUNCTIONAL DESCRIPTION: 

•FIND COMPLIMENT' BIT IS CALLED BY THE 
SYNDROME DECODE TESTS AND INDEXES INTO 
THE 10 BUF LOOKING FOR COMPLIMENTED 
BITS. 'A COMPLIMENTED BIT IS BY DEF A ONE 

A ONE IS RETURNED IF THE INDEXED BIT IS 
NOT SET 

FORMAL PARAMETERS: 

BITS.XFERED 

REPRESENTS THE 8JT BEING TESTED 
IN THE DRIVE AND FROM THIS THE 
WORD AND BIT INDEX INTO THE 
IO.BUF CAN BE CALCULATED 

IMPLICIT INPUTS: 


local 

CONP.WRD, 
COMP BIT . 
BUF SAV : 


bitvector Cl 63; 


!UORD WHERE CQNPLINEMT BIT IS LOCATED 
•BIT THAT IS COMPLIMENTED 

‘STORES THE WORD IN WHICH THE BIT IS COMPLIMENTED 

! CALCULATE THE COMP WORD 
‘CALCULATE THE COMP BIT 
•LOAD THE COMP WORD INTO BUF .SAV 
‘ZERO THE COMP WORD 


COMP WRD = .BITS.XFERED/16; 

CQNP”BIT = .BITS XFERED aod 16; 

BUF SAV = .10.81# C. COMP WRD 3; 

IO.BUF C. COMP. WRD J = ZEROES; 

if .BUF.SAV C.CONP.BITJ IS.NOT.SET then return ZERO else return ONE; 

•FIND COMPLIMENTED BIT AND RETURN ERROR STATUS 

end; 


.SBTTL 
FIND. COMP. BIT: 


FIND. COMP. BIT ROUTINE DECLARATION SECTION 


164654 

J SR 


TST 

000012 

MOV 

000020 

MOV 

164544 

JSR 


MOV 


R1.SSAVE2 

-ISP) 

12(SP),-(SP) 
#20,- (SP) 
PC.BLSDIV 
R0.R1 


BITS. XFERED.* 
*, COMP. WRD 


255? 

2580 
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FIND.C0HP.8IT ROUTINE DECLARATION SECTION 
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F 8 
PAGE 113 


SEQ 0096 


3483 

3484 

3485 


3491 

3492 

3493 


3501 

350 

350 


3511 

3512 

3513 


3516 

3517 

3518 

3523 

3524 


;NL4AD 


017704 

016616 

000016 


NOV 

017710 

012746 

000020 


NOV 

017714 

004767 

164540 


JSR 

017720 

010002 



NOV 

017722 

010100 



NOV 

017724 

006300 



ASL 

017726 

016066 

014022 000006 


NOV 

017734 

005060 

014022 


CLR 

017740 

010200 



NOV 

017742 

006200 



ASR 

017744 

006200 



ASR 

017746 

006200 



ASR 

017750 

012701 

000006 


NOV 

017754 

060601 



ADD 

017756 

060100 



ADD 

017760 

010046 



NOV 

017762 

010246 



NOV 

017764 

042716 

177770 


BIC 

017770 

012746 

000001 


NOV 

017774 

005046 



CLR 

017776 

004767 

163632 


JSR 

020002 

062706 

000010 


ADD 

020006 

00570C 



TST 

020010 

001002 



8NE 

020012 

005001 



CLR 

020014 

000402 



8R 

020016 

012701 

000001 

18: 

NOV 

020022 

010100 


28: 

NOV 

020024 

062706 

000010 


ADD 

020030 

000207 



RTS 


ROUTINE DECLARATION SECTION 

16<SP),(SP> 

#<fO,-(SP) 

PC.8L8N0D 
R0.R2 
R1.R0 
RO 

IO.BUF(RO) ,6(SP) 

IO.BUF(RO) 

RO 
RO 

#6.R1 
SP.R1 
R1.R0 
RO,-(SP) 

#1^77^o! (SP) 

#1.-<SP) 

-($p) 

PC.8L8GT2 
fl&.SP 
RO 
1$ 

R1 
28 

#i,ri 

R1.R0 
#10. SP 
PC 

Routint Sfza: 53 words 

Naxinun stack dapth par Invocation; 11 words 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


; BITS.XFERED,* 

; *,CONP.iIT 
; C6 MP.URO,* 

; *.BUF.SAV 

; COPT.BIT.* 


; BUF.SAV,* 


; COPr.tJT.* 


TOPS 

PA:< 

2581 


2582 


2583 

2585 


2553 

2552 



i 
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FIND. COMP. BIT ROUTINE DECLARATION SECTION 
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3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 
35?: 

3574 

3575 

3576 

3577 

3578 

3579 

3580 


ML 4 AD 


2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 


ROUTINE DECLARATION SECTION 

routine FORCE.REM (PLOG, CHAN) 
begin 


no value = 


FUNCTIONAL DESCRIPTION: 

VIA ECC DM AND THE PRECALCULATED MODULO 
REMAINDERS STORED IN REM TBLC3, THE 
CRC A. CRC .8 AND PAR CRC ORD 
ARE FORCES WITH ERRONEOOS CRC DATA TO 
FORCE PERDICTABLE ECC ERRORS 

FORMAL PARAMETERS: 

PLOG 

POINTS TO ONE OF THE SIX WORDS OF 
A CRC GROUP 

CHAN 

POINTS TO ONE OF 36 CHANNELS IN 
A CRC GROUP 

IMPLICIT INPUTS: 

local 

TMP El. 

aloG, 

BLOG; 

ALOG - .PLOG ♦ .CHAN; 

BLOG = .PLOG ♦ .CHAN*2; 

while .ALOG geg 63 do 
ALOG = .ALOG - 63; 

while .BLOG geq 63 do 
BLOG - .oLOG - 63; 

ECC.DM = ONE; 

THE FOLLOWING ASSIGNMENT: 

MLE1 = .TMP.E1 

IS EQUIVALENT TO THE FOLLOWING 
TWO ASS1NGMENTS: 

PAR CRC WRD = .REM.TBL C.PL06J; 

CRC> = .REM.TBL C.ALOGJ; 

THIS IS NECESSARY DUE TO THE FACT THAT 
THE El REGISTER IS WORD ORIENTATED AND 
THE BLISS COMPILER GENERATES BYTE INST 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21-03 PA:<NEALE>ML4AD.8LI .4 (10) 


2 


•TEMP ST0RA6E FOR El DATA WORD 
•INDEX INTO REM.TBL 
•INDEX INTO REM.TBL 

{CALCULATE A.LOG 
{CALCULATE BlLOG 

•REDUCE A.LOG UNTIL < 64 


{REDUCE B.LOG UNTIL < 64 


•SET ECC DIAG MODE 


•LOAD PAR CRC.WRD WITH REM.TBL 
{LOAD CRC.A WITH REM.TBL 


SEQ 0097 



5EQ 0098 


CZMLADO ML-11 LOGIC TEST MACRO mil 3 

FIND. COMP. BIT ROUTINE DECLARATION SECTION 


30-NAR-82 11:18 


H 8 
PAGE IIS 


3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3598 

3599 


ML4AD 


3611 


36 

36 


531 

532 


2641 

2642 

2643 

2644 
2545 

2646 

2647 

2648 

2649 

2650 


ROUTINE DECLARATION SECTION 
! TO ACCESS THE REGISTER. 

i. 

* 

TMP.E1 = ZEROES; 

TMP EKO, 6> = .REM.TBL C.ALOGJ; 
TMP~E1<8. 6> = .REM.TBL C.PLOGJ; 
MLET = .TMP.E1; 

CRC.B = .REM.TBL C.BLOGJ; 
end; 


>9-Mer-198< 

>9-M#r-198J 


16:23:04 

16:21:03 


TOPS-20 8lfss-16 V2C212) 
PA:<NEALE>«L4AD.BLI.4 (10) 


! CLEAR OUT THE TEMP WORD 
!LOAD CRC.A WITH REM TBL 
.'LOAD PAR CRC WRD WITH REM. TBL 
.'LOAD THE El REGISTER WITH DATA 

ILOAD CRC.B WITH REM. TBL 


.SBTTL FORCE. REM ROUTINE DECLARATION SECTION 


020032 




FORCE.REM: 

020032 

004167 

164534 


JSR 

020036 

016601 

000016 


MOV 

020042 

010100 



MOV 

020044 

066600 

000014 


ADD 

020050 

016602 

000014 


MOV 

020054 

006302 



ASL 

020056 

060102 



ADD 

020060 

010203 



MOV 

020062 

020027 

000077 


1$: CMP 

020066 

002403 



BLT 

020070 

162700 

000077 


SUB 

020074 

000772 



BR 

020076 

020327 

000077 


2$: CMP 

020102 

002403 



BLT 

020104 

162703 

000077 


SUB 

020110 

000772 



BR 

020112 

152777 

000001 

175404 

3$: BISB 

020120 

005002 



CLR 

0201 22 

116004 

015664 


M0V8 

020126 

042704 

177700 


BiC 

020132 

142702 

000077 


B1CB 

020136 

050402 



BIS 

020140 

116104 

015664 


M0V8 

020144 

000304 



SWAB 

020146 

042704 

140377 


BIC 

020152 

042702 

037400 


BIC 

020156 

020160 

050402 

010277 

175370 


BIS 

MOV 

020164 

116304 

015664 


M0V8 

020170 

042704 

177700 


BIC 

020174 

142777 

000077 

175362 

BICB 

020202 

150477 

175356 


FJISB 

020206 

000207 



RTS 


R1 .SSAVE4 

16<SP),R1 

R1.R0 

14<SP),R0 

14<SP),R2 

R2 

R1,R2 

R2.R3 

R0,#77 

2$ 

#77, RO 

1 $ 

R3,#77 

3S 

#77. R3 

2 $ 

#1.8ML.REG*120 

R2 

REM.TBL<R0),R4 
#177700,R4 
#77, R2 
R4.R2 

REM.TBL(R1),R4 

R4 

#1 40377. R4 
#37400, R2 
R4,R2 

R2.8ML.REG+150 

ReA.TBL(R3).R4 

#1 77700, R4 

#77,BML.REG*160 

R4.8ML.REG+160 

PC 


PLOG,* 

*,ALOG 

CHAN.ALOG 

CHAN,* 


*,8L0G 

AL06,* 

* , ALOG 

BLOG,* 

*,BL0G 


TMP.E1 
*(ALOG) ,* 

*,TMP.E1 

*,TMP.E1 


*.TMP.E1 
*,TMP.E1 
TMP.E1 ,* 
*<BLOG).* 


2589 

2617 


2618 


2620 

2621 

2620 

2623 

2624 
2623 
2626 

2644 

2645 


2646 


2647 

2649 


2589 


J 



I 8 
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FORCE. REM ROUTINE DECLARATION SECTION SEQ 0099 



3649 


;HL4AD 


ROUTINE DECLARATION SECTION 


29-Har-1982 16:23:04 TOP 
29-Har-1982 16:21:03 PA: 


; Routine Size: 35 words 

; Maximus stack dapth par invocation: 5 words 


A Vt 


| CZMLADO ML” 11 LOGIC TEST MACRO M1113 

| FORCE .REM ROUTINE DECLARATION SECTION 


J 8 

*AR-82 11:18 PAGE 117 


SEQ 0100 


3651 ;ML4AD 

3652 . 

3653 

3654 ; 

3655 ; 

3656 ; 

3657 ; 

3658 ; 

3659 ; 

3660 ; 

3661 ; 

3662 ; 

3663 ; 

3664 ; 

3665 ; 

36o6 ; 

3667 ; 

3668 ; 

3669 ; 

3670 ; 

3671 ; 

3672 ; 

3673 ; 

3674 ; 

3675 ; 

3676 ; 

3677 ; 

3678 ; 

3679 ; 

3680 ; 

3681 ; 

3682 ; 

3683 ; 

3684 ; 

3685 ; 

3686 ; 

3687 ; 

3688 ; 

3689 ; 

3690 ; 

3691 ; 

3692 ; 

3693 ; 

3694 ; 

.3695 ; 

3696 ; 

3697 ; 

3698 ; 

3699 ; 

3700 ; 

3701 ; 

3702 ; 

3703 ; 

3704 ; 

3705 ; 


2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 


ROUTINE DECLARATION SECTION 

routine FOR.ECC.ERR (SGI, UNO 
begin 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


7OPS-20 Bliss-16 V2<2 12) 
PA:<NEALE>ML4AD.8LI.4 (11) 


novelue = 


FUNCTIONAL DESCRIPTION: 

'FORCE ECC ERROR* WHEN CALLED WILL FORCE 
VIA ECC DIAG MODE, SINGLE BIT ECC ERRORS 
OR UNCORREC TABLE ECC ERRORS INTO THE 
ECC DIAGNOSTIC REGISTERS 

FORMAL PARAMETERS: 

SGL 

WHEN SET TO A ONE THIS 

ROUTINE WILL FORCE SINGLE BIT ERRORS 

UNC 

WHEN SET TO A ONE THIS ROUTINE WILL 
FORCE UNCORRECTABLE ECC ERRORS 

IMPLICIT INPUTS: 


local 

TMP.E1; 

ECC. DM = ONE; 

if .SGL 
then 

begin 

'THE FOLLOWING ASSIGNMENT: 

MLE1 = . TMP.E 1 

IS EQUIVALENT TO THE FOLLOWING 
TWO ASSINGMENTS: 

PAR CRC WRD = Xb* 1 11111*; ! 

CRC> = Xb* 000000'; ! 

THIS IS NECESSARY DUE TO THE FACT THAT 
THE El REGISTER IS WORD ORIENTATED AND 
THE BLISS COMPILER GENERATES BYTE INST 
TO ACCESS THE REGISTER. 

TMP El = ZEROES; 

TMP"E1<0, 6> = lb ' 000000'; 
TMP~E1<8, 6> = Xb *111111'; 

Ml FT =■ , TMP.E 1; 


! TEMP STORAGE FOR El DATA WORD 
•SET ECC DIAG MODE 
•IF SGL IS TRUE 

•THEN FORCE A SINGLE BIT ERROR 


•LOAD PAR.CRC.WRD WITH REM.TBL 
•LOAD CRC.A WITH REM.TBL 


! CLEAR OUT THE TEMP WORD 
ILOAD CRC.A WITH REM.TBL 
ILOAD PAR CRC WRD WITH REM.TBL 
ILOAD THE El REGISTER WITH DATA 


CZMLADO ML -11 LOGIC TEST MACRO MU 13 

FORCE. REM ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


K 8 

PAGE 118 


SEQ 0101 


3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3743 

3744 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 


ML4AD 


2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 


ROUTINE DECLARATION SECTION 

CRC.8 = W 000000'; 
end 

else 

begin 

THE FOLLOWING ASSIGNMENT: 

MLE1 = .TMP.E1 

IS EQUIVALENT TO THE FOLLOWING 
TWO ASSINGMENTS: 

PAR CRC WRD = Willin'; 

CRC> = winin'; 

THIS IS NECESSARY DUE TO THE FACT THAT 
THE El REGISTER IS WORD ORIENTATED AND 
THE BLISS COMPILER GENERATES BYTE INST 
TO ACCESS THE REGISTER. 

TMP.E1 = ZEROES- 
TMP EKO. 6> = ib'111111'; 

TNP~E 1 <8 , 6> = Jb'111111'; 

MLET = .TNP.E1; 

CRC.8 = W 000000'; 
end; 


29-M*r-1982 16:23:04 
29-Her-1982 16:21:03 


TOPS-20 Bt f **-16 V2(212> 

PA : <NEALE>ML4AD .BL 1.4 (11) 


!EL$E FORCE A UNCORRECTABLE ERROR 


•LOAD PAR CRC WRD WITH REM.TBL 
'.LOAD CRC.A WITH REM.TBL 


•CLEAR OUT THE TEMP WORD 
•LOAD CRC.A WITH REM.TBL 
•LOAD PARlCRC WRD WITH REM.TBL 
•LOAD THE El REGISTER WITH DATA 


end; 


.S8TTL FOR.ECC.ERR ROUTINE DECLARATION SECTION 


020210 




FOR.ECC 

.ERR: 

020210 

152777 

000001 

175306 


BISB 

020216 

005000 




CLR 

020220 

032766 

000001 

000004 


BIT 

020226 

001403 




BEO 

020230 

142700 

000077 



BICB 

020234 

000402 




BR 

020236 

152700 

000077 


IS: 

BISB 

020242 

052700 

037400 


21: 

BIS 

020246 

010077 

175302 



MOV 

020252 

142777 

000077 

175304 


BICB 

020260 

000207 




RTS 


f1.aML.REG*120 

RO 

f1,4(SP) 

#77.R0 

2 $ 

177. RQ 
f37400.R0 
R^aML.REG+150 

PC 


iML.REG+160 


TMP. El 
*.SGL 

♦.TMP.E1 

*,TMP.E1 
*.TMP.E1 
TMP. El.* 


2676 

2698 
2678 

2699 

2700 

2725 

2726 

2727 
2729 
2651 


; Routine Size: 21 words 


i 




seo 0102 

29-M»r-1982 16:23:04 TOPS 
29-*«r-1982 16:21:03 ka:< 
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FOR.ECl.ERR ROUTINE DECLARATION SECTION 


SEQ 0103 


3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3802 

3803 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3820 

3821 


;ML4AD 


020262 

020262 

020270 

020274 

020302 

020310 


2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 


152777 

005077 

012777 

012777 

000207 


ROUTINE DECLARATION SECTION 
routine FIRST.BLK.XFER : novalue = 


FUNCTIONAL DESCRIPTION: _ , 

A REPEATEDLY CALLED SEQUENCE OF 
ASSIGNMENT EXPRESSION TO LOAD 
THE DSA, BUS ADRS AND WORD COUNT 
REGISTERS WITH APPROPRIATE INFORMATION 
BEFORE NASS BUS TRANSFERS CAN 
COMMENCE. 

LOADS A MASS BUS BLOCK XFERR AT 
BLOCK ZERO. 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD.8LI.4 <12) 


begin 

ECC.DIS = ONE; 

NLDX = ZEROES; 

MLBA = 10 BUF: 

MLWC = no! 255; 
end; 

.S8TTL 
FIRST.BLK.XFER: 
000002 175234 BI SB 

175140 CLR 

014022 175122 MOV 

177400 175104 MOV 

RTS 


! DISABLE ERROR CORRECTION 
•LOAD THE DSA REG WITH SECTOR ZERO 
•LOAD THE BUS ADDRESS REG WITH 10 BUF ADRS 
•LOAD WORD COUNT REG WITH COMPLIMENT 256 


FIRST.BLK.XFER ROUTINE DECLARATION SECTION 


#2,aML.REG+120 

9ML.REG+30 

#10. BUF ,dML.REG+20 

#-400,«NL.REGO0 

PC 


; Routine Size: 12 words 

; Maximum stack depth per invocation: 0 words 


i 


. CZMLADO ML-11 LOGIC TEST MACRO M1113 

FIRST. BU.XFER ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


PAGE 121 8 


SEO 0104 


3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3853 

3854 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3871 

3872 


;ML4AD 


020312 

020312 

020320 

020326 

020334 

020342 


2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 


152777 

016777 

012777 

012777 

000207 


ROUTINE DECLARATION SECTION 
routine GD.BLK.XFER : novatue = 

!♦♦ 

! FUNCTIONAL DESCRIPTION: „ „ 

! A REPEATEDLY CALLED SEQUENCE OF 

! ASSIGNMENT EXPRESSIONS TO LOAD 

! THE DSA # BUS ADRS AND UORD 

! COUNT REGISTERS UITH APPROPRIATE 

! INFORMATION BEFORE A MASS BUS 

! TRANSFERS CAN COMMENCE 

i 

j LOADS A MASS BUS BLOCK XFERR 

! AT THE GOOD BLOCK ADRS FOUND 

! BY THE READ WRITE ARRAYS WITH 

! PROM DATA TEST 


begin 

ECC DIS = ONE; 
MLD* = .GOOD BLK; 
MLBA = 10 flUF; 
MLWC = noE 255; 
end; 


>9-Mar-1982 16:23:04 
*9-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA : <NE AL E >ML4 AD .BL 1 . 4 (13) 


.'DISABLE ERROR CORRECTION 
•LOAD DSA REG WITH THE GOOD 8L0CK ADRS 
!LOAD BUS ADRS REG WITH 10 BUF ADRS . 
•LOAD WORD COUNT REG WITH tOMPLIMENT 256 


000002 175204 
173462 175106 
014022 175070 
177400 175052 


.SBTTL 

GD.BLK.XFER: 

BISB 

MOV 

MOV 

MOV 

RTS 


GD.BLK.XFER ROUTINE DECLARATION SECTION 

#2.BML.REG+120 ; 

GOOD. BLK, BML.REG+30 
#I0.8UF,BML.REG+20 
f-400,8ML.REG+10 
PC 


2774 

2775 

2776 

2777 
2755 


; Routine Size: 13 words . . 

; Maximum stack depth per invocation: 0 words 


L 
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GD.BLK.XFER ROUTINE DECLARATION SECTION 


SEO OIOS 


3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3903 

3904 


NL4AD 


3911 


2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 


ROUTINE DECLARATION SECTION 
routine LAST_BLK_XFER : novalue = 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.8LI.4 (14) 


♦♦ 


FUNCTIONAL DESCRIPTION: 

A REPEATEDLY CALLED SEOUENCE OF 
ASSIGNMENT EXPRESSIONS TO LOAD 
THE DSA, BUS ADRS AND WORD 
COUNT REGISTERS WITH APPROPRIATE 
INFORMATION BEFORE A MBUS 
TRANSFER CAN COMMENCE 


LOADS A MASS BUS BLOCK 
TRANSFER AT THE LAST BLOCK 
ADDRESS 


begin 

ECC DIS = ONE; 
NLD* - .LST BLK; 
MLBA = 10 BOF; 
MLWC = no? 255; 
end; 


! DISABLE ERROR CORRECTION 
.'LOAD DSA REG WITH THE LAST BLOCK ADRS 
1L0AD BUS ADRS REG WITH THE 10 BUF ADRS 
!L0AD WORD COUNT REG WITH COMPClMENT 256 


3914 

3915 

3916 
— 1 


020344 

020344 

152777 

000002 

175152 

LAST. BLK. XFER 
BIS6 

020352 

016777 

173436 

175054 

MOV 

020360 

012777 

014022 

175036 

MOV 

020366 

012777 

177400 

175020 

MOV 

020374 

000207 



RTS 


.S8TTL LAST. BLK. XFER ROUTINE DECLARATION SECTION 


#2,8ML.REG+120 
LST.BLK.BML.REG+30 
flO.BUF .8ML.REG^20 
#-400. BML. REGGIO 
PC 


2tt 

27S 

2 * 

28C 

271 


Routine Size: 13 words 

Maximal stack depth per invocation: 


0 words 





] 
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LAST.BLK.XFER ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


C 9 
PAGE 123 


SEQ 0106 


3924 ;ML4AD 

3925 ; 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 
396t 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 
397, 

397 

3974 

3975 

3976 

3977 

3978 


2802 

2803 

2804 
:ao5 
2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

IS1! 


ROUTINE DECLARATION SECTION 

routine TST LNG WRD (NIB.NUM, NI8.PAT. ERR.FLG) 
begin 


FUNCTIONAL DESCRIPTION: 

COMPARES THE CURRENT NIBBLE 
POSITION IN 'NIB SAVE' WITH THE 
CURRENT TEST PATTERN. IF THE 
TWO VALUES ARE NOT EQUAL AN 
ERROR FLG IS SET WHICH THE 
CALLER CAN INTERIGATE 

FORMAL PARAMETERS: 

NIB.NUM 

CASP SELECT EXPRESSION TO SELECT THE 
CURRENT NI8BLE TO BE EXAMINED 

NIB PAT 

CURRENT NIBBLE PATTERN TO BE 
COMPARED 

ERR FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FL6 
TO ENABLE THE CALLER TO EXAMINE 
THE ERROR STATUS OF THE ROUTINE CALL 

IMPLICIT INPUTS: 

NIB SAVE 

BLOCK OF 3 WORDS TO STORE 
THE DATA FOUND IN MLD1, MLD2 
AND MLE2 AFTER A DIAGNOSTIC MODE 
READ 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 

: novalue = 


TOPS-20 Bliss-16 V2(212> 

PA : <NEALE>HL4AD .8L I . 4 (15) 


IMPLICIT OUTPUTS: 


.ERR.FLG = ZERO; 


NONE 


case .(NIB NUM) from 0 to 9 of 
set 


•CLEAR THE ERROR FLAG BACK IN THE CALLING ROUTINE 
•SELECT THE NIBBLE TO BE TESTED 


C03 : 


C13 


if .NIB. SAVE CNIB.03 neq .(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 0 AND SET ERR FLG IF NEQ 

if .NI8.SAVE CNIB.13 neq .(NIB.PATXO, 4> then .ERR.FLG = ONE; 


f 


CZHLADO Ml-11 LOUC TEST MACRO Ml 11 3 30-MAP-82 11:18 

LAST .BLK.XFER ROUTINE DECLARATION SECTION 


3980 

ML 4 AD 

3981 


3982 


3983 

2854 

3984 

2855 

3985 

2856 

3986 

2857 

3987 

2858 

3988 

2859 

3989 

2860 

3990 

2861 

3991 

2862 

3992 

2863 

3993 

2864 

3994 

2865 

3995 

2866 

3996 

2867 

3997 

2868 

3998 

2869 

3999 


4000 

2871 

4001 

2872 

4002 

2873 

4003 

2874 

4004 

2875 

4005 

2876 

4006 

2877 

4007 

2878 

4008 

2879 

4009 

2880 

4010 

2881 

4011 

2882 

4012 

2883 

4013 

2884 

4014 

2885 

4015 

2886 

4016 

2887 

4017 

2888 

4018 

2889 

4019 


4020 

2891 

4021 

2892 

4022 

2893 

4023 

2894 

4024 


4025 

2896 

4026 

2897 

4027 

2898 

4028 


4029 


4030 

2901 

4031 

2902 

4032 


4033 





ROUTINE DECLARATION SECTION 

C23 : 

ft .NIB.SAVE ENI8.2J neq 
C33 : 

If .NIB. SAVE CNIB.33 neq 
C4J : 

If .NIB.SAVE CNIB.4J neq 
C5J : 

If .NIB.SAVE ENI8.53 neq 
C63 : 

if .NIB.SAVE CNIB.6J neq 
171 : 

if .NIB.SAVE CNIB.73 neq 
C83 : 

if .NIB.SAVE CNIB.83 neq 
191 : 

if . NIB.SAVE CNIB.9J neq 
then 

.ERR.FLG = ONE 

tes; 

end; 


i 


PAGE 124 


SEO C107 


29-Mer-1982 16:23:04 TOPS-20 BUss-16 V2(212) 

29-Mer-1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (15) 

•TEST NIBBLE 1 AND SET ERR FLG IF NEO 


. (NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 2 AND SET ERR FLG IF NEO 

.(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 3 AND SET ERR FLG IF NEQ 

.(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 4 AND SET ERR FLG IF NEO 

.(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 5 AND SET ERR FLG IF NEQ 

.(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 6 AND SET ERR FLG IF NEQ 

.(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 7 AND SET ERR FLG IF NEQ 

.(NIB.PATXO, 4> then .ERR.FLG = ONE; 

•TEST NIBBLE 8 AND SET ERR FLG IF NEQ 

.(NIB.PATXO, 3> 

•TEST NIBBLE 9 AND SET ERR FLG IF NEQ 



E 9 
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LAST.BU.XFER ROUTINE DECLARATION SECTION 


SEQ 0108 


i 

i 


4036 ; At 4 AD 

4037 ; 


ROUTINE 

DECLARATION 

SECTION 

4038 





4042 




.SBTTL 

4043 




4047 020376 



TST. 

LNG.WRD: 

4048 020376 

004167 

164136 


JSR 

4049 020402 

016600 

000010 


NOV 

4050 020406 

005010 



CLR 

4051 020410 

016601 

000014 


NOV 

4052 020414 

006301 

020422 


ASL 

4053 020416 

4054 020422 

066107 

000024 

1$: 

ADD 

.WORD 

4055 020424 

000052 



.WORD 

4056 020426 

4057 020430 

000110 

000140 



.WORD 

.WORD 

4058 020432 

000200 



.WORD 

4059 020434 

000226 



.WORD 

4060 020436 

000264 



.WORD 

4061 020440 

000314 



.WORD 

4062 020442 

000354 



.WORD 

4063 020444 

000404 


2$: 

.WORD 

4064 020446 

016602 

000012 

nov 

4065 020452 

042702 

177760 


BIC 

4066 020456 

016701 

172712 


nov 

4067 020462 

042701 

177760 


BIC 

4068 020466 

020102 



CAP 

4069 020470 

001577 



BEO 

4070 020472 

000574 

000012 

3$: 

8R 

4071 020474 

016601 

nov 

4072 020500 

042701 

177760 


BIC 

4073 020504 

016702 

172664 


nov 

4074 020510 

006202 



A SR 

4075 020512 

006202 



ASR 

4076 020514 

006202 



ASR 

4077 020516 

006202 

177760 


A SR 

4078 020520 

042702 


BIC 

*079 020524 

020201 



CAP 

4080 020526 

001560 



BEQ 

4081 020530 

000555 


4$: 

BR 

4082 020532 

016601 

000012 

nov 

4083 020536 

042701 

177760 


BIC 

4084 020542 

016702 

172626 


nov 

4085 020546 

000302 



SWAB 

4086 020550 

042702 

177760 


BIC 

4087 020554 

020201 



CAP 

4088 020556 

001544 



BEQ 

4089 020560 

000541 

000012 

5$: 

BR 

4090 020562 

016601 

nov 


>9-A*r-19Pj 

>9-A«r-198l 


16:23:04 

16:21:03 


TOPS-20 BUss-16 V2(212) 
PA:<NEALE>AL4AD.BLI.4 (15) 


TST.LNG.WRD ROUTINE DECLARATION SECTION 


R1 ,SSAVE2 
10(SP),R0 
(RO) 

14(SP) ,R1 
R1 

1$(R1) ,PC 
28-1$ 

38-1$ 

48-1$ 

58-1$ 

68 - 1 $ 

78-1$ 

88 - 1 $ 

98-1$ 

108-1$ 
118-1$ 
12<SP).R2 
#1 77760, R2 
NIB. SAVE, R1 
#1 77760, R1 
R1.R2 
134 
12 $ 

12<SP).Rl 

#1 77760, R1 

NIB. SAVE. R2 

R2 

R2 

R2 

R2 

#1 77760, R2 

W' 

128 

12<SP).R1 
81 77766, R1 
NIB. SAVE. R2 

8177760.R2 

R2.R1 

136 

12 $ 

12(SP),R1 


; ERR.FLG,* 
; NIB. NUN,* 


; NIB. PAT,* 


; NI8.PAT,* 


; NIB. PAT,* 


; NIB. PAT,* 


2802 
2839 , 

2841 I 


2846 


2852 


2858 


2864 



0 ML 

NG.UR 


00 02' 
01 02 ' 
02 02 ' 

03 02 

04 02 

05 02< 

06 02 
07 02 

os o; 

09 02 

10 02 
11 02 
12 02 
is o; 
H o; 

15 02 

16 02 

17 02 

18 02 

19 02 

20 02 
21 02 
22 02 

23 02 

24 o; 
125 o; 
26 0, 

27 Oi 

28 o; 


33 0 

34 o; 

35 Oi 

36 Oi 

37 0, 

38 0 

39 0 

sn 

42 0 

43 0 

44 0 

145 02 
46 02 
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TST.LNG.WRD ROUTINE DECLARATION SECTION 


SEG O' 


4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4176 

4177 


021012 

021014 

021020 

021022 

021024 

021026 

021032 

021036 

021042 

021044 

021046 

021050 

021052 

021054 

021060 

021062 

021064 

021070 


;ML4AD 


042702 

020201 

001422 

000417 

016601 

042701 

016702 

006202 

006202 

006202 

006202 

000302 

042702 

020201 

001402 

012710 

000207 


177760 


000012 

177770 

172336 


177770 


000001 


• ROUTINE DECLARATION SECTION 

SWAB R2 

BiC f 177760, R2 

CMP R2.R1 

BEQ 13$ 

BR 121 

11$: MOV 12<5P) ,R1 

BIC #177770,R1 n 

MOV NIB. SAVE *4,R2 

ASR R2 

ASR R 2 

ASR R2 

ASR R2 

SWAB R2 

BIC #1 77770, R2 

CMP R2.R1 

BEQ 13$ „ 

12$: MOV #1,(R0> 

13$: RTS PC 

; Routine Size; 158 words 
; Maximum stack depth per invocation: 3 words 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


; NIB. PAT,* 


J 


CZNLADO ML-11 LOGIC TEST MACRO Mill 3 

TST.LNG.WRI) ROUTINE DECLARATION SECTION 


H 9 
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SEO 0111 


4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 


ML4AD 


ROUTINE DECLARATION SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI.4 (16) 


2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 


routine XOR.LNG.WRD (NIB.NUM, NIB.PAT, RESULT) : novalue = 
begin 

^FUNCTIONAL DESCRIPTION: 

EXCLUSIVE ORS THE CURRENT 
NIBBLE POSITION IN 'NIB SAVE' 

WITH THE CURRENT TEST PATTERN 
AND ASSIGNS THE RESULTS TO THE 
FORMAL PARAMETER ’RESULT*. 

FORMAL PARAMETERS: 

NIB NUN 

CASE SELECT EXPRESSION TO 
SELECT THE CURRENT NIBBLE TO BE 
EXAMINED 

NIB PAT 

CURRENT NIBBLE PATTERN TO BE 
XOR'ED 

RESULT 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF AN OWN STORAGE LOCATION TO 

ENABLE THE CALLER TO EXAMINE THE XOR RESULTS. 

IMPLICIT INPUTS: 

NIB SAVE 

BLOCK OF 3 WORDS TO STORE 
THE DATA FOUND IN MLD1 
MLD2 AND MLE2 AFTER A 
DIAGNOSTIC MODE READ. 


IMPLICIT OUTPUTS: 


NONE 


case .(NIB.NUM) from 0 to 9 of 
set 


•SELECT THE NIB8LE TO BE XOR'ED 


C03 

C13 

C23 

C33 


.RESULT - .NIB. SAVE CNIB.03 wf> STO re RESULTS IN THE ADRS CONTAINED IN .RESULTS 
.RESULT - .NIB. SAVE CNIB.13 f J or'JUqBle^ AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
.RESULT - .NIB.SAVE CNIB.23 ?5|J R *!J{§g[J T j MD $ TO re RESULTS IN THE ADRS CONTAINED IN .RESULTS 


L 



CZHLADO 

TST.LNG 

4235 

4236 
423 7 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4270 

4271 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 


NL-11 LOGIC TEST NACRO N1113 

.WRD ROUTINE DECLARATION SECTION 


I 9 

30-NAA-82 11:18 PAGE 129 


SEO 0112 


NL4AD 


021072 

021072 

021076 

021102 

021106 

021112 

021114 

021120 

021122 

021124 

021126 

021130 

021132 

021134 

021136 


ROUTINE DECLARATION SECTION 


>9-N«r-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
*9-R*r-1982 16:21:03 PA : <NEALE >NL4AD .BL 1 . 4 (16) 


2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 


004167 163474 
016601 000016 
016602 OOOOU 
016600 000020 
006300 

066007 021120 

000024 

000036 

000062 

000070 

000076 

000120 

000136 

000144 


.RESULT 


= .NIB SAVE CNIB.33 xor .NIB PAT; 

!XOR NIBBLE 3 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


£43 : 


! RESULT = .NIB SAVE CN1B.43 xor .NIB PAT; 

!XOR NIBBLE 4 AND STORE RFSULTS IN THE ADRS CONTAINED IN .RESULTS 


.RESULT = 


= .NIB SAVE CNIB.53 xor .NIB PAT: 

!XOR NIBBLE 5 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


£63 : 


[RESULT = .NIB SAVE CNIB.63 xor .NIB PAT; 

!XOR NIBBLE 6 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


£73 : 


.RESULT = 


= .NIB SAVE CNIB 73 xor .NIB PAT; 

! XOR NIBBLE 7 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


.RESULT = 


= .NIB SAVE CNI8.83 xor .NIB PAT: 

!XOR NIBBLE 8 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESUI TS 


£93 : 


.RESULT = .NIB SAVE CNI8.93 xor .NIB PAT „ _ 

!XOR NIBBLE 9 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


.S8TTL XOR.LNG.WRD ROUTINE DECLARATION SECTION 
.LNG.URD: 

JSR R1.SSAVE4 

NOV 16(SP).R1 ; NIB. PAT,* 

NOV 14(SP),R2 ; RESULT,* 

NOV 20(SP),R0 ; NIB.NUN,* 

ASL RO 

ADD 1$(R0),PC 

.WORD 2S-1S 

.WORD 3S-1S 

.WORD 4S-1S 

.WORD 5S-1S 

.WORD 6S-1S 

.WORD 8$-1$ 

.WORD 9S-1$ 

.WORD 10S-1S 
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S 


ROUTINE DECLARATION SECTION 


125-1$ 

155-1$ 

NIB. SAVE, (R2> 

#1 77760, (R2) 

175 

NI8.SAVE,R3 

R3 

R3 

R3 

R3 

#1 77760, R3 
R3,(R2> 

75 

NIB. SAVE ,R4 
135 

NIB. SAVE, R4 
115 

NI8.SAVE+2,(R2) 
#177760, <R§) 
R1.R4 
(R2),R4 
R1,(R2) 

R4,(R2> 

PC 

NI8.SAVE*2,R4 

R4 

R4 

R4 

R4 

145 

NI8.SAVE+2,R4 

135 

NI8.SAVE*2,R4 

R4 

R4 

R4 

R4 

135 

NIB.SAVE*4,R4 

R4 

#1 77760, R4 
165 

NIB. SAVE *4, R4 

R4 

R4 

R4 

R4 

R4 

#1 77770, R4 
R4,(R2) 

R1.R3 

(R2),R3 


29-N«r-1982 16:23:04 
29-N*r-1982 16:21:03 


K 9 
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XOR.LNG.WRD ROUTINE DECLARATION SECTION 


4343 

4348 

4349 

4350 021346 040112 

4351 021350 050312 

4352 021352 000207 


4361 


BiC 

BIS 

RTS 


ROUTINE DECLARATION SECTION 

R1,(R2> 

R3,(R2> 

PC 


; Routine Size: 89 words 

; Maximum stack depth per invocation: 5 words 


SEQ 0114 

29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


2906 


i 


I 9 
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XOR.LNG.URD ROUTINE DECLARATION SECTION 


SEQ 0115 


4363 ;ML4AD 

4364 ; 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 


2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 


29-Mar- 1982 16:23:04 T0PS-20 Bliss-16 V2<212> 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 PA : <NE ALE >NL4AD .8L 1 . 4 (17) 

routine LD.LNG.WRD (NIB.NUN, NIB.PAT) : novalue = 
begin 


FUNCTIONAL DESCRIPTION: 

LOADS 'NIB SAVE' WITH UNIQUE 
NIBBLE PATTERNS PRIOR TO WRITING 
TO MLD1, MLD2 AND MLE2 
DATA DIAGNOSTIC REGISTERS. 

FORMAL PARAMETERS: 

NIB N(JM 

CASE SELECT EXPRESSION TO SELECT 
THE CURRENT NIBBLE TO BE LOADED 

NIB PAT 

CURRENT nibble pattern to be 
LOADED 

IMPLICIT INPUTS: 

NIB SAVE 

BLOtK OF 3 WORDS TO STORE 
THE DATA TO BE WRITTEN 
INTO MLD1 MLD2 MLE2 

IMPLICIT OUTPUTS: 

NIB SAVE IS LOADED WIH 
THE CURRENT NIBBLE PATTERN 


case . (NIB.NUN) from 0 to 9 of 
set 

COD : 

NIB.SAVE [NIB.OJ = .NIB.PAT 
C13 : 

NIB.SAVE CNI8.1J = .NIB.PAT 

C2J 1 

NIB.SAVE CNI8.2J = .NIB.PAT 
C3J : 

NIB.SAVE CNIB.3J = .NIB.PAT 
C43 : 

NIB.SAVE CNI8.4J = .NIB.PAT 
C5J : 

NIB.SAVE CNIB.53 - .NIB.PAT 


C6J : 


! SELECT THE NIBBLE LOCATION IN NIB.SAVE TO BE LOADED 

IlOAD NIBBLE 0 WITH NIB.PAT 
'LOAD NIBBLE 1 WITH NIB.PAT 
!LOAD NIBBLE 2 WITH NIB.PAT 
!L0AD NIBBLE 3 WITH NIB.PAT 
•LOAD NIBBLE 4 WITH NIB.PAT 
•LOAD NIBBLE 5 WITH NIB.PAT 
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XOR.LNG.WRD ROUTINE DECLARATION SECTION 


SEO 0116 


4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4438 

4439 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 


;ML4AD 


021354 

021354 

021356 

021362 

021366 

021370 

021374 

021376 

021400 

021402 

021404 

021406 

021410 

021412 

021414 

021416 

021420 

021424 

021432 

021434 

021436 

021440 

021442 

021444 

021450 

021456 

021460 

021462 

021466 

021474 

021476 


ROUTINE DECLARATION SECTION 


3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 


010146 

016600 

016601 

006301 

066107 

000024 

000040 

000064 

000102 

000134 

000150 

000174 

000212 

000244 

000262 

042700 

142767 

000433 

006300 

006300 

006300 

006300 

042700 

142767 

000421 

000300 

042700 

042767 

000412 

000300 


NI8.SAVE CNI8.63 = .NI8.PAT 


000004 

000006 

021374 


C73 : 

NIB.SAVE ENI8.73 = 
C83 : 

NI8.SAVE CNI8.8J = 
C9J : 

NI8.SAVE CNI8.93 = 

tes; 


.SBTTL 

LD.LNG.URD: 

MOV 


.NI8.PAT 

.NI8.PAT 


.NIB.PAT 


29-Mar-1982 16:23:04 TOPS-20 BUss-16 V2C212) 
29-Mar- 1982 16:21:03 PA : <NE ALE>ML4AD .BL I . 4 (17) 

JLOAD NIBBLE 6 WITH NI8.PAT 


•LOAD NIBBLE 7 WITH NI8.PAT 
!LOAD NIBBLE 8 WITH NI8.PAT 


•LOAD NIBBLE 9 WITH N1B.PAT 


LD.LNG.WRD ROUTINE DECLARATION SECTION 


R1, -<SP> 
4 <SP), RO 
6(SP) ,R1 
R1 


NIB. PAT,* 
NIB.NUM,* 


177760 

000017 171742 


177417 

000360 171716 


170377 

007400 171700 



ADD 

1$<R1).PC 

1$: 

.WORD 

28-18 


.WORD 

3S-1S 


.WORD 

4S-1S 


.WORD 

5S-1S 


.WORD 

7S-1S 


.WORD 

8S-1S 


.WORD 

9S-1S 


.WORD 

1 OS-1 s 


.WORD 

128-18 


.WORD 

138-1 S 

2$: 

81 C 

#1 77760, RO 


BICB 

#17, NIB. SAVE 


BR 

68 

38: 

ASL 

RO 


ASL 

HO 


ASL 

RO 


ASL 

RO 


BIC 

#1 77417, RO 


BICB 

#360, NIB. SAVE 


BR 

68 

4$: 

SWAB 

RO 


BIC 

#1 70377, RO 


BIC 

#7400, NIB. SAVE 


BR 

68 

5$: 

SWAB 

RO 


N 9 
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LD.LNG.WRD ROUTINE DECLARATION SECTION 


4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 
•512 
4515 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 


021500 

021502 

021504 

021506 

021510 

021514 

021522 

021526 

021530 

021534 

021542 

021544 

021546 

021550 

021552 

021554 

021560 

021566 

021570 

021572 

021576 

021604 

021606 

021610 

021612 

021614 

021616 

021620 

021624 

021632 

021636 

02164U 

021642 

021646 

021656 

021660 

021662 

021664 

021666 

021670 

021674 

021702 

021706 

021710 


006300 
006300 
006300 
006300 
042700 
042767 
050067 
000467 
042700 
142767 
000433 
006300 
006300 
006300 
006300 
042700 
142767 
000421 
000300 
042700 
042767 
000412 
000300 
006300 
006300 
006300 
006300 
042700 
042767 
050067 
000423 
000300 
042 7 00 
04:767 
000412 
000300 
006300 
006300 
006300 
006300 
042700 
042767 
050067 
012601 
000207 


007777 

170000 

171646 

171652 

6$: 

177760 

000017 

171634 

7$: 



8$: 

177417 

000360 

171610 


170377 

007400 

171572 

9$: 



10$: 

007777 

170000 

171540 

171544 

11$: 

170377 

007400 

171524 

12$: 



13$: 

107777 

070000 

171472 

171476 

14$: 

15$: 


•ML4AD 

• ROUTINE DECLARATION SECTION 

ASL RO 

ASL RO 

ASL RO 

BIC #7777.R0 

B1C #170000, NIB. SAVE 

BIS RO. NIB. SAVE 

BR 15$ 

BIC #1 77760, RO 

BICB #17,NIB.SAVE+2 

BR 11$ 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

BIC #1 77417.R0 

BICB #360, NIB. SAVE +2 

BR 11$ 

SWAB RO „ 

BIC #1 70377.R0 

BIC #7400.NI8.SAVE+2 

BR 11$ 

SWAB RO 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

BIC #7777 .RO 

BIC #170000, NIB. SAVE +2 
BIS RO, NIB. SAVE +2 

BR 15l 

SWAB RO 

BIC #1 70377, RO 

BIC #7400 , NI B . SAVE +4 

BR 14$ 

SWAB RO 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

BIC #1 07777, RO 

BIC #70000 ,NIB . SAVE +4 

BIS RO, NIB. SAVE *4 

MOV (SP) +.R1 

RTS PC 

Routine Size: 111 words 
Maximus stack depth per invocation: 2 words 


SEQ 0117 

29-Mar-l982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


3017 

3033 


3036 


3039 

3042 

3017 

3045 

3048 


2987 


CZMLADO ML-11 LOGIC TEST MACRO M1113 

LD.LNG.URD ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


8 10 
PAGE 135 


SEQ 0118 


4531 

4532 
<,533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4558 

4559 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4583 

4584 


ML4AD 


021712 

021716 

021722 

021724 

021726 

021730 

021732 

021736 

021742 

021/46 

021752 

021754 

021760 


3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 


004167 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

000207 


ROUTINE DECLARATION SECTION 

routine WRT.CS1 (TST.PAT, index) 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI .4 <18> 


novalue = 


^FUNCTIONAL DESCRIPTION: 

LOADS THE CONTROL t STATUS REGISTER 1 WITH A DATA PATTERN 
GENERATED BY THE MACRO URT.MASK. 

FORMAL PARAMETERS: 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

USED X BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI. FORCED LO *ND DON'T CARE MASK INFORMATION. 


! — 



MLCS1 

= WRT.MASK; 

•LOAD GENERATED URT.MASK PATTERN 

en*; 




.S8TTL 

URT.CS1 ROUTINE DECLARATION SECTION 

162622 

WRT.CS1 :JSR 

R1 ,$SAVE2 

000010 

MOV 

10(SP) ,R0 .* INDEX.* 


ASL 

RO 


ASL 

RO 


ASL 

RO 


MOV 

R0.R1 ^ 

015406 

MOV 

ML.REG*2(R1),R0 

000012 

BIS 

12(5P),R0 ; TST.PAT,* 

015410 

BIC 

ML.REG*4(R1).R0 

015412 

MOV 

ML.REG*6(R1) ,R2 


BIS 

R0.R2 

173424 

MOV 

R2.iML.REG 


RTS 

PC ; 


3052 

3071 


3052 


Routine Size: 20 words 

Maximus stack depth per invocation: 3 words 




C 10 


i 

ZMLADO ML-11 LOGIC TEST 

MACRO mi 13 30-MAR-82 11:18 PAGE 136 



JRT.CS1 ROUTINE 

DECLARATION SECTION 


SEQ 0119 

4586 ; ALA AD 


29-Mar-1982 

16:23:04 

TOPS-20 Bliss-16 V2<212> 

, -S87 ; 

ROUTINE DECLARATION SECTION 29-Mar-1982 

16:21:03 

PA : <NE ALE >ML4 AD .8L 1 . 4 (19) 

AS88 

4589 ; 

3073 

routine RD C$1 (TST.PAT, index. ERR.FLG) : novalue = 



4590 ; 

3074 

begin ~ 



4591 ; 

3075 




4592 ; 

3076 




4593 ; 

3077 

FUNCTIONAL DESCRIPTION: 



4594 ; 

3078 




4595 ; 

3079 

COMPARES THE CONTENTS OF THE 



4596 ; 

3080 

CONTROL 8 STATUS REGISTER 1 



4597 ; 

3081 

WITH THE MASKED DATA PATTERN 



4598 ; 

3082 

GENERATED BY THE MACRO 'WRT.MASK' 



4599 ; 

3083 




4600 ; 

3084 

IF THE COMPARE IS NOT EOUAL THEN 



4601 ; 

3085 

THE FORMAL PARAMETER 'ERR.FLG' IS 



4602 ; 

3086 

ASSIGNED A ONE TO INDICATE THE 



4603 ; 

3087 

ERROR. 



4604 ; 

3088 




4605 ; 

3089 

FORMAL PARAMETERS: 



4606 ; 

3090 




4607 ; 

3091 

TST PAT 



4608 ; 

3092 

DAT* PATTERN TO BE MASKED AND 



4609 ; 

3093 

COMPARED AGAINST THE CONTENTS 



4610 ; 

3094 

OF THE REGISTER UNDER TEST. 



4611 ; 

3095 




4612 ; 

3096 

INDEX 



4613 ; 

3097 

USED BY THE MACRO UR T MASK TO 



4614 ; 

3098 

SELECT THE CURRENT REGISTERS ADDRESS. 



4615 ; 

3099 

FORCED HI. FORCED LO AND DON'T CARE 



4616 ; 

3100 

MASK INFORMATION. 



4617 ; 

3101 




4618 ; 

3102 

ERR.FLG 



4619 ; 

3103 

CONTAINS THE ADDRESS (PASSED BY REF) 



4620 ; 

3104 

OF THE CALLERS ERROR FL6 TO ENABLE THE 



4621 ; 

3105 

CALLER TO EXAMINE THE ERROR STATUS 



4622 ; 

3106 

OF THE ROUTINE CALL. 



4623 ; 

3107 




4624 ; 

3108 

IMPLICIT INPUTS: 



4625 ; 

3109 

UT DATA 



4626 ; 

3110 

Gets loaded with the generated 



4627 ; 

3111 

URT MASK DATA PATTERN THUS ALLOWING 



4628 ; 

s x no - 

3112 

CALCER TO PRINT FAILING 600D DATA. 



Ao<V ; 

4630 ; 

3114 

RD DATA 



4631 ; 

3115 

GETS LOADED WITH DATA READ FROM THE 



4632 ; 

3116 

REGISTER THUS ALLOWING CALLER 



4633 ; 

3117 

TO PRINT FAILING BAD DATA. 



4634 ; 

3118 




4635 ; 

3119 

IMPLICIT OUTPUTS: 



4636 ; 

3120 

6L06AL LOCATION WR.DATA 



4637 ; 

3121 

AND RD DATA LOADED WITH GOOD 



4638 ; 

3122 

AND BAD REGISTER DATA 



4639 ; 

3123 

— 



4640 ; 

I 

3124 



j 



CZMLADO KL-11 LOGIC TEST MACRO M1113 

WRT.CS1 ROUTINE DECLARATION SECTION 


D 10 

30-MAR-82 11:18 PAGE 137 


SEQ 0120 


; ML A AD 


4642 

4643 

4644 

4645 

4646 

464 7 

4648 

4649 

4650 

4651 

4652 

4656 

4657 

4661 021762 

4662 021766 

4663 021772 

4664 021776 

4665 022000 

4666 022002 

4667 022004 

4668 022006 

4669 022012 

4670 022016 

4671 022022 

4672 022026 

4673 022030 

4674 022034 

4675 022040 

4676 022044 

4677 022050 

4678 022056 

4679 022060 

4680 022066 

4681 

4682 

4683 

4688 

4689 


ROUTINE DECLARATION SECTION 


3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 


004167 

005076 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

000207 


.ERR F LG = ZERO; 

WT DATA = WRT MASK; 
RD’DATA * .MLtSI or 


IGNORE; 


29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA<NEALE>ML4AD.BLI .4 (19) 

! CLEAR ERROR FLAG 

.'SAVE THE DATA WRITTEN TO THE REGISTER 
.'READ AND SAVE THE REGISTER 


if .WT.DATA neq .RD.DATA then .ERR.FLG * ONE; 


!READ THE REG FOR WRT.MASK 


end; 


162552 

000010 

000012 


RD.iSI 


.S8TTL 

JSR 

CLR 

MOV 

ASL 

ASL 

ASL 


! SET ERROR FLAG IF NEQ 


RD.CS1 ROUTINE DECLARATION SECTION 
R1.SSAVE2 

ai6(SP) ; ERR. F LG 

12(SP),R0 ; INDEX.* 

RO 

RO 

RO 


3073 

3125 

3126 


015406 


MOV 

ML.REG+2(R1).R0 

000014 


BIS 

14(SP).R0 

015410 


BIC 

ML.REG*4(R1),R0 

015412 


MOV 

BIS 

ML.REG*6(R1).R2 

R0.R2 

173314 


MOV 

R2.WT.DATA 

173344 


MOV 

8ML.RE6.R2 

ML.REG+6(R1).R2 

015412 


BIS 

173302 


MOV 

R2.RD.DATA 

173274 

173274 

CMP 

8EQ 

WT.DATA.RD.DATA 

IS 

000001 

000010 

MOV 

#1.810(SP) 

IS: 

RTS 

PC 


TST.PAT,* 


♦.ERR.FLG 


3127 

3129 

3073 


; Routine Size: 35 words 
; Maxim** stack depth per invocation: 


3 words 


L. 


CZMLADO ML-11 LOGIC TEST MACRO Mil 13 

RO.CS1 ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


E 10 
PAGE 138 


SEO 0121 


4691 ; ML 4 AO 

4692 

4693 

4694 

4695 

4696 

4697 
46''" 

46 >9 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4717 

4718 

4722 022070 

4723 022074 

4724 022100 

4725 022102 

4726 022104 

4727 022106 

4728 022110 

4729 022114 

4730 022120 

4731 022124 

4732 022130 

4733 022132 

4734 022136 

4735 

4736 

4737 

4742 

4743 


J1S 

3136 

3137 
3178 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 


004167 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

000207 


ROUTINE DECLARATION SECTION 

routine WRT.ER (TST.PAT, Index) : novalue = 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>Ml4AD.BLI.4 (20) 


Functional description: 

LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT.MASK 
FORMAL PARAMETERS: 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

INDEX 

USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS. 

FORCED HI. FORCED LO *ND DON'T CARE MASK INFORMATION. 


MLER 

end; 


= WRT.MASK; 


162444 

WRT.ER: JSR 

R1 .SSAVE2 

• 

0 

000010 

MOV 

10(SP).R0 

m 

0 


ASL 

RO 



ASL 

RO 



ASL 

RO 



MOV 

R0.R1 


015406 

MOV 

ML.REG*2(R1),R0 


000012 

BIS 

12(SP).R0 

• 

0 

015410 

BIC 

ML.RE6*4<R1).R0 


015412 

MOV 

ML.REG+6(R1>.R2 



BIS 

R0.R2 


173326 

MOV 

R2.8ML.REG*60 



RTS 

PC 

• 

• 


!LOAD GENERATE WRT.MASK PATTERN INTO MLER 


INDEX.* 


3133 

3151 


TST.PAT.* 


3133 


Routine Size: 20 words 

Maximus stack depth per- invocation: 3 words 


f 10 

CZMLADO ML-1 1 LOGIC TEST MACRO Ml 113 30-MAR-82 11:18 PAGE 139 

URT.ER ROUTINE DECLARATION SECTION 


SEQ 0122 


474 5 ; ML 4 AD 
4746 ; 

A 747 
A7A8 
A7A9 
A750 
A751 
A75 
A75 
A75A 
A755 
A 756 
A757 
A758 
A759 
A760 
A761 
4762 
A 763 
A76A 
A765 
A766 
A 767 
A768 
A769 
A 770 
A771 
A 772 
A773 
A77A 
A775 
A776 
A 777 
A778 
A779 
A780 
A 781 
A 782 
A 783 
A78A 
A 785 
A 786 
A 787 
A 788 
A 789 
A 790 
A791 
A 792 
A 793 
A79A 
A795 
A796 
A 797 
A 798 
A 799 


3153 

3154 

3155 

3156 

111! 

3159 

3160 

3161 

3162 

3163 
31 6A 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 
31 7A 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 
318A 
3(85 
318o 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 


29-Mar -1982 16:23:04 

ROUTINE DECLARATION SECTION 29-Mar-i982 16:21:03 

routine RD.ER (TST.PAT, index, ERR.FLG) : novalue = 
begin ~ 


FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
ERROR REGISTER WITH 
THE MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WRT.MASK'. 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER 'ERR FLG' IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DAT* PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO WRT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED H!. FORCED LO AND DON'T CARE 
MASK INFORMATION. 


CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FL6 TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

GETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALtER TO PRINT FAILING GOOO DATA. 

RD DATA 

GETS LOADED WITH DATA READ FROM THE 
RE6ISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION UR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS-20 Bliss-16 V2(212> 
PA:<N£ALE>ML4AD.8LI.4 (21) 


CZNLADO NL-11 LOGIC TEST NACRO *1113 

VRT.ER ROUTINE DECLARATION SECTION 


30-RAR-82 11:18 


G 10 
PAGE 140 


SEQ 0123 


;NL4AD 


4801 

4802 

4803 

4804 
48^ 

48uo 

4807 

4808 

4809 

4810 

4811 

4812 

4816 

4817 

4821 022140 

4822 022144 

4823 022150 

4824 022154 

4825 022156 

4826 022160 

4827 022162 

4828 022164 

4829 022170 

4830 022174 

4831 022200 

4832 022204 

4833 022206 

4834 022212 

4835 022216 

4836 022222 

4837 022226 

4838 022234 

4839 022236 

4840 022244 

4841 

4842 
48*5 
48^3 
48*9 


3t05 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 


004167 

005076 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

000207 


ROUTINE DECLARATION SECTION 


.ERR J LG * ZERO; 

WT DATA * WRTHASK; 

RD'DATA = .NL&* or .IGNORE; 


29-Nar-l982 16:23:04 
29-Rar-1982 16:21:03 


TOPS-20 Btiss-16 V2(212) 
PA:<NEALE>NL4AD.8U.4 (21) 


.'CLEAR THE ERROR FLAG 

•SAVE THE DATA WRITTEN TO THE REGISTER 

IREAD AND SAVE THE REGISTER 


if .WT.DATA neq .RD.DATA then .ERR.FLG = ONE; 


!READ THE REG FOR WRT.NASK 


end; 


! SET ERROR FLAG IF NEQ 


162374 

000010 

000012 


015406 

000014 

015410 

015412 

173136 

173246 

015412 

173124 

173116 173116 
000001 000010 


RD.ER: 


1 $: 


.S8TTL 

JSR 

CLR 

NOV 

ASL 

ASL 

ASL 

NOV 

NOV 

BIS 

BIC 

NOV 

BIS 

NOV 

NOV 

BIS 

NOV 

CNP 

BEQ 

NOV 

RTS 


RD.ER ROUTINE DECLARATION SECTION 
R1.SSAVE2 
BIO(SP) 

12<SP),R0 
RO 
RO 
RO 

R0.R1 

NL.REG*2(R1),R0 
14(SP).R0 
NL.REG+4(R1) # R0 
NL.REG*6(R1) ,R2 
R0.R2 

R2.WT.DATA 
aNL.REG+60.R2 
NL.REG*6<R1>,R2 
R2.RD.DAT A 
WT. DATA. RD.DATA 
1$ 

fl.aiO(SP) 

PC 


ERR.FLG 

INDEX.* 


TST.PAT,* 


3153 

3206 

3207 


*. ERR.FLG 


3208 

3210 

3153 


Routine Size: 35 words 

NexfiMj* stack depth per invocation: 3 words 


( 

i 

i 



CZMLADO ML-11 LOGIC TEST 


RD.ER ROUTINE DECLARATION SECTION 


MACRO Ml 113 30-MAR-82 11:18 PAGE 141 


SEO 0124 


4851 ;ML4AD 

4852 : 


4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 


4867 

4868 

4869 


4882 022246 

4883 022252 

4884 022256 

4885 022260 

4886 022262 

4887 022264 
4858 022266 

4889 022272 

4890 022276 

4891 022302 

4892 022306 

4893 022310 

4894 022314 

4895 

4896 


29-Mar-198L 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML< 

rout In* WRT.DA (TST.PAT, Index) : novalue = 
begin 

i FUNCTIONAL DESCRIPTION: 

j LOADS THE DESIRED SECTOR WITH A DATA PATTERN GENERATED BY THE MACRO WRT.MASK 

i 

! FORMAL PARAMETERS: 

j 

i tst pat 

! CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

i 

i INDEX 

| USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

! FORCED HI, FORCED LO XNO DON’T CARE MASK INFORMATION. 


16:23:04 

16:21:03 


novalue = 


3216 

3217 

3218 

3219 

3220 

3221 

m 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 


004167 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

000207 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD.8LI.4 (22) 


MLDA = WRT.MASK; 
end; 


1L0AD MLDA WITH GENERATED WRT.MASK PATTERN 


162266 

000010 


015406 

000012 

015410 

015412 

173120 


WRT. DA: 


.SBTTL 

JSR 

MOV 

ASL 

ASL 

ASL 

MOV 

MOV 

BIS 

BIC 

MOV 

BIS 

MOV 

RTS 


WRT. DA ROUTINE DECLARATION SECTION 
R1,)SAVE2 

10($P),RO ; INDEX.* 

RO 

RO 

RO 

R0.R1 

ML.REG*2(R1),R0 

12(SP),R0 ; TST.PAT.* 

ML.REG*4(R1).R0 

ML.REG*6(R1),R2 

R0.R2 

R2,8ML.REG+30 

PC 


; Routine Size: 20 words . 

; Maximum stack depth per invocation: 3 words 



SEO 0125 


fZ*UAD0 «L-n LOGIC TEST MACRO N1113 

»RT.DA ROUTINE DECLARATION SECTION 


I 10 

30-MAR-82 11:18 PAGE 142 


4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 


NL4AD 


P 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 


ROUTINE DECLARATION SECTION 

routine RD^DA <TST_PAT, Index, ERR.FL6) 
begin 


>9-Mar-1982 

>9-Mar-198* 


16:23:04 TOPS-20 Blfss-16 V2(212> 

16:21:03 PA:<NEALE>ML4AD.BLI.4 (23) 


novalue = 


FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
DESIRED SECTOR ADDRESS REGISTER 
WIT H THE MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WRTJUSK' 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER 'ERR FLG' IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR 

FORMAL PARAMETERS: 

TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 

INDEX 

USED BY THE MACRO WRT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION 

ERR FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Gets loaded with the generated 

WRT MASK DATA PATTERN THUS ALLOWING 
CALtER TO PRINT FAILING GOOD DATA. 

RD DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


J 10 
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URT .DA ROUTINE DECLARATION SECTION 


SEO 0126 


4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4975 

4976 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5007 

5008 


;NL4AD 

ROUTINE DECLARATION SECTION 

3286 .ERR FIG = ZERO; 

3287 WT DATA = WRT NASA; 

3288 RD.DATA = .NLBA _r .IGNORE; 

3289 

3290 if .WT.DATA neq .RD.DATA then .ERR FLG 

3291 

3292 

3293 end; 


29-Nar-1982 16:23:04 T0PS-20 Bliss-16 V2C212) 

29-Nar-1982 16:21:03 PA:<NEALE>NL4AD.BLI .4 (23) 

! CLEAR THE ERROR FLAG 

.'SAVE THE DATA WRITTEN TO THE REGISTER 

•READ AND SAVE THE REGISTER 

= ONE; .'READ THE REG FOR WRT.NASK 

.'SET ERROR FLAG IF NEQ 







.S8TTL 

RD.DA ROUTINE DECLARATION SECTION 


022316 

004167 

162216 


RD.DA: 

JSR 

R1.SSAVE2 

• 

• 


022322 

005076 

000010 



CLR 

8l6(SP) 

* 

0 

ERR. FLG 

022326 

016600 

000012 



NOV 

12(SP) ,R0 

0 

INDEX.* 

022332 





ASL 

RO 



022334 

006300 




ASL 

RO 



022336 

006300 




ASL 

RO 



022340 

010001 




NOV 

R0.R1 



022342 

016100 

015406 



NOV 

NL.REG+2<R1),R0 



022346 

056600 

000014 



BIS 

14(SP),R0 

• 

0 

TST.PAT 

022352 

046100 

015410 



BIC 

NL.REG+4(R1),R0 



022356 

016102 

015412 



NOV 

NL.REG+6(R1),R2 



022362 

050002 




BIS 

ROM 



022364 

010267 

172760 



NOV 

R2, WT.DATA 



022370 

017702 

173040 



NOV 

3NL.REG+30.R2 

• 


022374 

056102 

015412 



BIS 

NL.REG+6(R1).R2 



022400 

010267 

172746 



NOV 

R2, RD.DATA 



022404 

026767 

172740 

172740 


CNF* 

WT.DATA .RD.DATA 

0 


022412 

001403 




BEQ 

1$ 



022414 

012776 

000001 

000010 


NOV 

ti.aio(sp) 

« 

0 

*,ERR.F 

022422 

000207 



1$: 

RTS 

PC 

# 



; Routine Size: 35 words 
; Naxiaux stack depth per Invocation: 3 words 


3234 

3286 

3287 


3288 

3290 

3234 


K 10 
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RO.OA ROUTINE DECLARATION SECTION 


SEO 0127 


5010 ;ML4AD 


5011 ; 


5012 


5013 ; 

3294 

5014 ; 

3295 

5015 . 

3296 

5016 ; 

3297 

5017 ; 

3298 

5018 ; 

3299 

5019 ; 

3300 

5020 ; 

3301 

5021 ; 

3302 

5022 ; 

3303 

5023 ; 

3304 

5024 ; 

3305 

5025 ; 

3306 

5026 ; 

3307 

5027 ; 

3308 

5028 ; 

3309 

5029 ; 

3310 

5030 ; 

3311 

5031 ; 

3312 

5032 ; 

3313 

5036 


5037 


5041 022424 

004167 

5042 022430 

016600 

5043 022434 

006300 

5044 022436 

006300 

5045 022440 

006300 

5046 022442 

010001 

5047 022444 

016100 

5048 022450 

056600 

5049 022454 

046100 

5050 022460 

016102 

5051 022464 

050002 

5052 022466 

010277 

5053 022472 

000207 

5054 


5055 


5056 


5061 


5062 



?9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2<212) 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8L1 .4 (24) 

routine YRT_MR (TST_PAT, index) : novalue = 
begin 


♦♦ 

FUNCTIONAL DESCRIPTION: 

LOADS THE MAINTENANCE REGISTER WITH A DATA PATTERN GENERATED BV THE MACRO WRT.MASK 
FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

USED*BV THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS. 

FORCED HI. FORCED LO AND DON'T CARE MASK INFORMATION. 


MLMR 

end; 


162110 

000010 


015406 
00001 2 
015410 
015412 

173032 


WRT MASK; .'LOAD MLMR WITH GENERATED WRT.MASK PATTERN 


.SBTTL 

WRT. MR ROUTINE DECLARATION SECTION 

IT. MR: JSR 

R1.SSAVE2 

• 

# 

MOV 

10(SP).R0 

; INDEX.* 

ASL 

RO 


ASL 

RO 


ASL 

RO 


MOV 

R0.R1 


MOV 

ML.REG+2(R1),R0 


BIS 

12(SP),R0 

; TST. PAT 

BIC 

ML.REG+4(R1).R0 


MOV 

ML.REG+6(R1),R2 


BIS 

R0.R2 


MOV 

R2.9ML.REG+120 


RTS 

PC 

• 

9 

Routine Size: 

20 words 


Maximum stack 

depth per invocation: 

3 words 


3294 

3312 


3294 
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URT .HR ROUTINE DECLARATION SECTION 


SEQ 0128 


5064 

ML4AD 

5065 


5066 


5067 

3314 

5068 

3315 

5069 

3316 

5070 

3317 

5071 

3318 

5072 

3319 

5073 

3320 

5074 

3321 

5075 

3322 

5076 

3323 

5077 

3324 

5078 

3325 

5079 

3326 

5080 

3327 

5081 

3328 

5082 

3329 

5083 

3330 

5084 

3331 

5085 

3332 

5086 

3333 

5087 

3334 

5088 

3335 

5089 

3336 

5090 

3337 

5091 

3338 

5092 

3339 

5093 

3340 

5094 

3341 

5095 

3342 

5096 

3343 

5097 

3344 

5098 

3345 

5099 

3346 

5100 

3347 

5101 

3348 

5102 

3349 

5103 

3350 

5104 

3351 

5105 

3352 

5106 

3353 

5107 

3354 

5108 

3355 

5109 

3356 

5110 

3357 

5111 

3358 

5112 

3359 

5113 

3360 

5114 

3361 

5115 

3362 

5116 

3363 

5117 

3364 

5118 

3365 


29-Mar-1982 16:23:04 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 

routine RD.MR (TST.PAT, index, ERR.FLG) : novalue = 
begin 


FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
MAINTENANCE REGISTER WITH THE 
MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WRT.MASK' . 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER 'ERR FLG' IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DAT* PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USfcU BY THE MACRO WRT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 

ERR FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Gets loaded with the generated 

WRT MASK DATA PATTERN THUS ALLOWING 

calCer to print failing good data. 

RD DATA 

Gets loaded with data read from the 

REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR DATA 
AND RD DATA LOADED WITH GOOD 
AND BAG REGISTER DATA 


T0PS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD.8LI.4 (25) 
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WRT.MR ROUTINE DECLARATION SECTION 


SEQ 0129 


5120 ; ML A AD 

5121 ; 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5135 

5136 

5140 022474 

5141 022500 

5142 022504 

5143 022510 

5144 022512 

5145 022514 

5146 022516 

5147 022520 

5148 022524 

5149 022530 

5150 022534 

5151 022540 

5152 022542 

5153 022546 

5154 022552 

5155 022556 

5156 022562 

5157 022570 

5158 022572 

5159 022600 

5160 

5161 

5162 

5167 

5168 


3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 


004167 

005076 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

000207 


ROUTINE DECLARATION SECTION 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>ML4AD.81I.4 (25) 


.ERR FL6 = ZERO; 

WT DATA = WRT MASK; 
RD’DATA = .NLAR or 


IGNORE; 


•CLEAR THE ERROR FLAG 

!SAVE THE DATA WRITTEN TO THE REGISTER 

.•READ AND SAVE THE REGISTER 


if .WT.DATA neq .RD.DATA then .ERR.FLG = ONE; ‘READ THE REG FOR WRT.MASK 


end; 


• SET ERROR FLAG IF NEQ 


162040 

000010 

000012 


015406 

000014 

015410 

015412 


172602 

172752 

015412 

172570 

172562 

172562 

000001 

000010 


.S8TTL 

RD.MR: JSR 
CLR 
MOV 
ASL 
ASL 
ASL 
MOV 
MOV 
BIS 
BIC 
MOV 
BIS 
MOV 
MOV 
BIS 
MOV 
CMP 
BEQ 
MOV 

IS: RTS 


RD.MR ROUTINE DECLARATION SECTION 

R1.SSAVE2 

aiO(SP) 

12<SP),R0 

RO 

RO 

RO 

R0,R1 

ML.REG+2(R1),R0 
14CSP) ,R0 
ML.REG*4(R1),R0 
ML.REG*6(R1).R2 
R0,R2 

R2.WT.DATA 

8ML.REG+120.R2 

ML.REG*6(R1),R2 

R2,RD.DATA 

WT. DATA, RD. DATA 

IS 

#1,310(SP> 

PC ; 


ERR.FLG 

INDEX,* 


TST.PAT,* 


*, ERR.FLG 


; Routine Size: 35 words 
; Maximus stack depth per invocation: 3 words 


3314 

3367 

3368 


3369 

3371 

3314 


CZMLADO ML-11 LOGIC TEST 


RD.MR ROUTINE DECLARATION SECTION 


MACRO Nil 13 30-MAR-82 11:18 PAGE 147 


SEQ 0130 


5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5194 

5195 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5221 

5222 


; ML 4 AD 


022602 

022606 

022614 

022620 

022622 

022624 

022626 

022630 

022634 

022640 

022644 

022650 

022652 

022656 

022664 


ROUTINE DECLARATION SECTION 

routine WRT.PA (TST.PAT, index) : novalue = 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>ML4AD.8LI .4 (26) 


FlfNfTTONAi DESCRIPTION* 

LOADS THE PROM ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT.MASK 
FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

USED*BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS. 

FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 


PROM J> IS = ONE; 
MLPA = WRT.MASK; 
PROM.DIS = ZERO; 
end; 


! SET PROM DISABLE BIT 

•LOAD MLPA WITH GENERATED WRT.MASK PATTERN 
.•CLEAR PROM DISABLE BIT 


004167 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

142777 

000207 


161732 

000040 

000010 


015406 

000012 

015410 

015412 


172710 


WRT. PA: 


172626 

000040 172640 


.SBTTL 

JSR 

BISS 

MOV 

ASL 

ASL 

ASL 

MOV 

MOV 

BIS 

BIC 

MOV 

BIS 

MOV 

BICB 

RTS 


WRT. PA ROUTINE DECLARATION SECTION 

R1.8SAVE2 

#46,aML.REG+120 

1 0 ( SP) ,R0 ; INDEX,* 

RO 

RO 

RO 

R0.R1 

ML.REG*2(R1).R0 

12(SP),R0 ; TST. PAT,* 

ML.REG*4(R1),R0 

ML.REG+6(R1),R2 

R0.R2 

R2-8ML.REG+100 

#40,8ML.REG*120 ; 

PC 


; Routine Size: 26 words 
; Maximum stack depth per invocation: 3 words 
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URT.PA ROUTINE DECLARATION SECTION 


SEO 0131 


5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

P 

5274 

5275 

5276 

5277 

5278 


HI 4 AD 


3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 


29-Ha r- 1982 16:23:04 

ROUTINE DECLARATION SECTION 29-Har-1982 16:21:03 

routine RD_PA (TST.PAT, index, ERR.FLG) : novalue = 
begin 


FUNCTIONAL DESCRIPTION: 

COHPARES THE CONTENTS OF THE 
PROH ADDRESS REGISTER 
WITH THE HASKED DATA PATTERN 
GENERATED BT THE HACRO 'WRT_HASK' . 

IF THE COMPARE IS NOT EQUAL THEN 
THE fORMAL PARAMETER 'ERR FLG' IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DAT* PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BV THE HACRO WRT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


CONTAINS THE ADDRESS (PASSED BT REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Gets loaded with the generated 

WRT MASK DATA PATTERN THUS ALLOWING 

calCer to print failing good data. 

RD DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS-20 Bli*s-16 V2(212) 

PA : <NE ALE >ML4AD .BL 1 . 4 (27) 



i CZHLADO ML- 11 LOGIC TEST MACRO M1113 

! URT .PA ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


C 11 
PAGE 149 


SEO Cl 32 


5280 

5281 

5282 

5283 

5284 

5285 

5286 
528/ 

5288 

5289 

5290 

5291 

5295 

5296 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5329 

5330 


;ML4AD 


022666 

022672 

022676 

022704 

022710 

022712 

022714 

022716 

022720 

022724 

022730 

022734 

022740 

022742 

022746 

022752 

022756 

022762 

022770 

022772 

023000 

023006 


3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 


004167 

005076 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

142777 

000207 


ROUTINE DECLARATION SECTION 

.ERR FLG = ZERO; 

PROM'DJS = ONE; 

UT DATA = WRT MASK; 

RD’DATA = .MLPA or .IGNORE; 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


T0PS-20 Btiss-16 V2(21 2) 
PA:<NEALE>NL4AD.BLI.4 (27) 


•CLEAR THE ERROR FLAG 

•SET THE PROM DISABLE BIT 

•SAVE THE DATA WRITTEN TO THE REGISTER 

IREAD AND SAVE THE REGISTER 


if .WT.DATA neq .RD.DATA then .ERR.FLG = ONE; 


•READ THE REG FOR WRT.MASK 


PROM J) IS =• ZERO; 
end; 


•SET ERROR IF NEQ 
! CLEAR THE PROM DISABLE BIT 


.S8TTL 


161646 


RD.PA: 

JSR 

000010 



CLR 

000040 

172620 


BISB 

000012 



MOV 



ASL 




ASL 




ASL 




MOV 

015406 



pnv 

000014 



biS 

015410 



BIC 

015412 



MOV 




BIS 

172402 



MOV 

172532 



MOV 

015412 



BIS 

172370 



MOV 

172362 

172362 


CMP 




8EQ 

000001 

000010 


MOV 

000040 

172516 

IS: 

BICB 



RTS 


RD.PA ROUTINE DECLARATION SECTION 
R1.SSAVE2 
aiO(SP) 

#40,3ML.REG+120 
12(SP) ,R0 
RO 
RO 
RO 

R0.R1 

ML.REG+2(R1),R0 
14(SP).R0 
ML.REG+4(R1 ) ,R0 
ML.REG+6(R1),R2 
R0.R2 

R2.WT.DATA 
8ML.REG+100.R2 
ML.REG*6(R1),R2 
R2.RD.DATA 
WT. DATA, RD. DATA 
1 * 

#i.ai 0 (sp) 

#40,aML.REG*120 

PC 

Routine Size: 41 words . , 

Maximum stack depth per invocation: 3 words 


ERR. FLG 
INDEX,* 


; TST.PAT,* 


3393 

3445 

3446 

3447 


*, ERR. FLG 


3448 

3450 


3452 

3393 
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RO.PA ROUTINE DECLARATION SECTION 


SEO 0133 


5332 ; ML 4 AD 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5350 

5351 

5352 

5356 

5357 

5361 023010 

5362 023014 

5363 023022 

5364 023026 

5365 023030 

5366 023032 

5367 023034 

5368 023036 

5369 023042 

5370 023046 

5371 023052 

5372 023056 

5373 023060 

5374 023064 

5375 023072 

5376 

5377 

5378 

5383 

5384 


3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 
3*66 

3467 

3468 

3469 

3470 

3471 


004167 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

142777 

000207 


ROUTINE DECLARATION SECTION 

routine WRT.E1 (TST.PAT, index) 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<21 2) 
PA:<NEALE>ML4AD.8LI.4 (28) 


novalue = 




FUNCTIONAL DESCRIPTION* 

LOADS THE ECC CRC WORD REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT.MASK 
FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

USED*8Y THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

FORCED HI, FORCED LO *ND DON'T CARE MASK INFORMATION. 


ECC DM = ONE; 
MLET = WRT MASK; 
ECC.DM = ZERO; 
end; 


•SET ECC DIAG MODE 

•LOAD MLE1 WITH GENERATED WRT.MASK PATTERN 
! CLEAR ECC DIAG MODE 


.SBTTL 


161524 


WRT. El: JSR 

000001 

172502 

8 1 SB 

000010 


MOV 

ASL 

ASL 

ASL 

MOV 

015406 


NOV 

000012 


BIS 

015410 


BiC 

015412 


MOV 

BIS 

172470 


MOV 

000001 

172432 

81 CB 
RTS 


WRT. El ROUTINE DECLARATION SECTION 
R1 .SSAVE2 
#1 ,3ML.REG+120 

10(SP),RO ; INDEX,* 

RO 

RO 

RO 

R0,R1 


3454 

3468 

3469 


ML.REG*2(R1),R0 
12<SP) ,R0 
ML.REG+4(R1>,R0 
NL.REG*6(R1>,R2 
RO, R2 

R2,8ML.REG*150 
#1 ,1ML.RE6*120 
PC 

Routine Size: 26 uords 

Maximum stack depth per invocation: 


TST. PAT,* 


3470 

3454 


3 words 
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WRT.E1 ROUTINE DECLARATION SECTION 


SEO 0134 


5386 ;ML4AD 

5387 ; 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 


m 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 


ROUTINE DECLARATION SECTION 

routine RD £1 (TST PAT. Index. ERR.FLG) 
begin “ 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


novalue = 


♦♦ 


FUNCTIONAL DESCRIPTION: 


THE 


COMPARES THE CONTENTS OF 
ECC CRC WORD REGISTER 1 
WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WRT.MASK* 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER 'ERR.FLG' IS 
ASSIGNED A ONE TO INDICATE THE ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DATA PATTERN TO 8E MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI. FORCED LO AND DON'T CARE 
MASK INFORMATION. 

ERR.FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Gets loaded with the generated 

WRT MASK DATA PATTERN THUS ALLOWING 
CALtER TO PRINT FAILING GOOD DATA. 

RD DATA 

Gets loaded with data read from the 

REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAG REGISTER DATA 


.ERR.FLG = 2ER0; 


TOPS-20 Bliss-16 V2(212> 
PA: <NE ALc>ML 4 AD. 8LI .4 (29) 


! CLEAR THE ERROR FLAG 



CZMLADO «L-1 1 LOGIC TEST MACRO Mil 13 

URT.E1 ROUTINE DECLARATION SECTION 


30-NAR-82 11:18 


F 11 
PAGE 152 


SEQ 0135 



5442 ; ML 4 AD 

5443 ; 

5444 

5445 ; 

5446 ; 

5447 ; 

5448 ; 

5449 ; 

5450 

5451 

5452 

5453 

5457 

5458 

5462 

5463 

5464 

5465 

5466 

5467 023120 

5468 023122 

5469 023124 

5470 023126 

5471 023132 
023136 
023142 

5474 023146 

5475 023150 

5476 023154 

5477 023160 

5478 023164 

5479 023170 
H80 023176 

*81 023200 

5482 023206 

5483 023214 

5484 

5485 

5486 

5491 

5492 


5472 

547! 


Isis 

3526 

3527 

3528 

3529 

3530 

3531 

3532 


004167 

005076 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

142777 

000207 


ROUTINE DECLARATION SECTION 
ECC DM = ONE; 

wt Data = wrt mask; 

RD’DATA = .NISI or .IGNORE; 


29-Mar-1982 16:23:04 
29-M»r-1982 16:21:03 


T0PS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD.8LI .4 (29) 


! SET ECC DIAG MODE 

•SAVE THE DATA WRITTEN TO THE REGISTER 
•READ AND SAVE THE REGISTER 


ft .WT.DATA net, .RD.DATA then .ERR.FLG = ONE; 
ECC. DM = ZERO; 
end; 

.SQTTL 


!READ THE REG FOR WRT.MASK 


!SET ERROR FLAG IF NEQ 
! CLEAR ECC DIAG MODE 


161440 


RD.E1 : 

JSR 

000010 



CLR 

000001 

172412 


BISS 

000012 



MOV 



ASL 




ASL 




ASL 




MOV 

015406 



MOV 

000014 



BIS 

015410 



BIC 

015412 



MOV 



BIS 

172174 



MOV 

172374 



NOV 

015412 



BIS 

172162 

172154 

172154 


MOV 

CMP 

BEG 

MOV 

000001 

000010 


000001 

172310 

IS: 

BIC8 



RTS 


RD.E1 ROUTINE DECLARATION SECTION 
R1.SSAVE2 

810(SP) ; ERR.FLG 

#1,aML.REG*120 

12CSP) ,R0 ; INDEX,* 

RO 
RO 
RO 

R0.R1 

HL.REG*2(R1>,R0 

HCSPJ.RO ; TST.PAT,* 

ML.REG*4(R1),R0 

ml.r|gh(rd.r2 

R0.R2 
R2.WT.DATA 
RML.REG+150.R2 
ML.REG+6CR1) ,R2 
R2.RD.DAT A 
WT. DATA, RD. DATA 

fl.ilO(SP) ; *, ERR.FLG 

01.8ML.REG+12O 
PC 

; Routine Size: 41 words 
; Maximus stack depth per invocation: 3 words 


3472 

3523 

3524 

3525 


3526 

3528 


3530 

3472 


! 



C2ALA00 NL-11 LOGIC TEST 


RD.E1 ROUTINE DECLARATION SECTION 


MACRO Ml 113 30-MAR-82 11:18 


G 11 
PAGE 153 


0136 


5494 ;ML4AD 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

m 

5524 

5525 

5526 

5527 

5531 

5532 

5536 023216 

5537 023222 

5538 023230 

5539 

5540 

5541 



5542 

5543 

5544 

5545 023256 

5546 023262 

5547 023266 

5548 023272 


3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 
35.8 

3559 

3560 

3561 

3562 

3563 


004167 

152777 

012767 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 


ROUTINE DECLARATION SECTION 

routine WRT_E2 (TST.PAT, Index) 
begin 


29-Mer-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 BUss-16 V2(2*2> 
PA:<WEALE>ML4AD.8LI.4 (30) 


novalue = 


^FUNCTIONAL DESCRIPTION: 

LOADS THE ECC CRC WORD 
REGISTER 2 WITH A DATA PATTERN 
GENERATED BY THE MACRO 
WRT.MASK 

FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
INDEX 

USED BY THE MACRO WRT.MASK 
TO SELECT THE CURRENT REGISTERS 
ADDRESS* FORCED HI* FORCED 
LO AND DON'T CARE MASK 
INFORMATION. 


ECC DM = ONE: 

MLE2 MASK = fco' 177700'; 
HLE2= WRT.MASK: 

MLE2 MASK = Xo * 000000 '; 

ECCjJM = ZERO; 

end; 


•SET ECC D1AG MODE 

•MASK OUT DATA D1AG BITS 

•LOAD PILE 2 WITH GENERATED WRT MASK PATTERN 

.•RESTORE NLE2 MASK 

•CLEAR ECC DiXG MODE 


.S8TTL WRT.E2 ROUTINE DECLARATION SECTION 
161316 WRT.E2: JSR R1.SSAVE2 

000001 172274 BIS8 #1 ,Pr.L.REG*120 

177700 172334 MOV #-?00.ML.REG+166 

000010 MOV 10(SP).R0 ; INDEX,* 

ASL RO 

ASL RO 

ASL RO 

MOV RO R1 

015406 MOV Ml'rEG+2(R1),R0 

000012 SIS 12(SP)*R0 ; TST. PAT,* 

015410 BIC ML.REG*4(RD.R0 

015412 MOV ML.REG+6(R*.) ,R2 

BIS R0,R2 


3533 

3558 

3559 

3560 


H 11 
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WRT.E2 ROUTINE DECLARATION SECTION 


5550 

5551 

5552 

5553 023274 

5554 023300 

5555 023304 

5556 023312 

5557 

5558 

5559 

5564 

5565 


ROUTINE DECLARATION SECTION 


010277 

172264 

MOV 

R2,3Ml.REG+160 


005067 

172266 

CLR 

ML.REG+166 


142777 

000001 172212 

BIC8 

#1.aML.REG+120 


000207 


RTS 

PC 



; Routine Size: 31 words 
; Maximum stack depth per invocation: 3 words 



SEO 0137 

16:23:04 TOPS 
16:21:03 PA:< 


3561 

3562 
3533 



I l 1 
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WRT.E2 ROUTINE DECLARATION SECTION 


5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 

5617 

5618 

5619 


ML4AD 


3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 


ROUTINE DECLARATION SECTION 

routine RD.E2 (TST_PAT, index. ERR.FLG) : novel 
begin " 


FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
ECC CRC WORD REGISTER 2 
WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WRT.MASK' 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG' IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO WRT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI. FORCED LO AND DON'T CARE 
MASK INFORMATION. 

ERR FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

GETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 

RD DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION UR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


SFO 01 3a 


29-Mer-1982 16:23:04 TOPS-20 Bliss- .6 V2(212) 

29-Mer-1982 16:21:03 PA:<NEALE>ML4AD.BlI .4 (31) 



CZMLADO ML-11 LOGIC TEST MACRO Ml 113 

WRT.E2 ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


J 11 
PAGE 156 


SEQ 0139 


5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5642 

5643 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 


ML4AD 


023314 

023320 

023324 

023332 

023340 

023344 

023346 

023350 

023352 

023354 

023360 

023364 

023370 

023374 

023376 

023402 

023406 

023412 

023416 

023424 

023426 

023434 

023440 

023446 


3616 

3617 
36*8 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 


004167 

005076 

152777 

012767 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

005067 

142777 

000207 


ROUTINE DECLARATION SECTION 


.ERR J LG = ZERO; 

77700'; 

WT D*TA = UR T MASK; 

RD“DATA * .MLE2 or .IGNORE; 


>9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(2 12) 

>9-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (31) 


.'CLEAR ERROR FLAG 

.'SET ECC DIAG MODE 

1MASK OUT DATA DIAG BITS 

•SAVE THE DATA WRITTEN TO THE REGISTER 

•READ AND SAVE THE REGISTER 


if .WT.DATA neq .RD.DATA then .ERR.FLG = ONE; 


•READ THE REG FOR WRT.MASK 


MLE2 MASK = Xo'OOOOOO'; 

ECCJJM = ZERO; 

end; 


.SBTTL 


161220 


RD.E2: 

JSR 

000010 



CLR 

000001 

172172 


BISS 

177700 

172232 


MOV 

000012 



MOV 




ASL 




ASL 




ASL 




MOV 

015406 



MOV 

000014 



BIS 

015410 



BIC 

015412 



MOV 




BIS 

171746 



MOV 

172156 



MOV 

015412 



BIS 

171734 



MOV 

171726 

171726 


CMP 




BEO 

000001 

000010 


MOV 

172132 


IS: 

CLR 

000001 

172056 


BICB 




RTS 


.•SET ERROR FLG IF NEO 
•RESTORE MLE2 MASK 
•CLEAR ECC DIAG MODE 


RD.E2 ROUTINE DECLARATION SECTION 
R1.SSAVE2 

aiO(SP) ; ERR. FLG 

fl.iML.REG+120 

#-100,ML.REG*166 

12( SPJ.RO ; INDEX.* 

RO 

RO 

RO 

R0.R1 

ML.RE6+2<R1),R0 

14(SP).R0 ; TST.PAT,* 

ML.RcG*4(K1>,R0 

ML.REG+6(R1).R2 

R0.R2 

R2.WT.DATA 
3ML.REG+160.R2 
ML. REG*6(R1 5, R2 
R2.RD.DATA 
WT. DATA, RD. DATA 

#1 ,810(SP) ; *, ERR. FLG 

ML.REG+166 

#1,«ML.REG+120 

PC : 


Routine Size: 46 words 

Maxinmm stack depth per invocation: 3 words 


3564 

3617 

3618 

3619 

3620 


3621 

3623 


3626 

3627 
3564 
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CZMLADO ML-11 LOGIC TEST MACRO Mil 13 30-MAR-82 11:18 PAGE 157 

RD.E2 ROUTINE DECLARATION SECTION 


SEQ OHO 


5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5718 

5719 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 


ML4AD 


023450 

023454 

023462 

023470 

023474 

023476 

023500 

023502 

023504 

023510 

023514 


3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 


004167 

152777 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 


ROUTINE DECLARATION SECTION 

routine WRT_PD (TST.PAT, index) 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (32) 


novalue = 


^FUNCTIONAL DESCRIPTION: 

LOADS THE PROM DATA 
REGISTER WITH A DATA PATTERN 
GENERATED BY THE MACRO 
WRT .MASK 

FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 

INDEX 

USED BY THE MACRO WRT.MASK 
TO SELECT THE CURRENT REGISTERS 
ADDRESS, FORCED HI, FORCED 
LO AND DON'T CARE MASK 
INFORMATION 


PROM RU = ONE; 
DAT DM = ONE; 
HLPD = WRT MASK; 
DAT CLK = ONE; 
PROW RW = ZERO; 
DAT JM = ZERO; 
end; 


•SET PROM READ WRITE 
! SET DATA DIAG MODE 

!LOAD MLPD WITH GENERATED WRT.MASK PATTERN 
•DO A DATA CLK 
•CLEAR PROM READ WRITE 
! CLEAR DATA DIAG MODE 


.S8TTL 


161064 


WRT. PD: JSR 

000100 

172042 

BISS 

000010 

172034 

8ISB 

000010 


MOV 

ASL 

ASL 

ASL 

MOV 

015406 


MOV 

000012 


BIS 

015410 


81 C 


WRT. PD ROUTINE DECLARATION SECTION 
R1.SSAVE2 
#100,iML.REG+120 
#10,BML.REG+120 

10(SP),R0 ; INDEX.* 

RO 
RO 
RO 

R0,R1 

ML. REG+2(R1>, RO 

12(SP),R0 ; TST. PAT,* 

ML.REG+4(R1),R0 


3629 

3655 

3656 

3657 


f 
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VRT.PD ROUTINE DECLARATION SECTION 


5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5752 

5753 


;ML4AD 


023520 

016102 

015412 


MOV 

023524 

050002 



BIS 

023526 

010277 

172102 


MOV 

023532 

152777 

000020 

171764 

eiss 

023540 

142777 

000100 

171756 

81 CB 

023546 

142777 

000010 

171750 

BICB 

023554 

000207 



RTS 


; Routine Size: 
; Maximum stack 


ROUTINE DECLARATION SECTION 


ML.REG+6(R1>,R2 

R0.R2 

R2 i aML.REG+230 

#20 X 8ML.REG+120 

#100,aML.REG+120 

#10 # 8ML.REG+120 

PC 


35 words 

depth per invocation: 3 words 


SEQ 0141 

29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


3638 

3659 

3660 
3629 



1 


M 11 
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MACRO Ml 113 30-MAR-82 11:18 PAGE 159 




URT. PD ROUTINE DECLARATION SECTION 



SEO 0142 

5755 

: ML 4 AD 


29-Mar-1982 

16:23:04 

TOPS-20 Bliss-16 V2(212) 

5756 

; ROUTINE DECLARATION SECTION 

29-Mar-1982 

16:21:03 

PA : <NEALE >ML4AD .BL 1 . 4 (33) 

575' 

5758 

3662 routine RD PD (TST PAT, index, ERR FLG) : novalue = 



5759 

3663 

begin 




5760 

3664 





5761 

3665 ! 





5762 

C 7 i 7 

3666 ! 

74Z7 | 

FUNCTIONAL DESCRIPTION: 




5765 

5764 

3668 ! 

COMPARES THE CONTENTS OF THE 




5765 

3669 ! 

PROM DATA REGISTER 




5766 

3670 ! 

WITH THE MASKED DATA PATTERN 




5767 

3671 • 

GENERATED BY THE MACRO 'WRTJ1ASK' 




5768 

3672 ! 





5769 

3673 « 

IF THE COMPARE IS NOT EQUAL THEN 




5770 

3674 ! 

THE FORMAL PARAMETER 'ERR FLG' IS 




5771 

3675 ! 

ASSIGNED A ONE TO INDICATE THE 




5772 

3676 ! 

ERROR 




5773 

3677 ! 





5774 

3678 ! 

FORMAL PARAMETERS: 




5775 

3679 ! 





5776 

3680 ! 

TST PAT 




5777 

3681 ! 

DATA PATTERN TO BE MASKED AND 




5778 

3682 ! 

COMPARED AGAINST THE CONTENTS 




5779 

3683 ! 

OF THE REGISTER UNDER TEST 




5780 

3684 • 





5781 

3685 ! 

INDEX 




5782 

3686 ! 

USED BY THE MACRO URT MASK TO 




5783 

3687 ! 

SELECT THE CURRENT REGISTERS ADDRESS, 




5784 

3688 ! 

FORCED HI, FORCED LO AND DON'T CARE 




5785 

3689 ! 

MASK INFORMATION. 




5786 

3690 ! 





5787 

3691 • 

ERR FLG 




5788 

3692 ! 

CONTAINS THE ADDRESS (PASSED BY REF) 




5789 

3693 

OF THE CALLERS ERROR FLG TO ENABLE THE 




5790 

3694 I 

CALLER TO EXAMINE THE ERROR STATUS 




5791 

3695 ! 

OF THE ROUTINE CALL. 




5792 

3696 ! 





5793 

3697 ! 

IMPLICIT INPUTS: 




5794 

3698 ! 

WT DATA 




5795 

3699 « 

GETS LOADED WITH THE GENERATED 




5796 

3700 ! 

URT MASK DATA PATTERN THUS ALLOWING 




5797 

3701 • 

CALtER TO PRINT FAILING GOOD DATA. 




5798 

3702 ! 





5799 

3703 ! 

RD DATA 




5800 

3704 ! 

GETS LOADED WITH DATA READ FROM THE 




5801 

3705 • 

REGISTER THUS ALLOWING CALLER 




5802 

3706 ! 

TO PRINT FAILING BAD DATA. 




5803 

3707 ! 





5804 

3708 

IMPLICIT OUTPUTS: 




5805 

3709 * 

GLOBAL LOCATION WR DATA 




5806 

3710 ! 

AND RD DATA LOADED WITH GOOD 




5807 

3711 ! 

AND BAD REGISTER DATA 




5808 

3712 ! 





5809 

3713 ‘ 
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! WRT.PD ROUTINE DECLARATION SECTION 


SEQ 0143 


5811 ;ML4AD 

5812 ; 

5813 

5814 ; 

5815 ; 

5816 ; 

5817 ; 

5818 ; 

5819 ; 

5820 : 

5821 ; 

5822 ; 

5823 ; 

5824 ; 

5825 ; 

5826 ; 

5830 

5831 

5835 023556 

5836 023562 

5837 023566 

5838 023574 

5839 023602 

5840 023606 

5841 023610 

5842 023612 

5843 023614 

5844 023616 

5845 023622 

5846 023626 

5847 023632 

5848 023636 

5849 023640 

5850 023644 

5851 023650 

5852 023654 

5853 023660 

5854 023666 

5855 023670 

5856 023676 

5857 023704 

5858 023712 


ROUTINE DECLARATION SECTION 


.ERR.FLG = ZERO; 

PROM RW = ONE; 

DAT BM = ONE; 

wt Bata = wrt mask; 

RD DATA = .MLPD or .IGNORE; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>ML4AD.BLI.4 (33) 


! CLEAR ERROR FLG 
•SET PROM READ WRITE 
•SET DATA DIAG MODE 

•SAVE THE DATA WRITTEN TO THE REGISTER 
!READ AND SAVE THE REGISTER 


if .WT.DATA neq .RD.DATA then .ERR.FLG = ONE; 


‘READ THE REG FOR WRT.MASK 


PROM RW = ZERO; 
DAT.BM = ZERO; 
end; 


! SET ERROR FLAG IF NEO 
.‘CLEAR PROM READ WRTE 
‘CLEAR DATA DIAG MODE 


004167 

005076 

152777 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

142777 

142777 

000207 


RD.PD: 


160756 

000010 

000100 171730 
000010 171722 
000012 


015406 

000014 

015410 

015412 

171504 

171764 

015412 

171472 

171464 171464 

000001 000010 
000100 171620 1$; 
000010 171612 


.S8TTL 

JSR 

CLR 

BISB 

81 SB 

MOV 

ASL 

ASL 

ASL 

MOV 

MOV 

BIS 

B1C 

MOV 

BIS 

MOV 

MOV 

BIS 

MOV 

CMP 

BEQ 

MOV 

BICB 

BICB 

RTS 


RD.PD ROUTINE DECLARATION SECTION 

R1.SSAVE2 

31 6 (SP) 

#100.aML.REG+120 

#10.aML.REG+120 

12(SP) .RO 

RO 

HO 

RO 

ro ri 

ml!reg+2<ri>.ro 

14(SP).R0 
NL.REG+4(R1>,R0 
ML.REG+6(R1).R2 
R0.R2 
R2.WT.DATA 
8ML.REG+230.R2 
ML.REG+6(R1).R2 
R2.RD.DATA 
WT. DATA, RD. DATA 
1 $ 

#1.i10(SP) 

#100,aML.REG+120 ; 

#10,aML.REG+120 

PC 


ERR.FLG 


INDEX.* 


TST.PAT,* 


3662 

3715 

3716 

3717 

3718 


♦.ERR.FLG 


; Routine Size: 47 words 
; Maximum stack depth per invocation: 3 words 
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RD.PD ROUTINE DECLARATION SECTION 


SEO 0144 


5867 ;ML4AD 

5868 ; 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 

5887 
5883 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5899 

5900 

5904 023714 

5905 

5906 

5907 

5912 

5913 


3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 


000207 


ROUTINE DECLARATION SECTION 

routine WRT_EL (TST_PAT, index) 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


novalue = 


FUNCTIONAL DESCRIPTION: 

DUMMY ROUTINE CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGOR I THEN 

FORMAL PARAMETERS: 

TST PAT 

DAT* PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERROR LOCATION REG IS READ ONLY 
return; 
end; 


• SBTTL 
URT. EL: RTS 


URT. EL ROUTINE DECLARATION SECTION 
PC 


Routine Size: 1 word 

Maximus stack depth per invocation: 0 words 


TOPS-20 Bliss-16 V2(2 12) 

PA : <NE ALE >ML 4 AD. BL I. 4 (34) 


3727 


1 


C 12 


fZMLADO ML-11 LOGIC TEST 

MACRO Mil 13 30-MAR-82 11:18 PAGE 162 


WRT. EL ROUTINE DECLARATION SECTION 

SEQ 0145 

5915 

•Ml 4AD 

29-Mar-1982 16:23:04 

T0PS-20 Bliss-16 V2(212) 

5916 

mi 7 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 

PA:<NEALE>ML4AD.BLJ .4 (35) 

591 7 
5918 

3753 

routine RD EL (TST.PAT, index, ERR.FLG) : novalue = 


5919 

3754 

begin * 


5920 

3755 



5921 

3756 



5922 

3757 

FUNCTIONAL DESCRIPTION: 


5923 

3758 



5924 

3759 

COMPARES THE CONTENTS OF THE 


5925 

3760 

ERROR LOCATION REGISTER 


5926 

3761 

WITH THE CONTENTS OF TST.PAT. 


5927 

3762 



5928 

3763 

IF THE COMPARE IS NOT EOUAL THEN 


5929 

3764 

THE FORMAL PARAMETER ’ERR FLG' IS 


5930 

3765 

ASSIGNED A ONE TO INDICATE THE 


5931 

3766 

ERROR 


5932 

3767 



5933 

3768 

FORMAL PARAMETERS: 


5934 

3769 

TST PAT 


5935 

3770 

DATA PATTERN TO BE MASKED AND 


5936 

3771 

COMPARED AGAINST THE CONTENTS 


5937 

3772 

OF THE REGISTER UNDER TEST 


5938 

3773 



5939 

3774 

INDEX 


5940 

3775 

USED BY THE MACRO WRT MASK TO 


5941 

3776 

SELECT THE CURRENT REGISTERS ADDRESS, 


5942 

3777 

FORCED HI, FORCED LO AND DON'T CARE 


5943 

3778 

MASK INFORMATION. 


5944 

3779 



5945 

3780 

ERR FLG 


5946 

3781 

CONTAINS THE ADDRESS (PASSED BY REF) 


5947 

3782 

OF THE CALLERS ERROR FLG TC ENABLE THE 


5948 

3783 

CALLER TO EXAMINE THE ERROR STATUS 


5949 

3784 

OF THE ROUTINE CALL. 


5950 

3785 


! 

5951 

3786 

IMPLICIT INPUTS: 


5952 

3787 

WT DATA 


5953 

3788 

GETS LOADED WITH THE GENERATED 


5954 

3789 

WRT MASK DATA PATTERN THUS ALLOWING 


5955 

3790 

CALtER TO PRINT FAILING GOOD DATA. 


5956 

3791 



5957 

3792 

RD DATA 


5958 

3793 

Gets loaded with data read from the 


5959 

3794 

REGISTER THUS ALLOWING CALLER 


5960 

3795 

TO PRINT FAILING BAD DATA. 


5961 

3796 



5962 

3797 

IMPLICIT OUTPUTS: 


5963 

3798 

GLOBAL LOCATION WR.DATA 


5964 

3799 

AND RD DATA LOADED WITH GOOD 


5965 

3800 

AND BAD REGISTER DATA 


5966 

3801 



5967 

3802 

— 


5968 

3803 



} 5969 

i 

> 

i 

! 

! 

! 

3804 

.ERR.FLG = ZERO; 



ICZMLADG ML-11 LOGIC TEST MACRO *1113 

WRT.EL ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 PAGE 


SEQ 0H6 


5971 ;NL4AD 

5972 ; 

5973 

5974 ; 3805 

5975 ; 3806 

5976 ; 3807 

5977 ; 3808 

5978 ; 3809 

597° ; 3810 

5983 

5984 

5988 023716 005076 

5989 023722 016667 

5990 023730 017767 

5991 023736 026767 

5992 023744 001403 

5993 023746 012776 

5994 023754 000207 

5995 

5996 

5997 
6002 
6003 


ROUTINE DECLARATION SECTION 

WT DATA = .TST PAT; 
RDlDATA = .MLEC; 


>9-*sr-1982 16:23:04 TOPS-20 Bliss-16 V2I212) 

>9-Nar-1982 16:21:03 PA:<N6ALE>*L4AD.8LI.4 (35) 


!SAVE THE DATA WRITTEN TO THE REGISTER 
.'READ AND SAVE THE REGISTER 


if .RD.DATA neq .WT.DATA then .ERR.FLG = ONE; 


IREAD REGISTER FOR WT.DATA 


005076 000002 
016667 000006 171420 
017767 171670 171414 
026767 171410 171404 
001403 

012776 000001 000002 


RD.EL: 


.S8TTL 

CLR 

*0V 

«0V 

C*P 

BEO 

NOV 

RTS 


RD.EL ROUTINE DECLARATION SECTION 
B2(SP) ; ERR.FLG 

6<SP),WT.DATA ; TST.PAT,* 

a*L.RE6+220,RD.DATA 
RD.DATA.WT.DATA 
1 $ 

#1,a2(SP> ; *. ERR.FLG 

PC 


Routine Size: 16 words 

Maximum stack depth per invocation: 0 words 


CZMLADO HI- 11 LOGIC TEST 


RD.EL ROUTINE DECLARATION SECTION 


MACRC H1113 30-MAR-82 11:18 PAGE 


E 12 
164 


6005 ; Ml 4 AD 


6006 ; 


600 7 


6008 ; 

3811 

6009 ; 

3812 

6010 ; 

3813 

6011 ; 

3814 

6012 ; 

3815 

6013 ; 

3816 

6014 ; 

3817 

6015 ; 

3818 

6016 ; 

3819 

6017 ; 

3820 

6018 ; 

3821 

6019 ; 

3822 

6020 ; 

3823 

6021 ; 

3824 

6022 ; 

3825 

6023 ; 

3826 

6024 ; 

3827 

6025 ; 

3828 

6026 ; 

3829 

6027 ; 

3830 

6028 ; 

3831 

6029 ; 

3832 

6030 ; 

3833 

6031 ; 

3834 

6032 ; 

3835 

6036 


6037 


6041 023756 

000207 

6042 


6043 


6044 


6049 


6050 



ROUTINE DECLARATION SECTION 

routine WRT.EE (TST.PAT, index) 
begin 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


novalue = 


FUNCTIONAL DESCRIPTION: 

DUHHY ROUTINE CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGORITHEH 

FORHAL PARAMETERS: 

TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ECC ERROR REGISTER IS READ ONLY 
return; 
end; 

.S8TTL WRT.EE ROUTINE DECLARATION SECTION 
WRT.EE: RTS PC 

; Routine Size: 1 word 

; Maximum stack depth per Invocation: 0 words 


SEQ OH? 

TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.BLI.4 (36) 


3611 
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WRT.EE ROUTINE DECLARATION SECTION 


SEQ 0148 


6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 
6061 
6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 
6081 
6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 
6101 
6102 

6103 

6104 

6 


ML4AD 


3876 

3877 

3878 

3879 


ROUTINE DECLARATION SECTION 29-* 

routine RD EE (TST.PAT, Index, ERR.FLG) : novalue = 
begin 


FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
ECC ERROR REGISTER WITH TST.PAT. 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER "ERRFLG IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DAT* PATTERN TO BE 
COMPARED A6AINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO MLEE TO 

SELECT THE CURRENT REGISTERS ADDRESS. 

ERR FL6 

CONTAINS THE ADDRESS (PASSED 
BY REF) OF THE CALLERS ERROR FLG TO ENABLE 
THE CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Sets loaded with the tst pat 

THUS ALLOWING CALLER TO PRINT 
THE FAILING DATA. 

RD DATA 

Sets loaded with data read from the 

REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR_DATA 
AND RD DATA LOADED WITH GOOD 
AND BA0 REGISTER DATA 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Bllts-16 V2C212) 

PA : <NE AL E >ML4 AD .BL I. 4 (37) 


.ERR.FLG = ZERO; 
WT.DJTA = .TST PAT; 
RDlDATA = .MLEE; 


•CLEAR THE ERROR FLAG 

•SAVE DATA WRITTEN TO THE REGISTER 

•READ AND SAVE THE REGISTER 


CZMLADO ML-11 LOGIC TEST MACRO Ml 113 

WRT.EE ROUTINE DECLARATION SECTION 


30-NAR-82 11:18 


G 12 
RAGE 166 


SEO C 


6108 

6109 

6110 
6111 
6112 

6113 

6114 
6118 
6119 


;ML4AD 


>9-Mar-198j 

j9-Mar-198l 


16:23:04 
16:21: 


03 



6128 

6129 

6130 

6131 

6132 

6137 

6138 


023760 

023764 

023772 

024000 

024006 

024010 

024016 


3888 

3889 

3890 

3891 


005076 

016667 

017767 

026767 

001403 

012776 

000207 


ROUTINE DECLARATION SECTION 

It .RD.DATA neq .WT_DATA then .ERR.FLG = ONE; !READ MLEE FOR TST.PAT 

‘SET THE ERROR FLAG IF NEO 


TOPS-20 8lis$-16 V2<212) 
PA: <NE ALE>ML4AD.8L I .4 (37) 


end; 


000002 

000006 

171616 

171346 


171356 

171352 

171342 


000001 000002 


RD.EE: 


1 $: 


.S8TTL 

CLR 

MOV 

MOV 

CMP 

BEO 

MOV 

RTS 


RD.EE ROUTINE DECLARATION SECTION 
*2(SP) ; ERR.FLG 

6(SP) .UT.DATA ; TST.PAT,* 

BML. REG+210.RD. DATA 
RD.DATA.WT .DATA 

#1 ,82<SP) ; *, ERR.FLG 

PC 


3884 

3885 

3886 
3888 


3836 


Routine Size: 16 word* 

Maximum stack depth per Invocation: 0 words 



CZMLADO Ml -11 LOGIC TEST 


RD.EE ROUTINE DECLARATION SECTION 
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SEO 0150 


6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6164 

6165 

6169 

6170 

6171 

6172 

6173 
0174 

6175 

6176 

6177 

6178 

6179 

6180 
6181 
6182 

6183 

6184 

6185 

6186 

6191 

6192 


;ML4AD 


024020 

024024 

024032 

024036 

024040 

024042 

024044 

024046 

024052 

024056 

024062 

024066 

024070 

024074 

024102 


ROUTINE DECLARATION SECTION 

routine WRT_D1 <TST_PAT, index) : novalue = 
begin 


>9-Mer-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(2 12) 
PA:<NEALF>M14AD.8LI.4 (38) 


FUNCTiONALsDESCRIPTIDN:^ R£G 1 y JTH A 0ATA PATTERN GENERATED BY THE MACRO WRT.MASK 

FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

USED X BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS. 

FORCED HI, FORCED LO *ND DON'T CARE MASK INFORMATION. 


DAT DM = ONE; 
MLDT = WH MASK; 
DAT.DM = ZERO; 
end; 


! SET DATA DIAG MODE 

!LOAD MLD1 WITH GENERATED WRT.MASK PATTERN 
! CLEAR DATA DIAG MODE 


004167 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

142777 

000207 


160514 

000010 

000010 


015406 

000012 

015410 

015412 

171500 

000010 


.S8TTL 
WRT.D1 : JSR 
171472 BISS 

MOV 
ASL 
ASL 
ASL 
MOV 
MOV 
BIS 
B1C 
MOV 
BIS 
MOV 

171422 BIC8 

RTS 


URT.D1 ROUTINE DECLARATION SECTION 

R1.SSAVE2 

#10,aML.REG+120 

10(SP).R0 ; INDEX.* 

RO 

RO 

RO 

R0,R1 

NL.REG*2(R1),R0 

12(5P> ,R0 ; TST. PAT.* 

ML.REG+4{R1),R0 

ML.REG+6(R1) ,R2 

R0.R2 

R2.8ML.REG+170 

#10.8ML.REG+120 

PC 


3892 

3906 

39C7 


; Routine Size: 26 words . 

; Maximum stack depth per invocation: 3 words 


I 12 
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WRT.D1 ROUTINE DECLARATION SECTION 


$EO 01 SI 


6194 ; ML. 4 AD 

6195 ; 

6196 

6197 ; 3910 

6198 ; 3911 

6199 ; 3912 

6200 ; 3913 

6201 ; 3914 

6202 ; 3915 

6203 ; 3916 

6204 ; 3917 

6205 ; 3918 

6206 ; 3919 

6207 ; 3920 

6208 ; 3921 

6209 ; 3922 

6210 ; 3923 

6211 ; 3924 

6212 ; 3925 

6213 ; 3926 

Si 4 ; 3927 

6215 ; 3928 

6216 ; 3929 

Si 7 ; 3930 

6218 ; 3931 

6219 ; 3932 

6220 ; 3933 

6221 ; 3934 

6222 ; 3935 

6223 ; 3936 

6224 ; 3937 

6225 ; 3938 

6226 ; 3939 

6227 ; 3940 

6228 ; 3941 

6229 ; 3942 

6230 ; 3943 

6231 ; 3944 

6232 ; 3945 

6233 ; 3946 

6234 ; 3947 

6235 ; 3948 

6236 ; 3949 

6237 ; 3950 

6238 ; 3951 

6239 ; 3952 

6240 ; 3953 

6241 ; 3954 

6242 ; 3955 

6243 ; 3956 

6244 ; 3957 

6245 ; 3958 

6246 ; 3959 

6247 ; 3960 

6248 ; 3961 


ROUTINE DECLARATION SECTION 

root In* RD.D1 (TST^PAT, index, ERR.FLG) 
begin 


29-Mer-1982 16:23:04 
29-M*r-1982 16:21:03 


novelue = 


^FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
DATA DIAG REGISTER 1 
WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘VRT.MASK". 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER "ERR F LG IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED A6AINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON"T CARE 
MASK INFORMATION. 

ERR.FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

GETS LOADED WITH THE GENERATED 
URT MASK DATA PATTERN THUS ALLOWING 
CALtER TO PRINT FAILING 6000 DATA. 

RD DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


T0PS-20 BU**-16 V2(212) 

PA : <NE AL E >ML 4 AD. 8L 1 .4 (39) 


CZMLADO ML-11 LOGIC TEST MACRO Mil 13 

WRT.Dl ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


J 12 
PAGE 169 


SEQ 0152 


6250 

6251 

6252 

6253 
62 5 A 

6255 

6256 

6257 

6258 

6259 

6260 
6261 
6262 
6263 
626A 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 
627A 

6278 

6279 
6283 
628A 

6285 

6286 
6267 
6288 

6289 

6290 

6291 

6292 

6293 
629A 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 
630A 


ML A AD 


02A10A 

02A110 

02A11A 

02A122 

02A13G 

02A136 

02A1AA 

02A152 

02A15A 

02A162 

02A166 

02A172 

02A200 

02A20A 

02A212 

02A216 

02A220 

02A222 

02A22A 

02A226 

02A232 

02A236 


3962 

3963 
396A 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 
397A 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 


00A167 

005076 

152777 

"2777 

o2777 

152777 

026727 

001017 

152777 

016701 

0A2701 

1A2777 

150177 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

OA6100 


ROUTINE DECLARATION SECTION 


.ERR FLG = ZERO; 

DAT DM = ONE; 

ML TUNC = write; 

DAT.CLK = ONE; 

if .REG.INIT.FLG IS.SET 


then 


29-M»r-1982 16:23:0A TOPS-20 Blise-16 V2<212) 

29-Ntr-1982 16:21:03 PA:<NEALE>ML4AD.BLI.4 (39) 


! CLEAR THE ERROR FLG 
! SET DATA DIAG MODE 
!LOAD MLCS1 WITH WRITE FUNCTION 
.'DO A DATA CLK 

! SEE IF CALLER IS REG INIT TEST 
•SET ERROR FLAG IF NEO 


begin 
CLR.MBUS; 
DAT’DM = ONE; 
end; 


•CLEAR MBUS TO GENERATE INIT DATA 


WT DATA = WRT MASK; 

RD“DATA = .MLDl ; 

if .RD.DATA neq .Wf.DATA then .ERR.FLG = ONE; 


ISAVE THE DATA WRITTEN TO THE REGISTER 
.•READ AND SAVE THE REGISTER 


•READ MLDl FOR WRT. MASK 


CLR.MBUS; 

end; 


•S8TTL 


160430 


RD.D1 : 

JSR 

000010 



CLR 

000010 

171402 


BIS8 

000077 

i 71 254 


B1CB 

000061 

171246 


81 S3 

000020 

171360 


B1SB 

171210 

000001 


CMP 

3NE 

BISS 

000040 

171262 


171644 



MOV 

177770 



B1C 

000007 

171244 


81 CB 

171240 



81 SB 

000010 

171312 


81 SB 

000012 


IS: 

MOV 




ASL 




ASL 




ASL 




MOV 

015406 



MOV 

000014 



81S 

015410 



B1C 


•SET ERR^FLG IF NEO 
•CLEAR TflE MBUS 


RD.D1 ROUTINE DECLARATION SECTION 
R1 .SSAVE2 

310(SP> ; ERR. FLG 

#1Q,3ML.REG+120 

#77.aML.REG 

f61.8ML.REG 

#20,a*.REG*120 ; 

REG.lNIT.FLG.fi 

IS 

#40.aML.REGU0 

#7,iML.REG+40 

R1.3ML.REGU0 

i^cip)^R0 C6+ ; INDEX,* 

58 

R0.R1 

ML.REG+2(R1>,R0 

14(SP) ,R0 ; TST.PAT ,* 

ML. REGU(R1).R0 


3910 

3963 

3964 

3965 

3966 
3968 

3971 


3973 

3976 


K 12 
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RD.D1 ROUTINE DECLARATION SECTION 


6306 

6307 

6308 

6309 024242 

6310 024246 

6311 024250 

6312 024254 

6313 024262 

6314 024270 

6315 024272 

6316 024300 

6317 024306 

6318 024312 

6319 024316 

6320 024324 

6321 024330 

6322 

6323 

6324 

6329 

6330 


016102 

050002 

010267 

017767 

026767 

001403 

012776 

152777 

016702 

042702 

142777 

150277 

000207 


; ML 4 AD 


015412 
17! 074 

17U:4 171070 
171064 171060 

000001 000010 
000040 171136 2$: 
171520 
177770 

000007 171120 
171114 


MOV 

BIS 

MOV 

MOV 

CMP 

BEO 

MOV 

BISS 

MOV 

BIC 

BICB 

BISB 

RTS 


ROUTINE DECLARATION SECTION 

ML.REG*6(R1),R2 

R0.R2 

R2,WT .DATA 
aML.REG*170,RD.DATA 
RD. DATA, WT. DATA 
2 % 

#i.aio<sp> 

#4&,BML.REGK0 

ML.DUT.R2 

#177776.R2 

#7,3ML.REG*40 

R2.BML.REG+40 

PC 


; Routine Size: 75 words . , 

; Maximum stack depth per invocation: 3 words 


; *,ERR.FLG 


SEO 0153 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1«82 16:21:03 PA:< 


3977 

3979 


3910 


L 12 
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RD.D1 ROUTINE DECLARATION SECTION 


SEQ 0154 


6332 ;ML4AD 

6333 ; 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6356 

6357 

6361 024332 

6362 024336 

6363 024344 

6364 024350 

6365 024352 

6366 024354 

6367 024356 

6368 024360 

6369 024364 

6370 024370 

6371 024374 

6372 024400 

6373 024402 

6374 024406 

6375 024414 

6376 

6377 

6378 

6383 

6384 


3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 


004167 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010277 

142777 

000207 


29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2C212) 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (40) 

routine WRT.D2 (TST.PAT, index) : novalue = 
begin 


♦♦ 

FUNCTIONAL DESCR1PTKM* 

LOADS THE DATA DMG REG 2 WITH A DATA PATTERN GENERATED BV THE MACRO WRT.MASK 
FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE LOADED IN TH* REGISTER. 

USED^BV THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS , 

FORCED HI, FORCED LO *ND DON'T CARE MASK INFORMATION. 


DAT DM = ONE; 
MLD2 - WRT MASK; 
DATJ>M = ZERO; 
end; 


160202 


.SBTTL 
WRT.D2: JSR 

000010 

171160 

BISS 

000010 


MOV 

015406 


ASL 

ASL 

ASL 

MOV 

MOV 

000012 


BIS 

015410 


BIC 

015412 


MOV 

171176 


BIS 

MOV 

000010 

171110 

BICB 


RTS 


! SET DATA DIAG MODE 

•LOAD MLD2 WITH GENERATED WRT.MASK PATTERN 
.'CLEAR DATA DIAG MODE 


WRT.D2 ROUTINE DECLARATION SECTION 

R1.SSAVE2 

#10,8ML.REG*120 

10(SP) ,R0 ; INDEX,* 

RO 

RO 

RO 

R0.R1 

ML.REG+2(R1).R0 

12(SP) ,R0 ; TST. PAT,* 

ML.REG*4(R1 ) ,R0 
ML.REG+6CR1 ) ,R2 
R0,R2 

R2-BML.REG+200 

#10,BML.REG*120 

PC 


; Routine Size: 26 words „ 

; Maximum stack depth per invocation: 3 words 


3984 

3998 

3999 


4000 

3984 


PI ^ 
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WRT.D2 ROUTINE DECLARATION SECTION 


SEQ 0155 


6386 

ML4AD 

6387 


6388 


6389 

4002 

6390 

4003 

6391 

4004 

6392 

4005 

6393 

4006 

6394 

4007 

6395 

4008 

6396 

4009 

6397 

4010 

6398 

4011 

6399 

4012 

6400 

4013 

6401 

4014 

6402 

4015 

6403 

4016 

6404 

4017 

6405 

4018 

6406 

4019 

6407 

4020 

6408 

4021 

6409 

4022 

6410 

4023 

6411 

4024 

6412 

4025 

6413 

4026 

6414 

4027 

6415 

4028 

6416 

4029 

6417 

4030 

6416 

4031 

6419 

4032 

6420 

4033 

6421 

4034 

6422 

4035 

6423 

4036 

6424 

4037 

6425 

4038 

6426 

4039 

6427 

4040 

6428 

4041 

6429 

4042 

6430 

4043 

6431 

4044 

6432 

4045 

6433 

4046 

6434 

4047 

6435 

4048 

6436 

4049 

6437 

4050 

6438 

4051 

6439 

4052 

6440 

4053 


29~flgr-1982 16:23:04 

ROUTINE DECLARATION SEtTION 29-Mar-198? 16:21 :03 

routine RD_D2 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


FUNCTIONAL DESCRIPTION: 

COMPARE THE CONTENTS OF THE 
DATA DIAG REGISTER 2 
WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WT.MASK". 

IF THE COMPARE IS NOT EQUAL THEN THE 
FORMAL PARAMETER "ERR FIG" IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DAT* PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFOMATION. 


CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

GETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 

RD DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION WR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.BLI.4 (41) 
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URT .02 ROUTINE DECLARATION SECTION 


SEO 0156 


6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6468 

6469 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 


ML4A0 


024416 

024422 

024426 

024434 

024442 

024450 

024456 

024464 

024466 

024474 

024500 

024504 

024512 

024516 

024524 

024530 

024532 

024534 

024536 

024540 

024544 

024550 

024554 

024560 


4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 


004167 

005076 

152777 

142777 

152777 

152777 

026727 

001017 

152777 

016701 

042701 

142777 

150177 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 


ROUTINE DECLARATION SECTION 

.ERR FIG = ZERO; 

DAT DM = ONE; 

ML FUNC = write; 

DAT.CLK = ONE; 

if .REG.INIT.FLG IS.SET 
then 

begin 

CLR.MBUS; 

DAT. DM = ONE; 
end; 

WT DATA = WRT MASK; 

RDlDATA = .MLD2; 

if .RD.DATA neq .WT.DATA then .ERR.FLG = 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD.8LI .4 (41) 


CLR.MBUS; 

end; 


160116 

000010 

000010 171070 
000077 170742 
000061 170734 

000020 171046 
170676 000001 

000040 170750 

171332 

177770 

000007 170732 
170726 

000010 171000 
000012 


015406 

000014 

015410 

015412 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 

•CLEAR ERROR FLAG 
•SET DATA D1AG MODE 
•LOAD WRITE FUNC TO CS1 
•DO A DATA CLOCK 


.'SEE IF CALLER IS REG INIT TEST 
! CLEAR MBUS TO GENERATE INIT DATA 


•SAVE THE DATA WRITTEN TO THE REGISTER 
•READ AND SAVE THE REGISTER 

'READ MLD2 FR WRT.MASK PATTERN 

•SET ERROR FLAG IF NEO 
•CLR MASS BUSS 


.S8TTL RD.D2 ROUTINE DECLARATION SECTION 

RD.D2: JSR R1.SSAVE2 

CLR BIO (SP) 

BISB #10,3ML.REG+120 

81 CB #77,dML.REG 

81 SB #61,8ML.REG 

BISB #20.aMl.REG+120 

CMP REG. INIT. FLG,#1 

8NE IS 

BISB #40,aML.REG+40 

MOV ML.DUT.R1 

BIC #177770,R1 

BICB #7,aML.REG+40 

BISB R1 .BML.REG+40 

BISB #10 # 3ML.REG+120 

IS: MOV 12(SP).R0 ; 

ASL RO 

ASL RO 

ASL RO 

MOV R0.R1 

MOV ML.REG+2(R1 ) ,R0 

BIS 14(SP) ,R0 

BIC ML.REG+4(R1),R0 

MOV Ml.REG+6(R1).R2 

BIS R0.R2 


ERR.FL6 


INDEX.* 


TST.PAT.* 


4063 

4066 


8 13 
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RD.D2 ROUTINE DECLARATION SECTION 


6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6519 

6520 


024562 
024566 
024574 
024602 
14604 
!4612 
14620 
14624 
14630 
14636 
14642 


010267 

017767 

026767 

001403 

01277$ 

152777 

016702 

042702 

142777 

150277 

000207 


170562 

171012 

170552 

000001 

000040 

m 

000007 

170602 


170556 

170546 

000010 

170624 


170606 


;ML4AD 


2 $: 


MOV 

MOV 

CMP 

BEO 

MOV 

BISS 

MOV 

BIC 

B1C8 

82 SB 

RTS 


ROUTINE DECLARATION SECTION 

R2,WT.DATA 
BML.REG+200,RD.DATA 
RD. DATA .WT. DATA 
2 $ 

#1.810(SP) 

#46,BML.REG»40 

ML.DUT.R2 

#1 77776, R2 

#7,BML.REG^40 

R2.BML.REG+40 

PC 


; Routine Size: 75 words 
; Maximum stack depth per invocation: 3 words 


; *,ERR.FLG 


SEQ 0157 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


4067 

4069 


4002 


C 13 
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RO.D2 ROUTINE DECLARATION SECTION 


SEQ 0158 


6522 ; 

6523 ; 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 
6545 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6560 

6561 

6565 

6566 

6567 

6568 

6569 

6570 

6571 

6572 

6573 

6574 

6575 

6576 


;ML4AD 


024644 

024650 

024656 

024664 

024670 

024672 

024674 

024676 

024700 

024704 

024710 

024714 


4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 


004167 

152777 

012767 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 


ROUTINE DECLARATION SECTION 

routine WRT_D3 (TST^PAT. Index) 
begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212> 

PA : <NEALE>ML4AD .8LI.4 (42) 


novalue = 


FUNCTIONAL DESCRIPTION: 

LOADS THE DATA DIAG 
REGISTER 3 WITH A DATA PATTERN 
GENERATED BY THE MACRO 
WRT.MASK. 

FORMAL PARAMETERS: 

TST PAT 

CURRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 

INDEX 

USE BY THE MACRO WRT MASK 
TO SELECT THE CURRENT REGISTERS 
ADDRESS, FORCED HI, FORCED 
LO AND DON'T CARE MASK 
INFORMATION. 


DAT DM = ONE; 

MLE2 MASK = Xo* 000377'; 
MLE2 = WRT.MASK: 

MLE2 MASK = Xo* 100300'; 

DAT CM = ZERO; 

end; 


•SET DATA DIAG MODE 

•MASK OUT ECC CRC WORD BITS 

•LOAD MLE2 WITH GENERATED WRT.MASK PATTERN 

•RESTORE MASK 

•CLEAR DATA DIAG MODE. 


.S8TTL 


157670 


WRT.D3: JSR 

000010 

170646 

BIS6 

000377 

170706 

MOV 

000010 


MOV 



ASL 



ASL 



ASL 



MOV 

015406 


MOV 

000012 


BIS 

015410 


BIC 

015412 


MOV 


WRT.P3 ROUTINE DECLARATION SECTION 
R1.SSAVE2 ^ ; 

#1u,aML.REG+120 
#3. ?,ML.REG*166 

10<$P).R0 ; INDEX.* 

RO 

RO 

RO 

R0.R1 

ML.REG*2(R1),R0 

12(SP),R0 .* TST. PAT.* 

ML.REG+4(R1),R0 

ML.REG*6(R1).R2 


4074 

4100 

4101 

4102 
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WRT.D3 ROUTINE DECLARATION SECTION 


SEQ 0159 


6578 

6579 

6580 

6581 

6582 

6583 

6584 

6585 

6586 

6587 

6588 

6593 

6594 


; ML 4 AD 


024720 050002 
024722 010277 170636 
024726 012767 100300 170636 
024734 142777 000010 170562 
024742 000207 


] ROUTINE DECLARATION SECTION 

BIS R0.R2 

MOV R2.aML.REG* 160 , 

MOV #-27500,ML.REG*166 

BICB #1C.aML.REG*1 20 

RTS PC 

; Routine Size: 32 words 

; Maximum stack depth per invocation: 3 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


e 13 
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WRT.D3 ROUTINE DECLARATION SECTION 


SEQ 0160 


6596 

6597 

6598 

6599 

6600 
6601 
6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 
6611 
6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 
6621 
6622 

6623 

6624 

6625 

6626 

6627 

6628 


;NL4AD 


6631 

6632 

6633 

6634 

6635 

6636 

8S 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 
66*7 

6648 

6649 

6650 


4106 

4107 

4108 

4109 

4110 

4111 
411 
411 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 


ROUTINE DECLARATION SECTION 

routine RD 03 (TST.PAT. Index. FRR.FLG) 
begin 


>9-Mer-1982 

>9-Mer-198< 


16:23:04 

16:21:03 


novelue = 


^FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
DATA DIAG RE6ISTER 3 
WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘VRT.HASK . 

IF THE COMPARE IS NOT EQUAL THE 
FORMAL PARAMETER 'tRR FL6 ,f IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO WRT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI. FORCED LO AND DON'T CARE 
MASK INFORMATION 

ERR FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Sets loaded with the generated 

WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 

RD DATA 

Sets loaded with data read from the 

REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 

IMPLICIT OUTPUTS: 

GL08AL LOCATION WR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS-20 Bliss-16 V2'2l2> 
PA:<NEALE>ML4AD.8LI.4 (43) 


CZHLADO NL-M LOGIC TEST NACRO *1113 

WRT.D3 ROUTINE DECLARATION SECTION 


30-RAR-82 11:18 


f 13 
PAGE 178 


SEQ 0161 


6652 ; NLA AD 

6653 ; 

66<4 

6655 

6656 

6657 

6658 

6659 

6660 
6661 
6662 
6663 
666A 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 
667A 

6675 

6676 
6680 
6681 

6685 02A7AA 

6686 024750 

6687 02A75A 

6688 024762 

6689 024770 

6690 024776 

6691 025004 

6692 025012 

6693 025020 

6694 025022 

6695 025030 

6696 025034 

6697 025040 

6698 025046 

6699 025052 

6700 025060 

6701 025064 

6702 025066 

6703 025070 

6704 025072 

6705 025074 

6706 025100 


4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 


004167 

005076 

012767 

152777 

142777 

152777 

152777 

026727 

001017 

152777 

016701 

042701 

142777 

150177 

152777 

016600 

006300 

006300 

006300 

010001 

016100 

056600 


ROUTINE DECLARATION SECTION 


.ERR KG = ZERO: 

RLE 2 “NASA * Xo’ 600377’; 

DAT BN = ONE: 

NL.FUNC * write; 

DAT.CLK = ONE; 

If .REG INIT.FLG IS.SET 
then 

Begin 

CLR.NBUS; 

DAT.DN = ONE; 
end; 

WT DATA = URT NASA; 

RD“DATA = .NLE2 or .IGNORE; 


>9-N*r-1982 16:23:04 TOPS-20 Btiss-16 V2C212) 

>9-N«r-1982 16:21:03 PA:<NEALE>NL4AD.BLI.4 (43) 


! CLEAR ERROR FLAG 
! SET DATA DIA6 NODE 

•LOAD WRITE FUNCTION TO NLCS1 
IDO A DATA CLOCA 

•SEE IF CALLER IS REG INIT TEST 
! CLEAR NBUS TO GENERATE INIT DATA 


•SAVE THE DATA WRITTEN TO THE REGISTER 
•READ AND SAVE THE RE6ISTER 


if .WT.DATA neq .RD^DATA then .fcRR.FLG = ONE; ‘READ THE REG FOR WRT.NASA 

•CLEAR THE NASS BUS 


NLE2 NASA = Xo , 10U300*; 
CLR.flBUS; 


end; 


157570 

000010 

000377 

000010 

000077 

000061 

000020 

170342 

000040 

170776 

177770 

000007 

170372 

000010 

000012 


015406 

000014 


RD.D3: 


170610 

170534 

170406 

170400 

170512 

000001 

170414 


170376 

170444 


.SBTTL 

JSR 

CLR 

NOV 

8 1 SB 

81 CB 

BISS 

BISS 

CNP 


RD.D3 ROUTINE DECLARATION SECTION 
R1.SSAVE2 


n i a 

ai6($p> 

#377,1 


IS: 


81 SB 

NOV 

BIC 

81 CB 

8ISB 

BISB 

NOV 

ASL 

ASL 

ASL 

NOV 

NOV 

BIS 


,NL.REG+166 
#10,aNL.REG+120 
#77,8NL.REG 
#61,8NL.REG 
#20,8NL.REG+120 
RE6. INlT.FLG.fi 
IS 

#40,aNl.REG*40 

#7,aNL.*E6*40 

#i6|Snl?reg*120 

12(Sp),R0 


R0.R1 

NL.REG+2(R1),R0 

14(SP),R0 


ERR.FLG 


INDEX,* 


TST.PAT,* 


4106 

4159 

4160 

4161 

4162 

4163 
4165 

4167 


4169 

4172 


i 


G 13 
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i RD.D3 routine declaration section 


6706 

6709 

6710 

6711 

6712 

6713 

6714 


6715 025122 

6716 025126 

6717 025132 

6718 025136 

6719 025144 

6720 025146 

6721 025154 
025162 
025170 


6722 

672? 


6724 025174 


6725 

6726 


025200 
_ 025206 

6727 025212 

6728 

6729 

6730 

6735 

6736 


046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

012767 

152777 

016702 

m 

150277 

000207 


;NL4AD 


015410 

015412 

170226 

170436 

015412 

170214 

170206 170206 

000001 000010 
100300 170410 
000040 170254 
170636 
177770 

000007 170236 
170232 


2 $: 


R0UTJN2 DECLARATION SECTION 

BIC NL.REG*4(R1) „R0 

NOV Nl.REG+6CR1>,R2 

BIS R0.R2 

NOV R2.WT.DAT A 

NOV aNl.REG*160.R2 

BIS NL.REG+6(R1),R2 

NOV R2.RD.DAT A 

CHP WT.DATA,RD.DATA 

BEO 2S 

NOV #1 ,810<SP) 

NOV #-^7500 ,NL . REG+1 66 

BJSB #40,8NL.REG+40 

NOV NL.DUT.R2 

BIC #1 77770, R2 

BICB #7,aNL.REG+40 

BISB R2,BNt.REG + 40 

RTS PC 


; Routine Siie: 84 word* 

; NaxInuR stack depth per Invocation: 3 words 


*,ERR.FLG 


SEQ 0162 

29-Nar-1982 16:23:04 TOPS 

29-Ner-1982 16:21:03 PA:< 


4173 

4175 

4177 


4106 


H 13 

CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE ISO 

RD.D3 ROUTINE DECLARATION SECTION 


SEO 0163 


88 


NL4AD 


6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6770 

6771 

6775 025214 

6776 

6777 

6778 
6783 


4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 
41 Si 
4119 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 


000207 


ROUTINE DECLARATION SECTION 

rout in# WRT.DS (TST.PAT, Index) 
begin 


29-Mar-19|2 16:23:04 
29-Mar-1982 16:21:03 


novalue = 


FUNCTIONAL DESCRIPTION: 

DUMMY ROUTINE CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGOR I THEN 

FORMAL PARAMETERS: 

TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS* 
FORCED HI* FORCED LO AND DON'T CARE 
MASK INFORMATION. 


DRIVE STATUS REG IS READ ONLY 
return; 
end; 


.S8TTL 
WRT.DS: RTS 


WRT.DS ROUTINE DECLARATION SECTION 
PC 


Routine Size: 1 word 

Maxima* stack depth per Invocation: 0 words 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.BLI.4 (44) 


4180 


I 13 
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WRT.DS ROUTINE DECLARATION SECTION 


SEQ 0164 


6786 ;ML4AD 

6787 ; 

6788 

6789 ; 4206 

6790 ; 4207 

6791 ; 4208 

6792 ; 4209 

6793 ; 4210 

6794 ; 4211 

6795 ; 4212 

6796 ; 4213 

6797 ; 4214 

6798 ; 4215 

6799 ; 4216 

6800 ; 4217 

6801 ; 4218 

6802 ; 4219 

6803 ; 4220 

6804 ; 4221 

6805 ; 4222 

6806 ; 4223 

6807 ; 4224 

6808 ; 4225 

6809 ; 4226 

6810 ; 4227 

6811 ; 4228 

6812 ; 4229 

6813 ; 4230 

6814 ; 4231 

6815 ; 4232 

6816 ; 4233 

6817 ; 4234 

6818 ; 4235 

6819 ; 4236 

6820 ; 4237 

6821 ; 4238 

6822 ; 4239 

6823 ; 4240 

6824 ; 4241 

6825 ; 4242 

6826 ; 4243 

6827 ; 4244 

6828 ; 4245 

6829 ; 4246 

6830 ; 424 7 

6831 ; 4248 

6832 ; 4249 

6833 ; 4250 

683* ; 4251 

6835 ; 4252 

6836 ; 4253 

6837 ; 4254 

6838 ; 4255 

6839 ; 4256 

6840 ; 4257 


ROUTINE DECLARATION SECTION 

routine RD DS (TST_PAT, index. ERR.FLG) 
begin " 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


novalue = 


^FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
DRIVE STATUS REGISTER WITH THE 
MASKED DATA PATTERN 
GENERATED BY THE MACRO 'WRT.MASK'. 

IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER 'ERR FLG' IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 

FORMAL PARAMETERS: 

TST PAT 

data pattern to be masked and 

COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 

INDEX 

USED BY THE MACRO URT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI. FORCED LO AND DON'T CARE 
MASK INFORMATION. 

ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FL6 TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

IMPLICIT INPUTS: 

WT DATA 

Gets loaded with the generated 

URT MASK DATA PATTERN THUS ALLOWING 
CALtER TO PRINT FAILING G009 DATA. 

RD DATA 

Gets loaded with data read from the 

REGISTER THUS ALLOWING CALLER 
TO PRINT FAILIN6 BAD DATA. 

IMPLICIT OUTPUTS: 

GLOBAL LOCATION UR.DATA 
AND RD DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.BLI.4 (45) 


CZHLADO NL-11 LOGIC TEST MACRO N1113 

URT.DS ROU11NE DECLARATION SECTION 


30-NAR-82 11:18 


J 1 3 
PAGE 182 


SEQ 0165 


6842 ;RL4AD 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6857 

6858 

6862 025216 

6863 025222 

6864 025226 

6865 025232 

6866 025234 

6867 025236 

6868 025240 

6869 025242 

6870 025246 

6871 025252 

6872 025256 

6873 025262 

6874 025264 

6875 025270 

6876 025274 

6877 025300 

6878 025304 

6879 025312 

6880 025314 

6881 025322 

68 82 

6883 

6884 

6889 

6890 


4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 


004167 

005076 

016600 

006300 

006300 

006300 

010001 

016100 

056600 

046100 

016102 

050002 

010267 

017702 

056102 

010267 

026767 

001403 

012776 

000207 


ROUTINE DECLARATION SECTION 


.ERR FIG * ZERO; 

UT DATA = WRT MASK; 

RD DATA = .NL&S or .IGNORE; 


>9-Nar-1982 16:23:04 TOPS-20 Bliss-16 V2(212> 

>9-Nar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (45) 


! CLEAR THE ERROR FLAG 

.'SAVE THE DATA WRITTEN TO THE REGISTER 

.'READ AND SAVE THE REGISTER 


it .WT.DATA neq .RD.DATA then .ERR.FLG = ONE; !READ THE REG FOR WRT.NASK 

! SET ERROR FLAG IF NEQ 

end; 


.S8TTL 


157316 


RD.DS: 

JSR 

000010 



CLR 

000012 



NOV 




A3L 




ASL 




ASL 




NOV 

015406 



NOV 

000014 



BIS 

015410 



BIC 

015412 



NOV 



BIS 

170060 



NOV 

170160 



NOV 

015412 



BIS 

170046 



NOV 

170040 

170040 


CMP 




BED 

000001 

000010 


NOV 


IS: 

RTS 


RD.DS ROUTINE DECLARATION SECTION 
R1.SSAVE2 
aiO(SP) 
lj(SP).RO 

RO 

R0.R1 

NL.REG*2(R1),R0 
14(SP),R0 
NL.REG*4<R1>.R0 

S .REG«6(R1),R2 
.R2 

.WT.DATA 
8NL.RE6*50.R2 
NL.RE6*6(Rl>.R2 
R2.RD.DATA 
WT. DATA, RO. DATA 
IS 

#1,§10<$P> 

H 

Routine Size: 35 words 
Maximum stack depth per invocation: 3 words 


ERR.FLG 

INDEX.* 


TST.PAT.* 


4206 

4259 

*260 


•.ERR.FLG 


4261 

4263 

4206 


CZMLADO Mt-11 LOGIC TEST 


ftD.DS ROUTINE DECLARATION SECTION 


MACRO Ml 113 30-MAR-82 11:18 PAGE 




SEO G166 


6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 
69C6 

690 7 

6908 

6909 

6910 

6911 

6912 

6913 
6°14 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 
693fi 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 


ML4AD 


ROUTINE DECLARATION SECTION 


?9-Mar-1982 16:23:04 
?9-Mtr-1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 

PA : <NE AL E>Ml 4 AD. 6L I .4 (46) 


4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 


routine WRT REG (TST_PAT, REG.SEL, index) : novalue * 
begin 

^FUNCTIONAL DESCRIPTION: 

A ROUTINE TO SELECTIVELY 
CALLED ROUTINES WHICH 
WRITE TO INDIVIDUAL HL11 
REGISTERS 

FORMAL PARAMETERS: 

REG SEL 

CASE SELECT EXPRESSION TO 
SELECT THE WRITE REGISTER 
ROUTINE TO CALLED 

TST PAT 

DAT* PATTERN WHICH THE SELECTED 
REGISTER WILL BE TESTED AGAINST 

INDEX 

LOADED WITH THE ML REG INDEX 
SELECT NUMBER OF TRE REGISTER 
BEING TESTED 

SIDE EFFECTS: 

WHEN A WRITE REGISTER ROUTINE IS CALLED 
THE VARIABLE 'INDEX* FROM THE CALLING 
TEST IS LOADED WITH THE REGISTERS 
ML.REG INDEX NUMBER. 

THIS ENABLES THE CALLING TEST TO FIND 
THE FAILING REGISTER ADDRESS. 


case .REG.SEL from 0 to 13 of 
set 

COJ •* 

WRT.CS1 (.TST.PAT, .index = 0); 
CU : 

WRTJER (.TST.PAT, .index = 6); 

C2J ; 

WRT.DA (.TST.PAT, .index « 3); 
C33 * 

WRT.MR (.TST.PAT, .index * 10); 
C43 : 


.'SELECT THE WRITE REGISTER ROUTINE CALL 


•CALL ROUTINE TO LOAD NLCS1 


•CALL ROUTINE TO LOAD NLER 


! CALL ROUTINE TO LOAD HLDA 


•CALL ROUTINE TO LOAD HLMR 


L 13 
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RO.DS ROUTINE DECLARATION SECTION 


SEQ 0167 


6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6985 

6986 

6990 

6991 

6992 

6993 
6594 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 


;ML4AD 


025324 

025330 

025334 

025340 

025344 

025346 

025352 

025354 

025356 

025360 

025362 

025364 

025366 


4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 


004167 

016600 

016601 

016602 

006302 

066207 

000034 

000050 

000066 

000104 

000122 

000140 

000156 


ROUTINE DECLARATION SECTION 

WRT.E1 (.TST.PAT, 
[53 : 

URT.E2 (.TST.PAT, 
[63 : 

WRT.PA (.TST.PAT, 
[73 : 

WRT.PD (.TST.PAT, 
[83 : 

URT.EE (.TST.PAT, 
C93 : 

WRT.EL (.TST.PAT, 
C103 : 

WRT.DS (.TST.PAT, 
[113 : 

WRT.D1 (.TST.PAT, 
[123 : 

URT.D2 (.TST.PAT, 


[133 

\ 

tes; 


WRT.D3 (.TST.PAT, 


.index = 13); 
.index = 14); 
.index * 8); 
.index = 19); 
.index = 17); 
.index = 18); 
.index * 5); 
.index = 15) 
.index = 16) 
.index = 14) 


29-H*r-1982 16:23:04 TOPS-20 Bliss-16 V2(21 2) 
29-M»r-1982 16:21:03 PA:<NEALE>HL4AD.8LI.4 (46) 

JCALL ROUTINE TO LOAD HLEi 
‘CALL ROUTINE TO LOAD MLE2 
•CALL ROUTINE TO LOAD HLPA 
•CALL ROUTINE TO LOAD HLPD 
•CALL ROUTINE TO LOAD HLEE 
.'CALL ROUTINE TO LOAD HLEL 
•CALL ROUTINE TO LOAD MLDS 
•CALL ROUTINE TO LOAD HLD1 
•CALL ROUTINE TO LOAD MLD2 
•CALL ROUTINE TO LOAD MLE2 


end; 



.S8TTL 

WRT.REG ROUTINE 

DECLARATION SECTION 

157210 

URT.REG: JSR 

R1 ,SSAVE2 


000010 

NOV 

10(SP) ,R0 

; INDEX,* 

000014 

MOV 

1 4 (SP) ,R1 

; TST.PAT,* 

000012 

MOV 

12(SP),R2 

; REG.SEL,* 


ASL 

R2 


025352 

ADD 

1S(R2),PC 



1$: .WORD 

2S-1S 



.WORD 

3S-1S 



.WORD 

4S-1S 



.WORD 

5S-1S 



.WORD 

6S-1S 



.WORD 

7S-1S 



.WORD 

8S-1S 



4267 

4307 

4303 
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URT.REG ROUTINE DECLARATION SECTION 


SEQ 0168 


7004 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

7014 

7015 

7016 

7017 

7018 

7019 

7020 

7021 

7022 

7023 

7024 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 


; ML 4 AD 


025370 

025372 

025374 

025376 

025400 

025402 

025404 

025406 

025410 

025412 

025414 

025420 

025422 

025424 

025430 

025432 

025436 

025440 

025442 

025446 

025450 

025454 

025456 

025460 

025464 

025466 

025472 

025474 

025476 

0255C2 

025504 

025510 

025512 

025514 

025520 

025522 

025526 

025530 

025532 

025536 

025540 

025544 

025546 

025550 

025554 

025556 

025562 

025564 

025566 

025572 

025574 

025600 


000174 

000212 

000230 

000246 

000264 

000302 

000320 

010146 

005010 

005046 

004767 

000532 

010146 

012710 

011046 

004767 

000523 

010146 

012710 

011046 

004767 

000514 

010146 

012710 

011046 

004767 

000505 

010146 

012710 

011046 

004767 

000476 

010146 

012710 

011046 

004767 

000467 

010146 

012710 

011046 

004767 

000460 

010146 

012710 

011046 

004767 

000451 

010146 

012710 

011046 

004767 

000442 


174272 


000006 

174432 

000003 

174572 

000012 

174732 

000015 

175300 

000016 

175470 

000010 

175036 

000023 

175666 

000021 

176156 


ROUTINE DECLARATION SECTION 

.WORD 9$-1$ 

.WORD 108-1$ 

.WORD 11S-1S 

.WORD 12$-1$ 

.WORD 13S-1S 

.WORD 14S-1S 

.WORD 15S-1I 

MOV Rl.-(SP) 

CLR <r6> 

CLR -<SP) 

JSR PC.WRT.CS1 

BR 16$ 

MOV RI.-(SP) 

MOV #6. (RO) 

MOV cr6),-(sp> 

JSR PC. WRT.ER 

BR 16$ 

MOV R1, -(SP) 

MOV #3, (RO) 

MOV (RO).-(SP) 

JSR PC. WRT. DA 

8R 16$ 

MOV R1 .-(SP) 

MOV #12. (RO) 

MOV (RO).-(SP) 

JSR PC. WRT. MR 

BR 16i 

MOV R1 .-(SP) 

MOV #15, (RO) 

MOV (RO).-(SP) 

JSR PC. WRT. El 

BR 16i 

MOV R1 ,-(SP) 

MOV #16. (RO) 

MOV (RO).-(SP) 

JSR PC.WRT.E2 

BR 16$ 

MOV Rl.-(SP) 

MOV #10. (RO) 

MOV (RO).-(SP) 

JSR PC .WRT. PA 

BR 16$ 

MOV RI.-(SP) 

MOV #23. (RO) 

MOV (RO).-(SP) 

JSR PC. WRT. PD 

BR 16$ 

MOV RI.-(SP) 

MOV #21 .(RO) 

MOV (RO).-(SP) 

JSR PC.WRT.EE 

BR 16$ 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


4303 

4322 


N 13 
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URT.REG ROUTINE DECLARATION SECTION 


SEQ 0169 


7060 

7061 

7062 

7063 025602 

7064 025604 

7065 025610 

7066 025612 

7067 025616 

7068 025620 

7069 025622 

7070 025626 

7071 025630 

7072 025634 

7073 025636 

7074 025640 

7075 025644 

7076 025646 

7077 025652 

7078 025654 

7079 025656 

7080 025662 

7081 025664 

7082 025670 

7083 025672 

7084 025674 

7085 025700 

7086 025702 

7087 025706 

7088 025710 

7089 

7090 

7091 

7096 

7097 


010146 

012710 

011046 

004767 

000433 

010146 

012710 

011046 

004767 

000424 

010146 

012710 

011046 

004767 

000415 

010146 

012710 

011046 

004767 

000406 

010146 

012710 

011046 

004767 

022626 

000207 


000022 

176076 

000005 

177360 

000017 

176146 

000020 

176442 

000016 

176736 


;ML4AD 


ROUTINE DECLARATION SECTION 

R1 t -(SP> 

#22, (RO) 

<R05,-(SP> 

PC.WRT.El 

16$ 

R1,-($P> 

#5.(R0) 

<RO),-<SP> 

PC.WRT.DS 

16 $ 

RI.-(SP) 

#17, CRO) 

(ROf,-(SP> 

PC.WRT.D1 

16 $ 

R1.-CSP) 

#26, (RO) 

<R05,-(SP> 

PC,WRT. D2 
16$ 

R1,-($P> 

#1$,<R0> 

<RO),-(SP> 

PC.WRT.D3 

<SP)+,(SP>+ 

PC 


>9-«ar-1982 16:23:04 
>9-Mar-1982 16:21:03 


4303 

4346 


; Routine Size: 123 words 
; Maximum stack depth per invocation: 


5 words 


B 14 
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WRT.REG ROUTINE DECLARATION SECTION 


SEO 0170 


7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 


;ML4AD 


4350 

4351 

4352 

4353 

4354 
4$55 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 


29-Mar-1982 16:23:04 TOPS-20 8liss-16 V2<212> 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 PA : <NE AL E>ML4 AD. BL I. 4 (47) 

routine RD.REG (TST.PAT, REG.SEL, ERR.FLG) : novalue = 
begin 


44 

FUNCTIONAL DESCRIPTION: 

A ROUTINE TO SELECTIVELY 
CALLED ROUTINES WHICH 
READ TO INDIVIDUAL ML 11 
REGISTERS. 

FORMAL PARAMETERS: 

ERR.FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 

OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

REG.SEL 

CASE SELECT EXPRESSION TO 
SELECT THE WRITE REGISTER 
ROUTINE TO CALLED 

TST PAT 

DATA PATTERN WHICH THE SELECTED 
REGISTER WILL BE TESTED AGAINST 


case .REG SEL from 0 to 13 of 
set 

[03 : 

RD.CS1 (.TST.PAT. 0, .ERR.FLG); 
C13 : 

RD.ER (.TST.PAT. 6, .ERR.FLG); 
C23 : 

RD.DA (.TST.PAT. 3. .ERR.FLG); 
[33 : 

RD.MR (.TST.PAT. 10. .ERR.FLG); 
[43 : 

RD.E1 t.TST.PAT, 13. .ERR.FLG); 
C53 : 

RD.E2 (.TST.PAT. 14. .ERR.FLG); 
[63 : 

RD.PA (.TST.PAT, 8. .ERR.FLG); 


! SELECT THE READ REGISTER ROUTINE CALL 


•CALL 

!CALL 

•CALL 

•CALL 

!CALL 

•CALL 

•CALL 


ROOUTINE TO READ MLCS1 
ROUTINE TO READ MLER 
ROUTINE TO READ MLDA 
ROUTINE TO READ MLMR 
ROUTINE TO READ MLE1 
ROUTINE TO READ MLE2 
ROUTINE TO READ MLPA 



CZMLADO 

WRT.REG 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 


WL-11 LOGIC TEST MACRO Ml 113 30-MAR-82 11:18 PAGE 188 

ROUTINE DECLARATION SECTION 


NL4AD 


4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 


ROUTINE DECLARATION SECTION 
C73 : 

RD .PD (.TST.PAT, 19, .ERR.FLG); 
C83 : 

RD.EE (.TST.PAT, 17, .ERR.FLG); 
C93 : 

RD.EL (.TST.PAT, 18, .ERR.FLG); 
C103 : 

RD.DS (.TST.PAT, 5, .ERR.FLG); 
C113 : 

RD.D1 (.TST.PAT, 15, .ERR.FLG); 
Cl 23 : 

RD.D2 (.TST.PAT, 16, .ERR.FLG); 
Cl 33 : 

RD.D3 (.TST.PAT, 14, .ERR.FLG); 

tes; 


025712 004167 156622 
025716 016600 000010 
025722 016601 000014 
025726 016602 000012 
025732 006302 
025734 064207 025740 
025740 000034 
025742 000050 
025744 000066 
025746 000104 
02575jj jj012g 



.S8T1L RD.REG ROUTINE 

RD.REG: JSR R1,$3AVE2 

NOV 10CSP) ,R0 

MOV 14(SP),R1 

MOV 12(SP),R2 

ASL R2 

ADD 1S(R2),PC 

28-18 
38-18 
48-18 
58-18 

108- IS 

Ip 

idi 

m,-(sp> 


SEO 0171 


29-M«r-1982 16:23:04 TOPS-20 Blfss-16 V2(212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BL1 .4 (47) 

.'CALL ROUTINE TO READ MLPD 

.'CALL ROUTINE TO READ MLEE 

.'CALL ROUTINE TO READ MLEL 

•CALL ROUTINE TO READ MLDS 

•CALL ROUTINE TO READ MLD1 

! CALL ROUTINE TO READ MLD2 

•CALL ROUTINE TO READ MLE2 


DECLARATION SECTION 

; ERR.FLG,* 
; TST.PAT,* 
; REG.SEL,* 


43! 

431 


43; 


431 
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RD.REG ROUTINE DECLARATION SECTION 


SEQ 0172 


7211 

a 

7214 025776 

7215 026000 

7216 026002 

7217 026006 

7218 026010 

7219 026012 

7220 026016 

7221 026020 

7222 026024 


; ML 4 AD 


* v^v 

7249 

7250 

7251 

i 


7224 026030 

7225 026034 

7226 026036 

7227 026042 

7228 026044 

7229 026046 

7230 026052 

7231 026054 

7232 026060 

7233 026062 

7234 026064 

7235 026070 

7236 026072 

7237 026076 

7238 026100 

7239 026102 

7240 026106 

7241 026110 

7242 026114 

7243 026116 

7244 026120 

7245 026124 

7246 026126 

7247 026132 

7248 026134 

7249 026136 

7250 026142 

7251 026144 

7252 026150 

7253 026152 

7254 026154 

7255 026160 

7256 026162 

7257 026166 

7258 026170 


f fcWV 

7261 

7262 

7263 


26176 


005046 

010046 

004767 

000532 

010146 

012746 

010046 

004767 

000523 

010146 

012746 

010046 

004767 

000514 

010146 

012746 

010046 

004767 

000505 

010146 

012746 

010046 

004767 

000476 

010146 

012746 

010046 

004767 

000467 

010146 

012746 

010046 

004767 

000460 

010146 

012746 

010046 

004767 

000451 

010146 

012746 

010046 

004767 

000442 

010146 

012746 

010046 

& 

010146 

012746 

010046 


173754 


000006 

174114 

000003 

174254 

000012 

174414 

000015 

174776 

000016 

175200 

000010 

174534 

000023 

175406 

000021 

175572 


000022 

175512 


000005 


ROUTINE DECLARATION SECTION 

-<$P) 

RO.-(SP) 

PC.RD.CS1 

16i 

RI.-(SP) 

#6.-(SP> 

R0,-<SP) 

PC.RD.ER 

16$ 

A1,-(SP) 

#3,-(SP) 

R0,-(SP> 

PC.RD.DA 

16S 

RI.-(SP) 

#1$,-(SP> 

RO.-(SP) 

PC. RD. NR 
16$ 

RI.-(SP) 

#1$.-<SP> 

R0,-(SP) 

PC.RD.E1 

16$ 

RI.-(SP) 

#16, -<SP) 

R0,-(SP> 

PC.RD.E2 

16$ 

Rl.-(SP) 

#10,-<SP> 

R0,-(SP) 

PC.RD.PA 

16$ 

RI.-(SP) 

#23,-<SP) 

RO.-(SP) 

PC.RD.PD 

16$ 

RI.-(SP) 

#2f ,-(SP) 

RO, -(SP) 

PC.RD.EE 

16$ 

RI.-(SP) 

#25,-(SP) 

rB,-(SP) 

PC.RD.EL 

16$ 

R1,-(SP) 

#5.-(S P) 

R0,-(SP) 


>9-Nar-1982 16:23:04 
>9-H«r-1982 16:21:03 


4378 

4400 


4378 

4403 


4378 

4406 


4378 

4409 


4378 

4412 
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RD.REG ROUTINE DECLARATION SECTION 


SEO 0173 


1 67 
68 
69 
70 0 
71 0 

7 Al 

74 0 

M 


728 8 

7284 G 

7285 0 

7286 0 

7287 0 

7288 

7289 

7290 

7295 

7296 

7297 ; 



176774 


000017 

175644 


46 

46 000020 


176140 


000016 

176450 

000006 


•NL4AD 

ROUTINE DECLARATION SECTION 

JSR PC.RD.DS 

BR 16i 

13$: NOV RI--(SP) 

NOV #17,-(SPj 

NOV RO,-<SP) 

JSR PC.RD.D1 

BR 16i 

14$; NOV RI.-(SP) 

NOV #20. -(SP) 

NOV r5,-(SP> 

JSR PC.RD.D2 

BR 16$ 

15$: NOV Rl.-(SP) 

NOV #16,-(SP) 

NOV RO.-CSP) 

JSR PC.RD.D3 

16$: ADD #6.SP 

RTS PC 

; Routine Size: 124 words 

; Naxi*u* stock depth per invocation: 6 words 


29-N*r-1982 16:23:04 TOPS 
29-Ner-1982 16:21:03 PA:< 


4378 

4418 


4351 

4350 


4425 !<8LF/PAGE> 


SEQ 0174 


F 14 
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RD.REG ROUTINE DECLARATION SECTION 


7300 

7301 

7302 

7303 

7304 

7308 

7309 
7313 
73K 

7315 

7316 

7317 

7318 

7323 

7324 

7325 

7326 

7327 

7328 

7329 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7348 

7349 

7350 

7351 

7352 

7353 


;NL4AD 


ROUTINE DECLARATION SECTION 


.302 

026306 

026310 


4426 

4427 

4428 


004767 

104423 

000207 


BGNMSG (DUMPER); 


000004 


.SBTTL 
DUMPER: :J$R 
TRAP 
RTS 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


DUMPER ROUTINE DECLARATION SECTION 

PC,MSDUMPER 

23 

PC 


TOPS-20 Bli**-16 V2C212) 
PA:<NEALE>ML4AD.BLI .4 (48) 


4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 


; Routine Size: 4 words 

; Maximum stock depth per invocation: 0 words 


FUNCTIONAL DESCRIPTION 

UPON COMPLETION OF ERROR MESSAGES 
DUMP OUT ALL PERTINENT DRIVE AND 
RH REGISTERS 


if .REGDMP 
then 

begin 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTS 

PRINTB 


(ONE.FMT 
(FMT 23) 
(FMTI24, 
(FMT”24, 
(FMTI24, 
(FMTI24. 
(FMT“24, 
(FMT 24. 
(FMT”24, 
(FMTI24, 
(FN04, 
(FMT^24 # 
(FMT 24, 
(FMT 24, 
(FMTI24. 


, PHR.14); 

'reg.i. mlcsi, 

RE6.18, MLWC, 
RE6.19, ML8A, 
RE 6.6- MLDA, 
RE6.1?, MLCS2 
RE6.2, MLDS, 
REG.3, MLER, 
RE6.5, MLAS, 
REG.4, MLMR, 
RE6.7, MLDT, 
RE6I9- MLSN, 
RE6.14, MLEE, 
RE6:i5. MLEL, 


.MLCS1); 

.MLWC); 

.MLSA); 

.MLDA); 

, .MLCS2); 
.MLDS); 
.MLER); 
.MLAS); 
.MLMR); 
.MLDT); 
.MLSN): 
.MLEE 5; 
.MLEL); 


! PRINT REGISTER DUMP MESSAGE 

! PRINT DUMPER COLUMN HEADINGS 

•PRINT OUT THE RH t Mill REGISTER CONTENTS 


if .LST.DUT.REG eql 21 
then 


! SEE IF THIS IS A RH70 

!IF YES THEN PRINT RH70 REGISTERS 







ICZNIADO NL-11 LOGIC TEST NACRO N1113 30-NAR-82 

WDUNPER ROUTINE DECLARATION SECTION 


7411 

7412 

7413 

7414 026500 

7415 026504 

7416 026510 

7417 026514 

7418 026516 

7419 026520 

7420 026524 

7421 026530 

7422 026534 

7423 026540 

7424 026544 

7425 026546 

7426 026550 

7427 026554 

7428 026560 

7429 026564 

7430 026570 

7431 026574 

7432 0265/6 

7433 026600 

7434 026604 

7435 026610 

7436 026614 

7437 026620 

7438 026624 

7439 026626 

7440 026630 

7441 026634 

7442 026640 

7443 026644 

7444 026650 

7445 026654 

7446 026656 

7447 026660 

7448 026664 

7449 026670 

7450 026674 

7451 026700 

7452 026704 

7453 026706 

7454 026710 

7455 026714 

7456 026720 

7457 026724 

7458 026730 

7459 026734 

7460 026736 

7461 026740 

7462 026744 

7463 026750 

7464 026754 

7465 026760 


;NL4AD 


012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 

010600 

104414 

017716 

016746 

012746 

012746 

012746 


012540 

010142 

000004 


166720 

166714 

012642 

010142 

000004 


166700 

166674 

012510 

010142 

000004 


166660 

166654 

012516 

010142 

000004 


166640 

166634 

012532 

010142 

000004 


166640 

166634 

012524 

010142 

000004 


166620 

166614 

012546 

010142 

000004 


166600 

166574 

012562 

010142 

000004 


NOV 

NOV 

NOV 

NOV 

TRAP 

NCV 

NOV 

NCV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 


i 

i 


SEO 0176 




CZMLADO ML-11 LOGIC TEST MACRO M1113 

MSDUHPER ROUTINE DECLARATION SECTION 


30-MAR-82 11:18 


I 14 
PAGE 194 


SEO 0177 


7467 

7468 

7469 

7470 026764 

7471 026766 

7472 026770 

7473 026774 

7474 027000 

7475 027004 

7476 027010 

7477 027014 

7478 027016 

7479 027020 

7480 027024 

7481 027030 

7482 027034 

7483 027040 
748* 027044 

7485 027050 

7486 027052 

7487 027054 

7488 027062 

7489 027064 

7490 027070 

7491 027074 

7492 027100 

7493 027104 

7494 027110 

7495 027112 
74% 027114 

7497 027120 

7498 027124 

7499 027130 

7500 027134 

7501 027140 

7502 027142 

7503 027144 

7504 027150 

7505 027154 

7506 

7507 

7508 

7513 

7514 


; ML 4 AD 


010600 

104414 

017716 

166620 

MOV 

TRAP 

MOV 

016746 

166614 

MOV 

012746 

012620 

MOV 

012746 

010142 

MOV 

012746 

000004 

MOV 

010600 

104414 

062706 

017716 

000146 

MOV 

TRAP 

ADD 

166574 

MOV 

016746 

166570 

MOV 

012746 

012626 

MOV 

012746 

010142 

N0 V 

012746 

000004 

MOV 

010600 

104414 

026727 

166276 000025 

MOV 

TRAP 

CMP 

001032 

017746 

166554 

8NE 

MOV 

016746 

166550 

MOV 

012746 

012666 

MOV 

012746 

010142 

MOV 

012746 

000004 

MOV 

010600 

104414 

017716 

166534 

MOV 

TRAP 

MOV 

016746 

166530 

MOV 

012746 

012676 

MOV 

012746 

010142 

MOV 

012746 

000004 

MOV 

010600 

104414 

062706 

000022 

MOV 

TRAP 

ADD 

062706 

000012 2$: 

ADD 

C00207 


RTS 


ROUTINE DECLARATION SECTION 

sp.ro ; sp,* 

14 

8ML.REG+210. (SP) 

ML.REG*210,-($P) 

#REG.14.-(SP> 

#FMT.24,-(SP) 

#4,-<SP> 

SP.RO ; SP,* 

14 

#146, $P 

8ML.REG+220, (SP) 

ML.REG*220.-(SP> 

#REG.15,-(SP) 

#FMT.24 f -(SP) 

#4.-<SP> 

SP.RO : SP.* 

LST.DUT.REG,#25 

2 $ 

3ML. RE 6*240, -(SP) 

ML.REG*240.-(SP) 

#REG.20.-<SP> 

#FMT.24.-(SP) 

#4.-<SP> 

SP.RO ; SP,* 

14 

8ML.REG+250, (SP) 

ML.REG*250,-($P> 

#RE6.21 ,-<SP> 

#FMT.24,-(SP) 

#4,-<SP> 

SP.RO ; SP,* 

H 

#22, SP : 

#12, SP 
PC 

Routine Size: 210 words . , 

Maxima* stack depth per invocation: 52 words 


?9-Mar-1982 16:23:04 
?9-Mar-1982 16:21:03 


TOPS 
PA: < 


4453 


4454 


4456 

4459 


4460 


4458 

4439 

4428 


J 14 

CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-8 2 11:18 PAGE 195 

WSDUMPER ROUTINE DECLARATION SECTION 


SEQ 0178 


7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 

7538 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7548 

7549 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7568 

7569 

7570 


ML4AD 


4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 
451 
451 

4514 

4515 

4516 

4517 


29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2(212) 

ROUTINE DECLARATION SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (49) 

routine WRT.CHK.TRANSFER (SIZE. DST , SRC) : novalue = 
begin 


♦♦ 


FUNCTIONAL DESCRIPTION: tt 

THIS ROUTINE WHEN CALLED WILL PERFORM 
A MASS BUS WRITE CHECK TRANSFER TO THE REQUESTED 
DESTINATION AND SOURCE ADDRESS OF LENGTH 
•SIZE’. 

FORMAL^PARAMETERS^^nes the number OF WORDS TO 
TRANSFER TO THE DESTINATION ADRS. 


DST: DETERMINES THE DESTINATION ADRS OF 

TRANSFER. 

SRC: DETERMINES THE SOURCE ADRS OF THE 

TRANSFER. 


CLR.MBUS; 

ECC.DIS = ONE; 

BAI = ONE; 

MLWC = .SIZE; 

MLDA = .DST; 

ML BA = .SRC; 

MLCS1 = WRT.CHK; 

if (.SC) and ( not .WCE) 
then 

ErUd? (148. INTER. DUMPER); 
PRINTS (ONE FMT. WC.ERR); 
DODU (.ML.LON); 

DOCLN; 

end; 

do 

0 

until .DRY; 

if (.SC) and ( not .WCE) 
then 

begin 

ERRDF (148. INTER. DUMPER); 
PRINTS (ONE FMT. WC.ERR); 
DODU ( .ML.LON); 

DOCLN; 

end; 


.'CLEAR THE MASS BUS BEFORE WE START 

•DISABLE ERROR CORRECTION 

•MAKE THE TRANSFER STAY ON ONE BUS ADRS 

•LOAD THE SIZE OF THE TRANSFER 

.•LOAD THE DESTINATION ADRS OF THE TRANSFER 

!LOAD THE SOURCE ADRS OF THE TRANSFER 

!LOAD THE WRITE CHECK FUNCTION INTO CS1 


•DID LOADING THE FUNCTION CAUSE A SC ERROR 


i REPORT THE ERROR TO OPERATOR 
I TELL WHAT THE ERROR IS 
‘DROP THE UNIT 
•EXIT THE PROG 


•DO NOTHING 
» 

•UNTIL THE DRIVE IS READY 
! DID THE SC BIT SET DURING THE XFER 


.•REPORT THE ERROR TO OPERATOR 
! TELL WHAT THE ERROR IS 
•DROP THE UNIT 
.•EXIT THE PROGRAM 


K 14 
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HSDUMPER ROUTINE DECLARATION SECTION 


SEO 0179 


7572 ;M14AD 

7573 ; 

7574 

7575 ; 

7579 

7580 

7584 027156 

7585 027156 

7586 027164 

7587 027170 

7588 027174 

7589 027202 

7590 027206 

7591 027214 

7592 027222 

7593 027230 

7594 027236 

7595 027244 

7596 C27252 

7597 027256 

7598 027260 

7599 027266 

7600 027270 

7601 027272 

7602 027274 

7603 027276 

7604 027300 

7605 027304 

7606 027310 

7607 027314 

7608 027316 

7609 027320 

7610 027324 

7611 027326 

7612 027330 

7613 027334 

7614 027340 

7615 027342 

7616 027346 

7617 027350 

7618 027356 

7619 027360 

7620 027362 

7621 027364 

7622 027366 

7623 027370 

7624 027374 

7625 027400 

7626 027404 


ROUTINE DECLARATION SECTION 


29-M»r-1982 16:23:04 T0PS-20 Bliss-16 V2(212> 

29-H» r -1982 16:21:03 PA:<NEALE>HL4AD.BLI -4 (49) 


4518 

end; 


.SBTTL 




WRT.CHK.TRANSFE 

152777 

000040 

166260 

81 SB 

016700 

166642 


MOV 

042700 

177770 

166242 

BIC 

142777 

000007 

BICB 

150077 

166236 

166310 

8IS8 

152777 

000002 

BISB 

152777 

000010 

166222 

BIS8 

016677 

I'lvIvM 

166164 

MOV 

016677 

1 * TITI ■ 

166176 

MOV 

016677 


166160 

MOV 

012777 

000051 

166132 

MOV 

005777 

166126 


TST 

100026 



8PL 

032777 

040000 

166156 

BIT 

001022 



BNE 

104455 



TRAP 

000224 



.WORD 

013114 



.WORD 

026302 



.WORD 

012746 

005652 


MOV 

012746 

010240 


MOV 

012746 

000002 


MOV 

010600 



MOV 

104414 



TRAP 

016700 

166504 


MOV 

104451 



TRAP 

104444 



TRAP 

062706 

105777 

000006 

166114 


ADD 

IS: TSTB 

100375 



BPL 

005777 

166036 


TST 

100026 



BPL 

032777 

040000 

166066 

BIT 

001022 



BNE 

104455 



TRAP 

000224 



.WORD 

013114 



.WORD 

026302 



.WORD 

012746 

005652 


MOV 

012746 

010240 


MOV 

012746 

000002 


MOV 

010600 



MOV 


WPT.CHK.TRANSFE ROUTINE DECLARATION SECTION 

#40,aHL.REG+40 
HL.DUT.RO 
#1 77776, RO 
#7,iML.REG+40 
R0.8ML.REG+40 
#2.aHL.REG+120 
#10,aML.REG+40 

6(SP) .8HL.REG+10 ; SIZE,* 

4(SP) ,8HL.REG+30 ; DST,* 

2($P>.8ML.REG+20 ; SRC.* 

#51 .BML.REG 
3HL.REG 
IS 

#40000, BHL.REG+40 
IS 
55 
224 
INTER 
DUMPER 

#WC.6RR,-(SP) ; 

fONE.FHT.-(SP) 

#2,-<SP> 

SP.RO ; SP,* 

14 

HL.LUN.RO ; 

51 
44 

#6 .SP 
iML.REG+50 

15 

BML.REG ; 

2S 

#40000, BML. RE G+40 
2S 
55 
224 
INTER 
DUMPER 

#WC.ERR,-<SP> 

#QNE.FHT,-(SP) 

#2,-<SP) 

sp.ro ; sp,* 


4467 


4489 

4490 

4491 

4492 

4493 

4494 
4496 


4499 

4500 

4501 

4498 

4507 

4509 

4512 

4513 
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WRT.CHK.TRANSFE ROUTINE DECLARATION SECTION 


SEQ 0180 


027406 104414 
027410 016700 166414 
027414 104451 

027416 104444 
027420 062706 000006 
027424 000207 


‘ML4AD 

; ROUTINE DECLARATION SECTION 

TRAP 14 

MOV Ml.LUN,RO 

TRAP 51 

TRAP 44 

ADD 16, SP 

2$: RTS PC 

; Routine Size: 84 word* 

; Maximum stack depth per Invocation: 3 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 
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WRT.CHK.TRANSFE ROUTINE DECLARATION SECTION 


SEG 0181 


7647 

7648 

7649 

7650 

7651 

7652 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 

7674 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 

7690 

7691 

7692 

7693 

7694 

7695 

7696 

7697 

7698 


ML4AD 


ROUTINE DECLARATION SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BII .4 (50) 


4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 


routine WRT.TRANSFER (SIZE. DST, SRC) : novatue = 
begin 


FUNCTIONAL DESCRIPTION 

THIS ROUTINE WHEN CALLED WILL PERFORM 
A WRITE TRANSFER TO THE REQUESTED 
DESTINATION AND SOURCE ADDRESSES OF 
LENGTH 'SIZE*. 

FORMAL PARAMETERS: 

SIZE: DETERMINES THE NUMBER OF WORDS 

TO TRANSFER. 

DST: DETERMINES THE DESTINATION ADRS 

OF THE TRANSFER. 

SRC: DETERMINES THE SOURCE ADRS OF THE 

TRANSFER. 


CLR.MBUS; 

BAI = ONE; 

MLWC = .SIZE; 

MLDA = .DST; 

MLBA = .SRC; 

HLCS1 = write; 

if .SC 
then 

ErHdF (148. INTER. DUMPER); 
PRINTB (ONE FMT, W.ERR); 
DODU (.ML.LON); 

DOCLN; 

end; 


until .DRV; 

if .SC 
then 

ER^DF (148. INTER. DUMPER); 
PRINTB (ONE FMT, W.ERR); 
DODU (.ML.LON); 

DOCLN; 

end; 


! CLEAR THE MASS BUS BEFORE WE START 

.'FORCE THE TRANSFER TO STAY ON ONE BUS ADRS 

•LOAD THE WORD COUNT SIZE 

•LOAD THE DESTINATION ADRS 

•LOAD THE SOURCE ADRS 

.'LOAD THE FUNCTION INTO CS1 

•DID LOADING THE FUNCTION CAUSE AN SC ERROR 


! REPORT THE ERROR 
•TELL WHAT THE ERROR IS 
!DROP THE UNIT 
•EXIT THE PROGRAM 


•DO NOTHING 

i 

•UNTIL THE DRIVE IS READY 

•DID SC ERROR SET DURING THE TRANSFER 


! REPORT THE ERORR 
• TELL WHAT THE ERROR IS 
!DROP THE UNIT 
I EXIT THE PROGRAM 


end; 
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N 14 
PAGE 199 


7703 

7704 

7705 

7706 

7707 

7711 027426 

7712 027426 

7713 027434 

7714 027440 

7715 027444 

7716 027452 

7717 027456 

7718 027464 

7719 027472 

7720 027500 

7721 027506 

7722 027514 

7723 027520 

7724 027522 

7725 027524 

7726 027526 

7727 027530 

7728 027532 

7729 027536 

7730 027542 
“ 027546 

027550 
. . __ 027552 

7734 027556 

7735 027560 

7736 027562 

7737 027566 

7738 027572 

7739 027574 

7740 027600 

7741 027602 

7742 027604 

7743 027606 

7744 027610 

7745 027612 

7746 027616 

7747 027622 

7748 027626 

7749 027630 

7750 027632 

7751 027636 

7752 027640 

7753 027642 

7754 027646 

7755 

7756 

7757 


7730 

7731 
773 
773 


;ML4AD 


.S8TTL 

WRT. TRANSFER: 


ROUTINE DECLARATION SECTION 


WRT. TRANSFER ROUTINE DECLARATION SECTION 


152777 

000040 

166010 


BISS 

016700 

166372 



MOV 

042700 

177770 



B1C 

142777 

VK'WlM 

165772 


BICB 

150077 

165766 



BISB 

152777 

000010 

165760 


BISB 

016677 


165722 


MOV 

016677 

r'lvl'fl 

165734 


MOV 

016677 


165716 


MOV 

012777 

000061 

165670 


MOV 

005777 

165664 



TST 

100 022 




BPL 

104455 




TRAP 

000224 




.UCRD 

013114 




.WORD 

026302 




.WORD 

012746 

005722 



MOV 

012746 

010240 



MOV 

012746 

000002 



MOV 

010600 




MOV 

104414 




TRAP 

016700 

166252 



MOV 

104451 




TRAP 

104444 




TRAP 

062706 

000006 



ADD 

105777 

165662 


IS: 

TST8 

100375 




BPL 

005777 

165604 



TST 

100022 




BPL 

104455 




TRAP 

000224 




.WORD 

013114 




.WORD 

026302 




.WORD 

012746 

005722 



MOV 

012746 

010240 



MOV 

012746 

000002 



MOV 

010600 




MOV 

104414 




TRAP 

016700 

166172 



MOV 

104451 




TRAP 

104444 




TRAP 

062706 

000006 



ADD 

000207 



2S: 

RTS 


#40.BML.REG*40 
rtL.DUT.RO 
#17?776,R0 
#7,8ML.REG*40 
R0.8ML.REG+40 
#10.BML.REG+40 
6(SP) .BML.REG+IO 
4<SP>.BML.REG+30 
2(SP> .BML.REG+20 
#61 .3ML.REG 
BML.REG 
1 $ 

55 

224 

INTER 

DUMPER 

#W.ERR.-<SP> 

#ONE.FNT,-<SP> 

#2,-<SP) 

SP.RO 

14 

ML.LUN.RO 

51 

44 

#6 ,SP 
BML.REG+50 

15 

8ML.REG 

2S 

55 

224 

INTER 

DUMPER 

#W. ERR, “(SP) 

fONE.FMT.-(SP) 

#2,-<SP> 

SP.R 0 
14 

NL.LUN.RO 

51 

44 

#6,S P 
PC 


Routine Size: 73 words . 

Maximum stack depth per invocation: 


; SIZE.* 
; DST.* 

; SRC.* 


; SP.* 


; SP.* 


3 words 


SEQ 01 8^ 

29-Mar-1982 16:23:04 TO?: 

29-Mar- 1982 16:21:03 PA < 


4520 


4539 

'>540 

4541 

4542 

4543 
4545 

4548 


4549 


4550 


4547 

4556 

4558 

4561 


4562 


4563 


4560 

4519 


B 15 
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URT. TRANSFER ROUTINE DECLARATION SECTION 

7759 ;«L4AD 

7760 ; ROUTINE DECLARATION SECTION 

7761 

7766 

7767 

7768 ; 4568 !<BLF/PAGE> 


SEQ 0183 

29-War- 1982 16:23:04 TOPS 

29-War- 1982 16:21:03 PA:< 


L 
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WRT. TRANSFER ROUTINE DECLARATION SECTION 


SEQ 01 84 


7770 ;HL4AD 

7771 ; 

7772 

7773 ; 

7774 ; 

7775 ; 

7776 ; 

7777 ; 

7778 ; 

7779 ; 

7780 ; 

7781 ; 

7782 ; 

7783 ; 

7784 ; 

7785 ; 

7786 ; 

7787 ; 

7788 ; 

7789 ; 

7790 ; 

7791 ; 

7792 ; 

7793 ; 

7794 ; 

7795 ; 

7796 ; 

7797 ; 

7798 ; 

7799 ; 

7800 ; 

7801 ; 

7802 ; 

7803 ; 

7804 ; 

7805 ; 

7806 ; 

7807 ; 

7808 ; 

7809 ; 

7810 ; 

7811 ; 

7812 ; 

7813 ; 

7814 ; 

7815 ; 

7816 ; 

7817 ; 

7818 ; 

7819 ; 

7820 ; 

7821 ; 

7822 ; 

7823 ; 

7824 ; 


4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 


INITIALIZATION CODE SECTION 
Xsbttl •INITIALIZATION CODE SECTION' 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA : <NE ALE >ML4AD . 8L I . 4 (52) 


BGN1NI T * 

! 'INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH 

I PASS, WHEN POWER DOWN/POWER UP HAS OCCURRED, OR WHEN THE 

• OPERATOR HAS ISSUED A START, RESTART OR CONTINUE COWHAND. 

• DURING INITIALIZATION, THE * GPHARD' HACRO IS USED TO GET 

! P- TABLE INFORHATION FOR THE LOGICAL UNIT UNDER TEST. THE 

j NUMBER OF UNITS AVAILABLE FOR TESTING IS CONTAINED IN A 

• HEADER LOCATION ( 'LSUNIT'). 

local 

OFFSET; 

external 

LSUNIT; 

if not READEF (EF.CONTINUE) !SKIP INIT CODE I 

th#0 begin ! START GPHARDS AT 

if READEF (EF.START) I SEE IF THIS IS T 

then begin 'THIS IS CATEGORY 

HL LUN = -1 • 

DROP.CNT = ZERO; ! CLEAR THE PASS C 


•SKIP INIT CODE IF CONTINUE 
•START GPHARDS AT LUN 0 AND LOAD 'ML.REG* 
•SEE IF THIS IS THE VERY FIRST PASS 
•THIS IS CATEGORY 1 CODE 
•CLEAR THE PASS COUNTER 


ML?LUN = .HL.LUN ♦ 1; .' INCREMENT LOGICAL UNIT NUMBER 

if .HL.LUN geq .LSUNIT then DOCLN; iSTART OVER IF ALL UNITS HAVE BEEN TESTED 


ena 

until (GPHARD (.HL.LUN, PTBL.PTRJ) neq 0; 

RH ADD = . ((.PTBL.PTR) +0); ! 

RH TYP = . ((.PTBL.PTR) +2); l 

RH’VEC = .((.PTBL.PTR) ♦ 4); ! 

OFFSET = 0; ! 


•REPEAT THE GPHARD UNTIL A 0 IS RETURNED 


•GET BASE RH ADDRESS FOR THIS UNIT 
!GET RH TYPE FOR THIS UNIT 
•GET RH VECTOR FOR THIS UNIT 
UNIT OFF SET COUNT 


incr COUNT frc* 0 to 21 do .'LOAD THE REGI 

begin 

HL REG [.COUNT, REGISTER.ADD3 = .RH.ADD ♦ .OFFSET; 

OFFSET = .OFFSET ♦ 2; 

end; 


•LOAD THE REGISTER ADDRESS FOR THIS UNIT INTO HL.REG 


begin 


•IS THIS A NEW PASS 
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SEQ 0185 


7826 ; ML 4 AD 

7827 ; 

7828 

7829 

7830 

7831 

7832 

7833 
78354 

7835 

7836 

7837 

7838 

7839 

7840 

7841 

7842 

7843 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

7874 

7875 

7876 

7877 

7878 

7879 

7880 


4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 


INITIALIZATION CODE SECTION 

if READEF (EF.RESTART) 

if READEF (EF.NEW) 
then 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 BUss-16 V2(21 2) 
PA:<NEALE>ML4AD.BII.4 (52) 


then DROP.CNT = -1; 


•RESET THE PASS COUNTER 


begin 

DROP. 


do 


CNT = .DROP.CNT ♦ 1; 

if (.ONEPAS) and (.DROP.CNT eql 1) 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end 

else 

ML.LUN = -1; 

end; 

begin 

ML.LUN = .ML.LUN ♦ 1; 
if .ML.LUN geq .LSUNIT then DOCLN; 
end 


•IS THIS A NEW PASS 

•THIS IS A NEW PASS 
• INCREMENT THE PASS COUNT 

{HAVE WE DONE ONE PASS YET 

•DROP THE UNIT ON THE SECOND PASS 

.'DROP THE UNIT 

•JUMP TO THE CLEAN UP CODE 

•THE FIRST PASS IS NOT COMPLETED YET 
•RESET THE LUN POINTER 


•IF NOT GET NEXT LUN PTABLE 
•START OVER IF ALL UNITS ARE TESTED 


until (GPHARD (.ML.LUN. PT8L.PTR)) neq 0; 
end; 


•REPEAT UNTIL A 0 IS RETURNED 


PAR DIS = .((.PTBL PTR) ♦ 12); 

ML BUT = .((.PTBL.PTR) ♦ 10); 

OP~NUM ARR = .((.PTBL.PTR) ♦ 6) - 1; 
GOOD JBClC - ZEROES; 

ARR.T6 = ZEROES; 

LST ARR = ZEROES; 

LST”8LK = ZEROES; 

DEFINE ERROR PRINTING THRESHOLD LIMIT 


•GET PARITY DISABLE FLAG 
! GET DRIVE NUMBER 
•GET OPERATOR NUMBER OF ARRAYS 
•INIT GOOD BLOCK TO BLOCK ZERO 
!INIT ARRAY 16 TO ZERO 
•INIT LAST ARRAY TO ZERO 
•INIT LAST BLOCK TO ZERO 


if .ERRTHR then LIMIT = 10 else LIMIT = Xo'077777*; 


CALCULATE THE MOS RAM SIZE RUN TIME 
PARAMETERS. EITHER 16K OR 64K” 


if . ((.PTBL.PTR) ♦ 
then 

begin 
II VE 


8) IS.SET 


DRIVE. TYPE = Jo'000110*; 
W.C.SlZE = Xo* 140000*; 


•CALCULATE ML11 16K MOS RAM PARAMETERS 


{EXPECTED DRIVE TYPE VALUE 
•WORD COUNT SIZE FOR 16K WORD XFER 
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URT. TRANSFER ROUTINE DECLARATION SECTION 


SEQ 0186 


7884 

7885 

7886 

7887 

7888 

7889 

7890 

7891 

7892 

7893 

7894 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 

7903 

7904 

7905 

7906 

7907 

7908 

7909 

7910 

7911 

7912 

7913 

7914 

7915 

7919 

7920 

7921 


ML4AD 


7927 027650 

7928 027654 

7929 027660 

7930 027662 

7931 027664 

7932 027666 




7934 _ 

7935 027676 

7936 027704 


4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 


7672 

7674 


INITIALIZATION CODE SECTION 

RAS INC = Xo’200'; 

CHIP SIZ = 16; 

ARR INC = Xo'1000'; 

ARR 16<9* 4> = Xo'17'; 

LST“ARR<9, 4> = .OP.NUM.ARR; 
LST~BLK<9, 4> = .OP.NUM ARR; 
LST.BLK = .LST.BLK or Xo*777'; 
end 

else 

DR?VE TYPE = Xo * 0001 11’; 

U C SIZE = Xo '000000'; 

RXSIINC = Xo'1000'; 

CHIP SI Z = 64; 

ARR.lNC = Xo'4000'; 

VERSION CZMLAD CHANGED X0'37' TO XO'17' 

ARR_16<11. 4> = Xo'17'; 

LST ARR<11. 4> = .OP.NUM.ARR; 
LSTlBLKClI. 4> = .QP„NUM ARR; 
LST.BLK = .LST.BLK or Xo T 3777'; 
end; 


29-Mer-1982 16:23:04 
29-M#r-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI .4 (52) 


•RAS INCREMENT FOR 16K RAMS 
! CHIP SIZE 
! ARRAY INCREMENT 
! ARRAY 16 
I LAST ARRAY 
!LAST SLOCK 


! CALCULATE ML11 64K MOS RAM PARAMETERS 

I EXPECTED DRIVE TYPE VALUE 
•WORD COUNT SIZE FOR 64K WORD XFER 
IRAS INCREMENT FOR 64K RAMS 
•CHIP SIZE 
•ARRAY INCREMENT 


.‘ARRAY 16 
.'LAST ARRAY 
.‘LAST BLOCK 


if . (<.PTBL_PTR) ♦ 2) eql Xo'70' then LST.DUT.REG = 21 else LST.DUT.REG = 19; 


4698 






4699 

PRINTB (FMT 17. .ML. 

_LUN) ; 


•TELL OPERATOR UH 

4700 

CLR.MBUS; 



‘CLEAR MASS BUS 

4701 

end; 





4702 






4703 

ENDINIT; 








.GL06L 

LSUNIT 





.S8TTL 

LINIT INITIALIZATION CODE SECTION 

004167 

154700 

LINIT; 

JSR 

R1.SSAVE3 

• 

012700 

000036 


MOV 

#36. RO 

0 

104447 



TRAP 

47 


103001 



8HIS 

1$ 


000207 



RTS 

PC 


012700 

000040 

1$: 

MOV 

#40. RO 

I 

104447 



TRAP 

47 


103063 



SHIS 

5$ 


012767 

177777 166124 


MOV 

#-1 .ML.LUN 

• 

• 

005067 

165472 


CLR 

DROP.CNT 

• 

0 


4567 

4587 


4591 


4594 

4595 
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UNIT INITIALIZATION CODE SECTION 


SEO 0187 


;HL4AD 


mo 

mi 027710 
m2 027714 
m3 027722 
7944 027724 
m5 027726 

7946 

7947 027734 
m8 027740 
7949 027744 




7951 027754 

7952 027760 


7966 

7967 

7968 

7969 

7970 

7971 

7972 

7973 

7974 

7975 

7976 

7977 






005267 

026767 

002401 

104444 

016700 

104442 

010067 

005767 

001761 

017767 

016701 

016167 

016701 

016167 

005002 

005001 

010100 

006300 

006300 

006300 

016703 

068203 

010360 

062702 

005201 

020127 

003761 

000454 

012700 

104447 

103003 

012767 

012700 

104447 

103022 

005267 

032767 

001411 

026727 

001005 

016700 

104451 

104444 

000403 

012767 

m 

002401 

104444 

016700 

104442 

010067 


166114 

166110 


166076 

164040 

164034 

164026 

164020 

000002 

164006 

000004 


152070 


166046 

166036 

166026 


166002 

015404 

000002 

000025 


000037 


177777 

000035 


165304 

000001 

165270 

165706 


177777 

165666 

165662 


165650 

163612 


165320 

152302 

000001 


151642 


INITIALIZATION CODE SECTION 

INC HL.LUN 

CHP ML.LUN.L5UNIT 

BLT 3$ 

TRAP 44 

NOV HL.LUN.RO 

TRAP 42 


29-Ha r-1 982 16:23:04 
29-Ha r- 1982 16:21:03 



MOV 

RO.PTBL.PTR 



TST 

PT8L.PTR 



BEO 

25 



MOV 

BPTBL.PTR.RH.ADD 

i 


MOV 

PTBL.PTR.R1 

i 


MOV 

2(R1) .RH.TYP 



MOV 

PTBL.PTR.R1 

• 

# 


MOV . 

4(R1) .RH.VEC 



CLR 

R2 

; OFFSET 


CLR 

R1 

; COUNT 

45: 

MOV 

R1.R0 

; COUNT.* 


ASL 

RO 



ASL 

RO 



ASL 

RO 



HOV 

RH.ADD.R3 



ADD 

R2.R3 

; OFFSET.* 


HOV 

R3.ML. REGIRO) 



ADD 

#2.R2 

; *, OFFSET 


INC 

R1 

; COUNT 


CHP 

R1 .#25 

; COUNT.* 


BLE 

45 



BR 

105 

• 

# 

55: 

HOV 

#37, RO 

• 

9 


TRAP 

47 



BH1S 

65 



MOV 

#-1,DR0P.CNT 


65: 

HOV 

#35, RO 

• 

9 


TRAP 

47 



BN1S 

85 



INC 

DROP.CNT 

• 

9 


BIT 

#1 .ONEPAS 

• 

9 


BEQ 

75 



CHP 

DR0P.CNT,#1 



8NE 

75 



MOV 

HL.LUN.RO 

m 

9 


TRAP 

51 



TRAP 

44 



BR 

85 

• 

9 

75: 

HOV 

#-1 .HL.LUN 

• 

9 

85: 

INC 

HL.LUN 

• 

• 


CHP 

HL.LUN. L5UNIT 

• 

• 


BLT 

95 



TRAP 

44 


95: 

HOV 

HL.LUN.RO 

• 

# 


TRAP 

42 



HOV 

RO.PTBL.PTR 
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1 1 1 NIT INITIALIZATION CODE SECTION 


} 


< 

I 


7994 




;NL4AD 


7995 




# 


7996 






7997 030166 

005767 

163606 



TST 

7998 030172 

001761 




BEQ 

7999 030U4 

016701 

163600 


10$: 

NOV 

8000 030200 

016167 

000014 

163602 


NOV 

8001 030206 

016701 

163566 



NOV 

8002 030212 

016167 

000012 

165612 


NOV 

8003 030220 

016701 

163554 



NOV 

8004 030224 

016103 

000006 



NOV 

8005 030230 

005303 




DEC 

8006 030232 

010367 

163544 



NOV 

8007 030236 

005067 

163544 



CLR 

?/X>8 030242 

005067 

163550 



CLR 

8009 030246 

005067 

163546 



CLR 

8010 030252 

005067 

163536 



CLR 

8011 030256 

032767 

000001 

152116 


BIT 

8012 030264 

001404 




BEQ 

8013 030266 

012767 

000012 

165104 


NOV 

8014 030274 

000403 




BR 

8015 030276 

012767 

077777 

165074 

11$: 

NOV 

8016 030304 

016701 

163470 


12$: 

NOV 

8017 030310 

026127 

000010 

000001 


CNP 

8018 030316 

001054 




BNE 

8019 030320 

012767 

000110 

165026 


NOV 

8020 030326 

012767 

140000 

165010 


NOV 

8021 030334 

012767 

000200 

165004 


NOV 

8022 030342 

012767 

000020 

163442 


NOV 

8023 030350 

012767 

001000 

163426 


NOV 

8024 030356 

052767 

017000 

163432 


BIS 

8025 030364 

016703 

163412 



NOV 

8026 030370 

000303 




SUAB 

8027 030372 

006303 




ASL 

8028 030374 

042703 

160777 



BIC 

8029 030400 

042767 

017000 

163412 


BIC 

8030 030406 

050367 

163406 



BIS 

8031 030412 

016703 

163364 



NOV 

8032 030416 

000303 




SUAB 

8033 030420 

006303 




ASL 

8034 030422 

042703 

160777 



BIC 

8035 030426 

042767 

017000 

163360 


BIC 

8036 030434 

050367 

163354 



BIS 

8037 030440 

052767 

000777 

163346 


BIS 

803a 030446 

000456 




BR 

8039 030450 

012767 

000111 

164676 

13$: 

NOV 

8040 030456 

005067 

164662 



CLR 

8041 030462 

012767 

001000 

164656 


NOV 

8042 030470 

012767 

000100 

163314 


NOV 

8043 030476 

012767 

004000 

163300 


NOV 

8044 030504 

052767 

074000 

163304 


BIS 

8045 030512 

016703 

163264 



NOV 

8046 030516 

000303 




SUAB 

8047 030520 

006303 




ASL 

8048 030522 

006303 




ASL 


INITIALIZATION CODE SECTION 


PT8L.PTR 

8 $ 

PTBL.PTR.R1 

14(R1 ) .PAR.D1S 

PTBL.PTR,R1 

12(R1) .NL.DUT 

PTBL.PTR.R1 

6(R1),R3 

R3 

R3. OP. NUN. ARR 

GOOD.BLK 

APR. 16 

LST.ARR 

LST.8LK 

#1.ERRTHR 

ni 

#12, LIBIT 
12 $ 

#77777.LIN1T 
PTBL.PTR.R1 
10(R1) ,#« 

13$ 

#110, DRIVE. TYPE 
#-40000, U.C. SIZE 
#200,RAS.INC 
#20,CHIP.SIZ 
#1000.ARR.INC 
#17000, ARR. 16 
OP. NUN. ARR, R3 
R3 
R3 

#1 60777, R3 
#17000,LST.ARR 
R3, LST.ARR 
OP. NUN. ARR, R3 
R3 
R3 

#160777,R3 

#17O0O,LST.BLIC 

R3.LST.BLK 

#777,LST.BLK 

14$ 

#111. DRIVE. TYPE 

U.C.SIZE 

#1000,RAS.INC 

#10Q.CHlP.SiZ 

#4000. ARR. INC 

#74000, ARR. 16 

OP. NUN. ARR, R3 

R3 

R3 

R3 


SEQ 0188 

29-N*r-1982 16:23:04 TOPS 
29-N*r-1982 16:21:03 PA:< 


4650 

4651 

4652 


4653 

4654 

4655 

4656 
4661 


4668 


4671 

4672 

4673 

4674 

4675 

4676 

4677 


4678 


4679 

4668 

4683 

4684 

4685 

4686 

4687 

4691 

4692 


CZHLADQ HL-11 LOGIC TEST 


I.' V * ' _ . - — 

(UNIT INITIALIZATION CODE SECTION 


MACRO HI 113 30-MAR-82 11:18 


H 15 
PAGE 206 


SEG 0189 


8050 

8051 

8052 

8053 

8054 

8055 

8056 

8057 

8058 

8059 

8060 
8061 
8062 

8063 

8064 

8065 

8066 

8067 

8068 

8069 

8070 

8071 

8072 

8073 

8074 

8075 

8076 

8077 

8078 

8079 

8080 
8081 
8082 

8083 

8084 

8085 

8086 

8091 

8092 

8096 

8097 
8101 
8102 

8103 

8104 


030524 

030526 

030532 

030540 

030544 

030550 

030552 

030554 

030556 

030560 

030564 

030572 

030576 

030604 

030610 

030616 

030620 

030626 

030630 

030636 

030642 

030646 

030652 

030654 

030656 

030664 

030670 

030674 

030702 

030706 

030712 


006303 

042703 

042767 

050367 

016703 

000303 

006303 

006303 

006303 

042703 

042767 

050367 

052767 

016701 

026127 

001004 

012767 

00C403 

0*2767 

016746 

012746 

012746 

010600 

104414 

152777 

016703 

042703 

142777 

150377 

062706 

000207 


030714 

030720 

030722 


;ML4AD 


103777 



ASL 

BIC 

074000 

163254 

163232 

103777 

163260 


BIC 

BIS 

MOV 

SWAB 

ASL 

ASL 

ASL 

BIC 

074000 

163216 

163222 


BIC 

BIS 

003777 

163210 


BIS 

163170 


14$: 

MOV 

000002 

000070 


CMP 

BNE 

MOV 

BR 

000025 

164530 


000023 

164520 

15$: 

MOV 

165166 

007526 

000002 


16$: 

MOV 

MOV 

MOV 

MOV 

TRAP 

000040 

165142 

177770 

164560 


BISB 

MOV 

BIC 

000007 

164536 

000006 

164542 


BICB 

BISB 

ADD 

RTS 


INITIALIZATION CODE SECTION 
R3 

#103777,R3 

#74000 AST. ARR 

R3.LST.ARR 

0P.NUM.ARR,R3 

R3 

R3 

R3 

R3 

#103777,P3 

#74000, LST.BLK 

R3.LST.BU 

#3r 77, LST.BLK 

PTBL.PTR.R1 

2(R1),#70 

15$ 

#25,LST.DUT.REG 

16S 

#23,LST.DUT .REG 
ML.LUN.-CSP) 

#EMT.17.-(SP) 

#2,-(SP) 

SP.RO 

14 

#40.8ML.REG+40 

ML.DUT.R3, 

#1 77776, R3 

#7,BML.REG+40 

R3.8ML.REG+40 

#6,SP 

PC 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


4693 


4694 

4697 


4699 


; SP,* 


4589 

4567 


Routine Size: 274 words 
Maximum stack depth per invocation: 


7 words 


004767 176730 

104411 

000207 


LS1NIT: :JSR 
TRAP 
RTS 


.S8TTL LSINIT INITIALIZATION CODE SECTION 


PC,LINIT 
11 
PC 


4701 


I 


CZMLADO ML*11 LOGIC TEST MACRO Ml 11 3 30-MAA-82 11:1* 

LtINIT INITIALIZATION CODE SECTION 



8106 

8107 

8^08 

8109 

8110 

8115 

8116 
8117 


; ML 4 AO 

; INITIALIZATION CODE SECTION 

; Routine Size: A words 

; Maximum stack depth per invocation: 0 words 


SCO 0190 


29-Mar-1982 16:23:04 TOP 
29-M«r-1982 16:21:03 PA: 


4704 !<BLF/PAGE> 


A LA 


CZMLADO ML-11 LOGIC TEST MACRO Hll 13 30-NAR-8 2 11:18 

LSINIT INITIALIZATION CODE SECTION 


SEQ 0191 


8119 

8120 
8121 
8122 

8123 

81 24 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 

8133 

8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 

8142 

8143 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 
8161 
8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 


;ML4AD 


4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 


TEST CODE SECTION 
XS8TTL ‘TEST CODE SECTION' 


BGNTST; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.BLI .4 (53) 


TEST NUMBER: TST 1 
TEST NAME: 


MASS BUS READY TEST 


TEST DESCRIPTION: 

TEST THE RH CONTROLLER FOR EXI STANCE 
BY: 

1. WRITTING ONES TO THE RH CS2 REGISTER 
RESULTING IN A MASS BUS CLEAR 

2. THEN READ THE CS2 REGISTER FOR CLEAR DATA 


local 

DODU.FLG; 

DODU FLG - ZERO; 

8GNS0B; 

CLR.MBUS; 

MLCSl = ZEROES; 

MLCS2 = Xo'177?70'; 

DELAY (ONE.US); 

If ((.MLCS2) and (Xo* 177670')) neq ZERO 
then 

begin 

ERRDF (119, RH ERROR, DUMPER) : 

PRINTS (THR FMT, REG.17, FNC.23, PHR.4); 

DODU.FLG = ONE; 

end; 

ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


JDROP UNIT FLAG 

.'CLEAR THE DROP UNIT FLAG 


•CLEAR OUT CS1 

•LOAD CS2 WITH ONES AND FORCE A MBUS CLEAR 


.•SEE IF CS2 GOT CLEARED 
.•REPORT ERROR IF NOT CLEARED 


!DROP THE UNIT IF DODU.FLG IS SET 


j 


CZMLADO ML-1 1 LOGIC TEST MACRO HIT! 3 

LSINIT INITIALIZATION CODE SECTION 


30-MAR-82 11:18 


K 15 
PAGE 209 


8175 

8176 

8177 

8178 

8179 

8183 030724 

8184 030730 

8185 030732 

8186 030734 

8187 030736 

8188 030744 

8189 030750 

8190 030754 

8191 030762 

8192 030766 

8193 030772 

8194 031000 

8195 031004 

8196 031006 

8197 031012 

8198 031014 

8199 031016 

8200 031020 

8201 031022 

8202 031024 

8203 031026 

8204 031034 

8205 031036 

8206 031040 

8207 031042 

8208 031044 

8209 031046 

8210 031052 

8211 031056 

8212 031062 

8213 031066 

8214 031072 

8215 031074 

8216 031076 

8217 031102 

8218 031106 

8219 031110 

8220 031112 

8221 031114 

8222 031116 

8223 031120 

8224 031124 

8225 031126 

8226 031130 

8227 031132 

8228 
8229 


;ML4AD 


004167 

005746 

005002 

104402 

152777 

016701 

042701 

142777 

150177 

005077 

012777 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

032777 

001424 

104455 

000167 

013302 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012702 

062706 

104467 

006000 

103710 

005302 

001U04 

016700 

104451 

104444 

005726 

000207 


153610 


000040 

165062 

177770 

000007 

164456 

164412 

177770 

000001 

151104 


164500 


164462 


164444 


177670 


011676 

012464 

012642 

010256 

000004 


000001 

000012 


164704 


.S8TTL 

JSR 

TST 

CLR 

TRAP 

BISS 

MOV 

BiC 

BICB 

BISB 

CLR 

MOV 


TEST CODE SECTION 


ST1 TEST CODE SECTION 

R1.SSAVE2 

-(SP) 

R 2 
2 

#40,9ML.REG+40 

ML.DUT.R1 

#177776,R1 

#7,8ML.REG*40 

R1,aML.REG+40 

3ML.REG 

#-10,dML.REG+40 


2$: 

BEO 

5$ 


MOV 

LSDLY.R1 


BEO 

4$ 

3$: 

CLR 

<SP> 


DEC 

R1 


8NE 

3S 

4$: 

DEC 

RO 


BR 

2S 

5$: 

BIT 

#-110,8ML.REG+40 


BEO 

6$ 


TRAP 

55 


.WORD 

167 


.WORD 

RH. ERROR 


.WORD 

DUMPER 


MOV 

#PHR.4.-(SP) 


MOV 

#FNC.23,-(SP) 


MOV 

#REG.17,-(SP) 


MOV 

#THR.FMT,-(SP) 


MOV 

#4,-<SP> 


MOV 

SP.RO 


TRAP 

14 


MOV 

#1.R2 


ADD 

#12,SP 

6$: 

TRAP 

67 


ROR 

RO 


BLO 

1$ 


DEC 

R2 


BNE 

7$ 


MOV 

ML.LUN.RO 


TRAP 

51 


TRAP 

44 

7$: 

TST 

(SP)* 


RTS 

PC 


Routine Size: 68 words 


SEO 0192 



CZMLADO Ml-11 LOOK TEST 
$T1 TEST CODE SECTION 


MACRO Mil 13 30-MAR-82 11:18 PAGE ^ 10* 


SEO 0193 


8231 

8232 

8233 

8234 

8239 

8240 

8244 

8245 

8249 

8250 

8251 

8252 

8253 

8254 

8255 

8256 

8257 
8262 

8263 

8264 


031134 

031134 004767 177564 
031140 104466 
031142 006000 
031144 103773 

031146 000207 


4754 !<BLF/PAGE> 


;M14AD 


TEST CODE SECTION 


; Maximal stack depth per invocation: 9 words 


.SBTTL T1 TEST CODE SECTION 

T1 :: 

IS: JSR PC,$T1 

TRAP 66 

ROR RO 

BIO 1$ 

RTS PC 

; Routine Size: 6 words . 

; Maximum stack depth per invocation: 0 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


4751 


CZHIADO Ml-11 LOGIC TEST 
T1 TEST CODE SECTION 


M 15 

MACRO nil 13 30-MAR-82 11:18 PAGE 211 


SEQ 0194 


8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 

8280 
8281 
8282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

8294 

8295 

8296 

8297 

8298 

8299 

8300 

8301 

8302 

8303 

8304 

8305 

8306 

8307 

8308 

8309 

8310 

8311 

8312 

8313 

8314 

8315 

8316 

8317 

8318 

8319 

8320 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI.4 (54) 


4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 


BGNTST; 

+ TEST NUMBER: 


TEST NAME: 


TST 2 

MASS BUS HANDSHAKE TEST 


TEST ^gj^jJJss^BUS TO UNIBUS COMMUNICATIONS 
VIA THE CONTROL BUS BY: 

1. READING RH AND DRIVE REGISTERS AND 
TEST THE NON EXISTANT DRIVE 'NED' 
BIT 


local 

SAVE, 

DODU.FLG; 

CLR THRESHOLD; 

DOD0.FLG = ZERO; 

incr REG SEL from 0 to .LST.DUT.REG do 
begin 
BGNSUB; 

CLR MBUS; 

SAVE = ..ML REG C.REG.SEL, REGISTER.ADD3; 
DELAY (ONE .OS); 

if .NED IS.SET 
then 

be^in 


v.^ THRESHOLD; 

ERR&F (120, RH ERROR. DUMPER); _ „ iiRR Ckir 

PRINTB (FIV.FMT, WRD 62. PHR 5. WRD 12. WRD.52, FNC.6); 
PRINTS (FMT 11, .ML REG C.REG.SEL, REGISTER.ADD3); 
DODU.FLG = ONE; 
end; 


•TEMPORARY SAVE LOCATION 
•DROP UNIT FLAG 

•CLEAR ERROR PRINT THRESHOLD 

•TEST ALL PRESENT RH REGISTERS 

! START OF SCOPE LOOP 

fREAD THE REGISTER 
•DELAY ONE MICRO SECOND 

•DID READ CAUSE THE NED BIT TO SET 

•REPORT AN ERROR IF SET 
•COMPARE ERROR PRINT THRESHOLD 


ENDSU8; 

end; 

if .DODU.FLG IS.SET 
then 


•END OF SCOPE LOOP 


begin 

DODU 


DOCLN; 
end; 


(.Ml.LUN); 


CZMLADO ML-11 LOGIC TEST 
Tl TEST CODE SECTION 


MACRO Mil 13 


H 15 

30-MAR-82 11:18 PAGE 212 


SEQ 0195 


8322 

8323 

8324 

8325 

8329 

8330 

8334 

8335 

8336 

8337 

8338 

8339 

8340 
83*1 
83*2 

8343 

8344 

8345 

8346 

8347 

8348 

8349 

8350 

8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 

8366 

8367 

8368 

8369 

8370 

8371 

8372 

8373 

8374 

8375 

8376 


;ML4AD 


031150 

031154 

031156 

031162 

031164 

031170 

031172 

031174 

031176 

031200 

031202 

031204 

031206 

031210 

031216 

031222 

031226 

031234 

031240 

031246 

031252 

031254 

031260 

031262 

031266 

031270 

031272 

031274 

031276 

031304 

031306 

031312 

031320 

031322 

031324 

031326 

031330 

031332 

031336 

031342 

031346 

031352 

031356 


004167 

024646 

005067 

005001 

016746 

005002 

000517 

010200 

006300 

006300 

006300 

010003 

104402 

152777 

016705 

042705 

142777 

150577 

017366 

012704 

001411 

016705 

001404 

005066 

005305 

001374 

005304 

000766 

032777 

001446 

005267 

026767 

003043 

104455 

000170 

013302 

026302 

012746 

012746 

012746 

012746 

012746 

012746 


TEST CODE SECTION 
ENDTST; 

153436 SI 

164214 

164166 


000040 164226 

164610 

177770 

000007 164210 
164204 

015404 000002 
000001 

150636 

000004 


010000 164140 6$: 
164064 

164060 164060 


012226 

011310 

010650 

011714 

011432 

010304 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI .4 (54) 


.SBTTL ST2 TEST CODE SECTION 
JSR R1.SSAVE5 

CMP -(SP).-(SP) 

CLR P.CNT 

CLR R1 

MOV LST.DUT. REG, -(SP) 

CLR R2 

BR 9$ 

MOV R2,R0 

ASL RO 

ASL RO 

ASL RO 

MOV R0,R3 

TRAP 2 

BIS8 #40,8ML.REG+40 

MOV ML.DUT.R5 

BIC #1 77770, R5 

81 CB #7,8ML.REG*40 

BISB R5.BML.REG+40 

MOV BML.REG(R3),2(SP) 

MOV #1 ,R4 

BEQ 6$ 

MOV L$DLY,R5 

BEQ 5$ 

CLR 4 (SP) 

DEC R5 

8NE 4$ 

DEC R4 

BR 3S 

BIT #1 0000 , BNL . REG+40 

BEQ 7$ 

INC P.CNT 

CMP P.CNT,LIMIT 

BGT 8$ 

TRAP 55 

.WORD 170 

.WORD RH. ERROR 

.WORD DUMPER 

MOV #FNC.6»-(SP) 

MOV #WRD.5|,-(SP> 

MOV #WRD.12,-(SP) 

MOV #PHR.5.-(SP) 

MOV #WRD.62,-<SP) 

MOV *F IV.FHT.-(SP) 


; DODU.FLG 
; REG.SEL 
; REG.SEL,* 


4775 

4778 

4780 


♦.SAVE 

*,$$TMP2 

*,$STMP1 

SSTMP 

SSTMP1 

SSTMP2 


4789 


am ADO ML-1 I LOGIC TEST 
$T2 TEST CODE SECTION 


B 16 

MACRO Will 3 30-MAR-82 11:18 PAGE 213 


SEG 0196 


8378 

8379 

8380 

8381 
3382 

8383 

8384 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 

8399 

8400 

8401 

8402 

8403 

8404 

8405 

8406 

8411 

8412 

8416 

8417 

8421 

8422 

8423 

8424 

8425 

8426 

8427 

8428 

8429 





; ML 4 AO 






9 


TEST CODE SECTION 

031362 

012746 

000006 


MOV 

#6.-(SP> 

031366 

010600 



MOV 

SP,R0 

031370 

104414 



TRAP 

1 4 

031372 

016316 

015404 


MOV 

ML.REG(R3),(SP) 

031376 

012746 

007170 


MOV 

fFWT.1 1.-<SP> 

031402 

012746 

000002 


MOV 

#2,-<SP> 

031406 

010600 



MOV 

SP,R0 

031410 

104414 



TRAP 

1 4 

031412 

012701 

000001 


MOV 

f U*L 

031416 

062706 

000022 


ADD 

#22, SP 

031422 

104467 


7$: 

TRAP 

67 

031424 

006000 



ROR 

RO 

031426 

103667 



8L0 

2$ 

031430 

005202 


8$: 

INC 

R2 

031432 

020216 


9$: 

CMP 

R2, (SP) 

031434 

003657 



BLE 

1$ 

031436 

005301 



DEC 

R1 

031440 

001004 



BNE 

10$ 

031442 

016700 

164362 


MOV 

ML.LUN,R0 

031446 

104451 



TRAP 

51 

031450 

104444 



TRAP 

44 

031452 

062706 

000006 

10$: 

ADD 

#6.SP 

031456 

000207 



RTS 

PC 




; Routine Size: 

u . * 

100 words 

j . . i. _ * _ _ . i 


; Maximum stack depth per Invocation: 





.S8TTL 

T2 TEST COOE SECTION 

031460 


T2: : 


PC.ST2 

031460 

004767 177464 

1$: 

JSR 

031464 

104466 


TRAP 

66 

031466 

006000 


ROR 

RO 

031470 

103773 


BIO 

1$ 

031472 

000207 


RTS 

PC 


; Routine Size: 6 words 
; Maxima* stack depth per Invocation: 


SP,* 


; SP,* 

; *,D0DU.FLG 

9 

9 

; REG.SEL 
; REG.SEL,* 

; DODU.FLG 


18 words 


0 words 


29-Mar- 1982 16:23:04 
29-War-1982 16:21:03 


TOPS 

PA:< 


4793 

4794 
4789 

4795 

4780 

4800 

4803 

4753 


4805 


f 



CZMLADO ML-11 LOGIC TEST 
T2 TEST COOE SECTION 


C 16 

MACRO Ml 113 30-MAR-82 11:18 PAGE 214 


SEO 0197 


8438 

8439 

8440 ; 4808 


!<8LF/PAGE> 


CZMLADO ML-11 LOGIC TEST 
T2 TEST CODE SECTION 


D 16 

MACRO Nil 13 30-MAR-82 11:18 PAGE 215 


SEQ 0198 


8442 

8443 

8444 

8445 

8446 

8447 

8448 

8449 

8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 

8463 

8464 

8465 

8466 

8467 

8468 

8469 

8470 

8471 

8472 

8473 

8474 

8475 

8476 

8477 

8478 

8479 

8480 

8481 

8482 

8483 

8484 

8485 

8486 

8487 

8488 

8489 

8490 

8491 

8495 

8496 


ML4AD 


TEST CODE SECTION 


4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 


8GNTST; 


*TEST NUMBER: 
TEST NAME: 


TST 3 

DRIVE PRESENT TEST 


TEST DESCRIPTION: 

THIS TEST READS THE DESIRED SECTOR 
ADDRESS REGISTER OF THE DRIVE UNDER 
TEST. DELAYS 100 US. THEN 
READS THE NED BIT OF MLCS2 

IF SET, AN ERROR MESSAGE IS 
PRINTED AND THE UNIT IS DROPPED 


local 

DODU.FLG, 

SAVE; 

DODU FLG = ZERO; 

BGNSOB; 

CLR.MBUS; 

SAVE = .MLDA; 

DELAY (ONE.US); 

if .NED IS.SET 
then 

ErSd? (1. ASYNC, DUMPER); 
PRINTS (ONE FMT, PHR.3); 
DODU.FLG = ONE; 
end; 

ENDSUB; 

if .D0DU.FL6 IS.SET 
then 

begin 

DODU ( .ML.LUN) ; 

DOCLN; 

end; 

ENDTST; 


29-Mar-1982 16:23:04 T0°S-20 Bliss-16 V2C212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (55) 


!DROP UNIT FLAG 
.'TEMP STORAGE LOCATION 

{READ A DRIVE REGISTER 
•DELAY 1 US 

•TEST THE NED BIT 

•IF SET THEN REPORT ERROR AND SET D0DU.FL6 


•DROP THIS UNIT IF DODU IS.SET 


SBTTL >T3 TEST CODE SECTION 


CZMIADO HL-11 L06IC TEST 
H3 TEST CODE SECTION 


MACRO HI 113 30-MAR-82 11:18 


E 16 
PACE 216 


8498 

8499 

8500 

8504 031474 

8505 031500 

8506 031502 

8507 031504 

8508 031506 

8509 0315(4 

8510 031520 

8511 031524 
851c 031532 

8513 031536 

8514 031542 

8515 031546 

8516 031550 

8517 031554 

8518 031556 

8519 031560 

8520 031562 

8521 031564 

8522 031566 

8523 031570 

8524 031576 

8525 031600 

8526 031602 

8527 031604 

8528 031606 

8529 031610 

8530 031614 

8531 031620 

8532 031624 

8533 031626 

8534 031630 

8535 031634 

8536 031640 

8537 031642 

8538 031644 

8539 031646 

8540 031650 

8541 031652 

8542 031656 

8543 031660 

8544 031662 

8545 031664 

8546 

8547 

8548 


004167 

005746 

005003 

104402 

152777 

016702 

042702 

142777 

150277 

017704 

012701 

001410 

016702 

001403 

C05016 

005302 

001375 

005301 

000767 

032777 

001420 

104455 

000001 

012706 

026302 

012746 

012746 

012746 

010600 

104414 

012703 

062706 

104467 

006000 

103717 

005303 

001004 

016700 

104451 

104444 

005726 

000207 


; Ml 4 AD 


153072 


ST3: 

JSR 

TST 

CLR 



1$: 

TRAP 

000040 

163730 


BIS8 

164312 



MOV 

177770 



BIC 

000007 

163712 


BICB 

163706 



BISB 

163672 



MOV 

000001 



MOV 


2$: 

BEQ 

150342 



MOV 



BEQ 



3$: 

CIR 




DEC 




BNE 



4$: 

DEC 




BR 

010000 

163646 

5$: 

BIT 

BEQ 

TRAP 


TEST CODE SECTION 

R1.SSAVE4 

-(SP) 

R3 

2 

#40,dML.REG+40 
ML.DUT.R2 
#1 77776, R2 
#7,#HL.REG+40 
R2,aMUREG+40 
8ML.REG+30,R4 
#1 ,R1 
5$ 

LSDLY.R2 

4$ 

(SP) 

R2 

3$ 

R1 

2 $ 

#10000,aML.REG+40 

6 $ 

55 


DODU.FLG 


*,SAVE 

*,$$TMP2 

*,SSTMP1 

SSTMP 

SSTMP1 

88THP2 




.WORD 

1 




.WORD 

ASYNC 




.WORD 

DUMPER 


011644 


MOV 

#PHR.3,-(SP) 

• 

010240 


MOV 

#ONE.FMT.-(SP) 


000002 


MOV 

#2,-(SP) 




MOV 

SP,RO 

• 

• 



TRAP 

14 


000001 


MOV 

#1,R3 

• 

0 

000006 


ADD 

#6,SP 

• 

0 


6$: 

TRAP 

67 

• 

0 



ROR 

RO 




910 

IS 




DEC 

R3 

« 

0 



BNE 

78 


164152 


MOV 

ML.LUN,RO 

w 



TRAP 

51 




TRAP 

44 



7$: 

TST 

(SP)* 

i 



RTS 

PC 



; DODU.FLG 


Routine Size: 61 words . 

Maximum stack depth per invocation: 9 words 


SEQ 0199 

29-Mar- 1982 16:23:04 TOPS ! 

29-Mar-1982 16:21:03 PA:< 

4807 

4832 

4833 

4835 

4836 


4838 

4841 

4842 

4843 
4840 

4844 

4848 

4851 

4807 


t 


CZMLADO Ml-11 LOGIC TEST 
$T3 TEST CODE SECTION 


f 16 
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SEQ 0200 


8554 ; ML 4 AD 


8555 ; 


8556 


8560 


8561 


8565 031666 


8566 031666 

004767 

8567 031672 

104466 

8568 031674 

006000 

8569 031676 

103773 

8570 031700 

000207 

8571 


8572 


8573 


8578 


8579 


8580 ; 

4856 


29-Mar-1982 16:23:04 

TEST CODE SECTION 29-Mar-1982 16:21:03 


.S8TTL T3 TEST CODE SECTION 

T3* * 

177602 IS* * JSR PC.ST3 

TRAP 66 
ROR RO 
BLO IS 
RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


!<BLF/PAGE> 


T0PS-20 Bt ».*s-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (55) 


4853 


CZMLADO ML-11 LOGIC TEST 
T3 TEST COOE SECTION 


G 16 
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SEQ 0201 


8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 
8601 
8602 

8603 

8604 

8605 

8606 

8607 

8608 

8609 

8610 
8611 
8612 

8613 

8614 

8615 

8616 

8617 

8618 

8619 

8620 
8621 
8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 
3636 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212> 
°A:<NEALE>ML4AD.BLI .4 (56) 


4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 


BGNTST; 


* TEST NUMBER: 
TEST NAME: 


TST 4 

DRIVE SELECTION TEST 


TEST DESCRIPTION* 

THIS TEST TESTS FOR UNIQUE DRIVE SELECTION BY WRITING THE DRIVE 
UNDER TEST (DUT) DRIVE NUMBER INTO ITS DSA REG. THEN WRITING THE DRIVE 
NUMBERS OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REGISTERS 
AND READING THE DUT DSA FOR ITS DRIVE NUMBER. 

IMPLICIT INPUTS: 

ML DUT 

LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE DRIVE 
NUMBER OF THE DRIVE PRESENTLY BEING TESTED. 


local 

SAVE; 

8GNSUB; 

CLR MBUS; 

MLD* = .ML DUT; 

SAVE = .MLBA; 

if .SAVE neq .ML.DUT 
then 

begin 

ERRDF (2. INTER. DUMPER); 

PRINTS (SIX FMT, PHR 4. WRD 12, FNC, 
PRINTS (FMT.2, .ML.DOT, .SAVE. (.ML. 
EXIT.TST; 
end; 

incr DRV.SEL from 0 to 7 do 

if .DRV.SEL neq .ML.DUT 
then 

begin 

DRV NUM = .DRV.SEL; 

MLDA = .DRV SEC; 

DELAY (ONE.0S); 
end; 

DRV NUN = .ML.DUT; 

SAVE = .MLDA; 

if .SAVE neq .ML.DUT 
then 


•TEMPORARY SAVE LOCATION 


•LOAD THIS DRIVES DRIVE NO. INTO ITS DSA REG 
!READ THE REGISTER BACK 

•SEE IF DSA HAS DRIVE NUMBER 


•ERROR AND EXIT TEST IF DSA NEQ DRIVE NUM 
3, WRD.37, WRD 13, REG.6); 

DUT xor .SAVE)7; 


! WRITE DRV NO OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REG. 
•SKIP IF .DRV.SEL EQL TO THE DRIVE UNOER TEST (DUT) 

• SELECT DRIVE TO BE WRITTEN TO 
•WRITE DRIVE SEL NO. INTO ITS DSA REG 
! DELAY 1 US 

i SELECT THE DUT 
•READ ITS DSA REG 

•SEE IF WRITTING TO OTHER DRIVES CHANGE ITS VALUE 


CODE SECTION 
; NLA AO 


TEST CODE SECTION 


2 
3 

86AA 
86A5 
6 

7 

8 


ER?DF (3, ASYNC. DUNPER); „ 

PRINTS (THR FNT, FNC 3. WRD 37, WRDJ4); 

PRINT8 (FNT”1 , .NL.DOT, .SAVE); 

end; 


57 031702 

58 031706 

59 031710 
031712 
031720 
031 724 
031730 
031736 
031742 
031750 
031754 
031760 
031762 
031764 
031766 
031770 
031772 
031776 
032002 
032006 
032012 
032016 
032022 
032026 
032032 
032034 
032036 
032042 
032044 
032046 
032050 
032052 
032054 
032060 


004167 

005746 

104402 

152777 

016702 

042702 

142777 

150277 

016777 

017703 

020367 

001451 

104455 

000002 

013114 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

016716 

010302 

041602 

040316 

050216 

010346 

016746 

012746 

012746 

010600 


ENDSUB; 

ENDTST; 


152646 



012540 

010660 

011122 

012172 

010650 

011676 

010322 

000007 


163770 


163752 

006506 

000004 


163524 


163506 

163464 


.S8TTL 

JSR 

TST 

TRAP 

BISS 

NOV 

SIC 

BICB 

BISB 

NOV 

NOV 

CNP 

BEO 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

B1C 

BIC 

BIS 

NOV 

NOV 

NOV 

NOV 

NOV 


ST4 TEST CODE SECTION 
R1 ,SSAVE3 
•ISP) 

2 

#40,8NL.REG+40 
NL.DUT.R2 
#1 77776, R2 
#7,BNL.REG*40 
R2,BNL.REG+40 
NL.DUT,BNL.REG+30 
8NL.REG+30,R3 
R3,NL.DUT 
2 $ 

55 

2 

INTER 

DUNPER 

#REG.6.-(SP) 

#WRD.13,-(SP) 

#WRD.37,-(SP) 

#FN C.3.-(SP) 
#URD.l2,-<SP) 
#PHR.4,-(SP) 
#SIX.FNT,-(SP) 
#7,-<SP> 

SP,RO 

(SP) ,R2 
R3, <SP) 

R2,(SP) 

R3,-CSP) 

NL.DUT,-(SP) 
#FNT.2,-(SP> 

#4, -(Sr) 

SP, RO 




CZHLADO HL-11 LOCK TE^T 
ST4 TEST COOE SECTION 


MACRO HI 113 30-MAR-82 11:13 


8694 

8695 

8696 

8697 032072 

8698 032074 

8699 032076 

8700 032102 

8701 032104 

8702 032106 

8703 032112 

8704 032114 

8705 032116 

8706 032122 

8707 032130 

8708 032134 

8709 032140 

8710 032144 

8711 032146 

8712 032152 

8713 032154 

8714 032156 

8715 032160 

8716 032162 

8717 032164 

8718 032166 

8719 032170 

87 20 032174 

8721 032176 

8722 032202 

8723 032206 

8724 032214 

8725 032220 

8726 032224 

8727 032230 

8728 032232 

8729 032234 

8730 032236 

8731 032240 

8732 032242 

8733 032246 

8734 032252 

8735 032256 

8736 032262 

8737 032266 

8738 032270 

8739 032272 

8740 032274 

8741 032300 

8742 032304 

8743 032310 

8744 032312 

8745 032314 

8746 032320 

8747 032322 

8748 032324 


; ML 4 AD 


104414 

104463 

062706 

000513 


001425 

« 

142777 

150177 

010277 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

005202 

020227 

003744 

016702 

042702 

142777 

150277 

017703 

020367 

001433 

104455 

000003 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010316 

016746 

012746 

012746 

010600 

104414 

062706 

104467 





TRAP 




TRAP 

000030 



ADD 



BR 



It- 

CLR 

163720 


ZS: 

CM P 



BEQ 




NOV 

177770 



BIC 

000007 

163314 


BICB 

163310 



81 SB 

163274 



NOV 

000001 



NOV 


4$: 

BEQ 

147744 



NOV 




BEQ 



5$: 

CLR 




DEC 




BNE 



6$: 

DEC 




BR 



7S: 

INC 

000007 



CMP 




BLE 

163630 



NOV 

177770 



BIC 

000007 

163230 


BICB 

163224 



BISB 

163210 



NOV 

163602 



CMP 




BEQ 




TRAP 


010664 

011122 

012172 

010256 

000004 


163532 

006442 

000003 


000020 


103002 


.WORD 

.WORD 

.WORD 

HOV 

hov 

nov 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

HOV 

TRAP 

ADO 

TRAP 

ROR 

BHIS 


TEST CODE SECTION 

14 

63 

#30. SP 
9$ 

R2 

R2.NL. OUT 

7$ 

R2.R1 

#1?7770.R1 

#7.8HL.REG+40 

R1.9ML.REG+40 

R2.8NL.REG+30 

fl.RO 

7S 

LSDLY.R1 

6 $ 

(SP) 

R1 

5$ 

RO 

4$ 

R2 

R2,#7 

3$ 

HL.DUT.R2 

#177776.R2 

#7.3NL.REG + 40 

R2.8MI.REG+40 

aNL.REG+30,R3 

R3.N4.DUT 

as 

55 

3 

ASYNC 

DUMPER 

#WRD.14,-(SP) 

#WRD.37.-(SP) 

#FNC.3.-(SP> 

fTHR.FHT.-(SP) 

#4.-(SP) 

SP.RO 

14 

R3, (SP) 
HL.DUT.-(SP) 
fFNT.I.-(SP) 
#3.-<SP> 

SP.RO 

14 

#20. SP 
67 
RO 
9S 


SEQ 0203 




CZMlADO m-11 LOGIC TEST 
jSK TEST COOE SECTION 


J 16 
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; ML 4 AO 

; TEST COOE SECTION 

JMP 1$ 

9$: TST <SP>* 

RTS PC 

; Routine Size: 142 words 
; Maximum stack depth per Invocation 


.SBTTL T4 TEST CODE SECTION 


JSR 

TRAP 

ROR 

8L0 

RTS 


PC.ST4 

66 

RO 

1 $ 

PC 


; Routine Size: 6 words 
; Maximum stack depth per Invocation 


SEQ 0204 


29-Mar-l 982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


4855 


17 words 


4915 


0 words 



CZMLADO 
T4 TEST 

8790 

8791 

8792 

8793 

8794 

8795 

8796 

8797 

8798 

8799 


ML-11 LOGIC TEST 
CODE SECTION 


MACRO K11 13 30-MAR-82 11:18 PAGE 222 


SEQ 0205 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16.21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4A0.8LI .4 (57) 


4918 ! 

4919 RGNTST; 

4920 

4921 !♦♦ 

4922 ! TEST I 

4923 ! 

4924 ! TEST I 

4925 ! 

4926 ! TEST I 

4927 ! 

4928 ! 

4929 ! 

4930 ! 

4931 ! 

4932 ! 

4933 ! 

4934 ' 

4935 j IMPLI 

4936 ! 

4937 ! 

4938 ! 

4939 ! 

4940 ! 

4941 ! 

4942 • 

4943 ! — 

4944 

4945 local 


*TEST NUMBER: TST 5 

TEST NAME: READ WRITE REG ONES/ZEROES TEST 

TEST ^id re/u>S A DATA PATTERN OF ALL ONES AND ZEROES TO ALL 

OF THE MLII'S READ / WRITE REGISTERS. 

ROUTINES WRT REG AND RD.REG ACCEPT ARGUMENTS TO FURTHER SELECT ROUTINES 
WHICH ACTUALLY PERFORMS THE READING AND WRITING OF THE REGISTERS. 

THE UNIT IS DROPPED ON DETECTED ERRORS. 

IMPLICIT INPUTS: 

LOXDED A BY READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN WRITTEN 
TO THE REGISTERS (REPRESENTS GOOD DATA). 

LOXDED A Br THE READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN 
READ FROM THE REGISTER (REPRESENTS BAD DATA). 


4946 ERR.FLG, 

TST.PAT, 
index, 

DODU.FLG; 

4951 CLR.THRESHOLD; 

4952 DODO.FLG * ZERO; 

4953 TST.PAT = ONES; 

4955 incr TWICE from 0 to 1 do 

4956 begin 

4957 

4958 incr REG.SEL from 0 to 7 do 

4959 begin 

4960 BGNSUB; 

4961 CLR.HBUS; , % 

4962 WRT REG (.TST PAT, .REG SEL. index); 

4963 RD REG (.TST.PAT, .REG.SEL, ERR.FLG); 

4964 

4965 if .ERR.FLG IS.SET 

4966 then 

4967 begin 

4968 CMP THRESHOLD; 


! ERROR FLAG PASSED TO ROUTINES 
! TEST PATTERN 

.'POINTS TO REGISTER PRESENTLY BEING TESTED 
•DROP UNIT FLAG 

•CLEAR ERROR PRINT THRESHOLD 

•LOAD TEST PAT WITH ONES 

! REPEAT LOOP TWICE 

• TEST ELEVEN WRITE/READ REGISTERS 


•WRITE TO THE REGISTER 
•READ THE REGISTER 

!SEE IF READ FOUND AN ERROR 

•IF ERROR FLAG IS SET THEN ERROR AND SET DODU.FLG 
•COMPARE ERROR PRINT THRESHOLD 



CZHLADO 
T4 TEST 


ML-11 LOGIC TEST 
COOE SECTION 
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;HL4AO 


8889 

8890 

8891 

8892 

8893 

8894 

8895 

8896 

8897 

8898 

8899 

8900 


4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 
4 


TEST COOE SECTION 


29-Mar-1 982 16:23:04 
29-M»r-1982 16:21:03 


T0PS-20 Bliss-16 V2C212) 
PA:<NEAIE>HL4A0.BLI.4 (57) 


selectone .REG.SEL of 
set 

CO to 33 : 

ERRDF (4, ASYNC. DUMPER); 
C4 to 53 : 

ERRDF (4, SYNC. DUMPER); 


•SELECT WHICH MODULE FAILED 


•ASYNC MODULE FAILURE 
•SYNC MODULE FAILURE 


4 
4 
4 

A 701 » n*»s»w 

4985 DODU.FL 

4986 end; 

4987 

4988 ENDSUB; 

4989 end; 

4990 

4991 TST PAT = not . 

4992 end; 

4993 

4994 if .DODU.FLG IS.SET 

4995 then 

4996 begin 

4997 DODU (.ML.LUN); 

4998 DOCLN; 

4999 end; 

5000 

5001 


C6 t ERRDF*(4. ARR.DAT, DUMPER); 'ARRAY DATA MODULE FAILURE 
tes; 


PRINTB (SIX.FMT, PHR 4, WRD.12. FNC 5 .FNC 6. WRD 52. WJD.56); 
PRINTB (FMT 16. .ML REG C. index. REGISTER.^)}. .QT.DATA, .RD.DATA); 
DODU.FLG = ONE; 
end; 


ENDSUB; 

end; 

TST.PAT = not .TST.PAT; 
end; 


•REPEAT AGAIN WITH COMPLIMENT DATA 
!DROP THIS UNIT IF THE DODU.FLG IS.SET 


ENDTST; 


032352 004167 152214 
032356 024646 
032360 005067 163012 
032364 005004 
032366 012702 177777 
032372 005001 
032374 005003 
032376 104402 

032400 152777 000040 163036 
032406 016700 163420 
032412 042700 177770 
032416 142777 000007 163020 


.SBTTL $T5 TEST CODE SECTION 
JSR R1 .8SAVE4 

CMP -(SP).-(SP) 

CLR P.CNT 

CLR R4 

MOV #-1 .R2 

CLR R1 

CLR R3 

TRAP 2 

81 SB #40.8ML.REG+40 

MOV ML.DUT.RO 

BIC #177776,R0 

BICB #7,BML.REG*40 


DODU.FLG 
*. TST. PAT 
TWICE 
REG.SEL 


4949 

4952 

4953 
4955 

4958 

4959 

4960 


0 1 
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STS TEST CODE SECTION 


8902 




; ML 4 AD 



8903 




# 


TEST CODE SECTION 

8904 

8905 032424 

150077 

163014 



BISS 

R0.aML.REG+40 

8906 032430 

010246 




MOV 

R2,-(SP) 

8907 032432 

010346 




MOV 

R3.-(SP) 

8908 032434 

012746 

000010 



MOV 

#10. -(SP) 

8909 032440 

060616 




ADD 

SP.(SP) 

8910 032442 

004767 

172656 



JSR 

PC.WRT.REG 

8911 032446 

010216 




MOV 

R2.CSP) 

8912 032450 

010346 




MOV 

R3.-CSP) 

8913 032452 

012746 

000012 



MOV 

#12. -(SP) 

8914 032456 

060616 




ADD 

SP. (SP) 

8915 032460 

004767 

173226 



JSR 

PC.RD.REG 

8916 032464 

026627 

000012 

000001 


CMP 

12<SP).#1 

8917 032472 

001117 




BNE 

7S 

8918 032474 

005267 

162676 



INC 

P. CNT 

8919 032500 

026767 

162672 

162672 


CMP 

P.CNT, LIMIT 

8920 032506 

003403 




BLE 

3S 

8921 032510 

062706 

000012 



ADD 

#12. SP 

8922 032514 

000513 




BR 

8$ 

8923 032516 

005703 



3$: 

TST 

R3 

8924 032520 

002410 




BLT 

4$ 

8925 032522 

020327 

000003 



CMP 

R3,#3 

8926 032526 

003005 




BGT 

4$ 

8927 032530 

104455 




TRAP 

55 

8928 032532 

000004 




.WORD 

4 

8929 032534 

012706 




.WORD 

ASYNC 

8930 032536 

026302 




.WORD 

DUMPER 

8931 032540 

000425 




BR 

6$ 

8932 032542 

020327 

000004 


4$: 

CMP 

R3,#4 

8933 032546 

002410 




BLT 

5$ 

8934 032550 

020327 

000005 



CMP 

R3,#5 

8935 032554 

003005 




BGT 

5$ 

8936 032556 

104455 




TRAP 

55 

8937 032560 

000004 




.WORD 

4 

8938 032562 

012750 




.WORD 

SYNC 

8939 032564 

026302 




.WORD 

DUMPER 

8940 032566 

000412 




BR 

6$ 

8941 032570 

020327 

000006 


5$: 

CMP 

R3,#6 

8942 032574 

002407 




BLT 

6$ 

8943 032576 

020327 

000007 



CMP 

R3.#7 

8944 032602 

003004 




BGT 

6$ 

8945 032604 

104455 




TRAP 

55 

8946 032606 

000004 




.WORD 

4 

8947 032610 

013012 




.WORD 

ARR.DAT 

8948 032612 

026302 




.WORD 

DUMPER 

8949 032614 

012746 

011344 


6$: 

MOV 

#WRD.56,-(SP> 

8950 032620 

012746 

011310 



MOV 

#WRD.52.-(SP) 

8951 032624 

012746 

012226 



MOV 

#FNC.6,-(SP> 

8952 032630 

012746 

012216 



MOV 

#FNC.5.-(SP) 

8953 032634 

012746 

010650 



MOV 

#WRD.l2.-(SP> 

8954 032640 

012746 

011676 



MOV 

#PHR.4.-(SP) 

8955 032644 

012746 

010322 



MOV 

#SIX.FMT,-(SP) 

8956 032650 

012746 

000007 



MOV 

#7.-(SP> 


SEQ 0207 

29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 


TST. PAT.* 

REG.SEL.* 

4962 

INDEX.* 


TST. PAT.* 

REG.SEL.* 

4963 

ERR.FLG.* 


ERR.FLG,* 

4965 


4967 

REG.SEL 

4970 

REG.SEL.* 

4974 

REG.SEL.* 

4970 

RE6.SEL.* 

4977 

REG.SEL.* 

4970 

REG.SEL.* 



4980 


4983 


J 
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SEQ 0208 


8958 

8959 

8960 

8961 032654 

8962 032656 

8963 032660 

8964 032664 

8965 032670 

8966 032674 

8967 032676 

8968 032700 

8969 032702 

8970 032706 

8971 032712 

8972 032716 

8973 032720 

8974 032722 

8975 032726 

8976 032732 

8977 032736 

8978 032740 

8979 032742 

8980 032744 

8981 032746 

8982 032752 

8983 032754 

8984 032756 

8985 032760 

8986 032764 

8987 032766 

8988 032770 

8989 032772 

8990 032776 

8991 033000 

8992 033002 

8993 033004 

8994 

8995 

8996 

9001 

9002 

9006 

9007 

9011 033006 

9012 033006 


010600 

104414 

016716 

016746 

016600 

006300 

006300 

006300 

016046 

012746 

012746 

010600 

104414 

012704 

062706 

062706 

104467 

006000 

103615 

005203 

020327 

003611 

005102 

005201 

020127 

003603 

005304 

001004 

016700 

104451 

104444 

022626 

000207 


162466 

162460 

000036 


015404 

007436 

000004 


000001 

000030 

000012 


000007 


000001 


163032 


;ML4AD 


TEST CODE SECTION 

MOV SP,RO 

TRAP 14 

MOV RD.DATA.(SP) 

EOV WT.DATA.-(SP) 

MOV 36CSP) ,R0 

ASL RO 

ASL RO 


29-Mar-1982 16:23:04 
29-Mar-1982 18:21:03 


INDEX,* 



ASL 

RO 



MOV 

ML.REG(RO) ,-(SP) 



MOV 

#FMT.16.-(SP> 



MOV 

#4,-(SP) 



MOV 

SP,RO 

; SP,* 


TRAP 

14 



MOV 

#1 .R4 

; *,DODU.FLG 


ADD 

#30, SP 

• 

7$: 

ADD 

#12, SP 

• 

• 


TRAP 

67 

9 


ROR 

RO 



BLO 

2$ 


8$: 

INC 

R3 

; REG.SEL 


CMP 

R3,#7 

; REG.SEL,* 


SLE 

2$ 



COM 

R2 

; TST.PAT 


INC 

R1 

; TWICE 


CMP 

R1 ,*1 

; TWICE,* 


BLE 

1$ 



DEC 

R4 

; DODU.FLG 


6NE 

9S 



MOV 

ML.LUN,RO 

• 


TRAP 

51 



TRAP 

44 


9$: 

CMP 

(SP)+, <SP>* 

• 


RTS 

PC 



4985 
4967 
4959 

4986 


4997 


4916 


004767 177340 


; Routine Size: 142 words, 

; Maximum stack depth per invocation: 24 words 


.SBTTL T5 TEST CODE SECTION 
JSR PC,ST5 


4999 


D 1 
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T5 TEST CODE SECTION 


9014 

9015 

9016 

9017 033012 104466 

9018 033014 006000 

9019 033016 103773 

9020 033020 000207 

9021 

9022 

9023 


9028 


9029 

9030 ; 5002 


!<BLF/PAGE> 


; HI 4 AD 


TRAP 

ROR 

BLO 

RTS 


TEST CODE SECTION 

66 

RO 

IS 

PC 


; Routine Si 2 e: 6 words 
; Maxi nun stack depth per invocation: 


0 words 


SEO 0209 

29-Mar- 1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


1 
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SCO 0210 


9032 

9033 

9034 

9035 

9036 

9037 

9038 

9039 

9040 

9041 

9042 

9043 

9044 

9045 

9046 

9047 

9048 

9049 

9050 

9051 

9052 

9053 

9054 

9055 

9056 

9057 

9058 

9059 

9060 

9061 

9062 

9063 

9064 

9065 

9066 

9067 

9068 

9069 

9070 

9071 

9072 

9073 

9074 

9075 

9076 

9077 

9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 

9086 


; ML 4 AD 


5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 


TEST CODE SECTION 


BGNTST; 


29-Mar-1982 16:23:04 
29-*ar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212) 

PA : <NE ALE >ML4 AD. BL I. 4 (58> 


TEST NUMBER: TST 6 

TEST NAME: READ WRITE REG SHIFTING ONES/ZEROES TEST 

TEST DESCRIPTION: 

THIS TEST URITES AND READS A 
SHIFTING ONE'S AND SHIFTING ZEROE'S 
PA17ERN TO ALL THE MLII'S 
READ/WRITE REGISTERS 

ROUTINES WRT REG AND RD REG 
ACCEPT ARGUMENTS TO FURTHER 
SELECT ROUTINES WHICH ACTUALLY 
PERFORMS THE READING AND 
WRITING OF THE REGISTERS. 

THE DRIVE IS DROPPED ON DETECTED 
ERRORS. 

IMPLICIT INPUTS: 

WT DATA 

COADED BY READ REGISTER ROUTINES AND 
CONTAINS THE DATA PATTERN WRITTEN TO THE 
REGISTERS (REPRESENTS GOOD DATA). 

RD DATA 

COADED BY THE READ REGISTER ROUTINES AND 
CONTAINS THE DATA PATTERN READ FROM THE 
REGISTER (REPRESENTS BAD DATA). 


local 

ERR.FLG. 

TST.PAT, 

index. 

DODU.FLG; 

CLR THRESHOLD; 

DODO.FLG = ZERO; 

TST.PAT = ONE; 

incr SHIFT from 0 to 15 do 
begin 

incr TWICE from 0 to 1 do 
begin 


(ERROR FLAG PASSED TO ROUTINE 
(TEST PATTERN 

(POINTS TO REG PRESENTLY BEING TESTED 
(DROP UNIT FLAG 

(CLEAR ERROR PRINT THRESHOLD 

(LOAD TST.PAT WITH A 1 IN A FILED OF O' S 

(DO SHIFT 16 TIMES 

(REPEAT LOOP TWICE 


CZMLADO 
T5 TEST 

9088 

9089 

9090 

9091 

9092 

9093 

9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 

9103 

9104 

9105 

9106 

9107 

9108 

9109 

9110 

9111 

9112 

9113 

9114 

9115 

9116 

9117 

9118 

9119 

9120 

9121 

9122 

9123 

9124 

9125 

9126 

9127 

9128 

9129 

9130 

9131 

9132 

9133 

9134 

9135 

9136 

9137 

9138 
9142 


ML-11 LOGIC TEST 
CODE SECTION 
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SEO 0211 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2<212) 

29-Mar- 1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (58) 


5055 

5056 incr REG.SEl 

5057 begin 

5058 BGNSUB; 

5059 CLR.MBUI 

5060 WRT REG 

5061 RD.REG I 

5062 

5063 if .ERR. 

5064 then 

5065 beg 1 

5066 CMP. 

5067 

5068 sell 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 PRII 

5082 PRII 

5083 DODl 

5084 end 

5085 

5086 ENDSUB; 

5087 end; 

5088 

5089 TST.PAT = not .TST.PAT; 

5090 end; 

5091 

5092 TST PAT = .T$T_PAT*0NE; 

5093 end; 

5094 

5095 if .DODU.FLG IS.SET 

5096 then 

5097 begin 

5098 DODU (.ML.LUN); 

5099 DOCLN; 

5100 end; 

5101 

5102 ENDTST; 


incr REG.SEL fro» 0 to 7 do ! 

begin 
BGNSUB; 

CLR MBUS; 

URT'REG (.TST PAT, .REG SEL. index); 
RD.REG (.TST.PAT, .REGjEL, ERR.FLG); 


! TEST r LEVEN READ/WRITE REGISTERS 


if .ERR.FLG IS.SET 
then 

begin 

CMP.THRESHOLD; 

selectone .REG.SEL of 
set 


.'WRITE TO THE REGISTER 
; IREAD THE REGISTER 

•SEE IF THE READ FOUND AN ERROR 

•IF THE ERROR FLAG IS.SET THEN ERROR 
! COMPARE ERROR PRINT THRESHOLD 

•FIND WHICH MODULE FAILED 


CO to 33 : 

ERRDF (5, ASYNC, DUMPER); 

C4 to 53 : 

ERRDF (5, SYNC, DUMPER); 

C6 to 73 : 

ERRDF (5, ARR.DAT, DUMPER); 

tes; 


•ASYNC MODULE FAILURE 
1SYNC MODULE FAILURE 
•ARRAY DATA MODULE FAILURE 


PRINTS (SIX FMT, PHR 4, WRD.12, FNC 5, FNC 6, URD 52. WRD-56); 

PRINTB (FMT 16. .ML REG [.index, RESlSTER_*DD3, .OT.DATA, .RD.DATA); 

DODU.FLG = ONE; 

end; 


IREPEAT WITH A 0 IN A FIELD OF 1*S 
•SHIFT THE 1 IN THE FIELD OF 0*$ 
!DR0P THIS UNIT IF DODU.FLG IS SET 


C2HLAD0 ML-11 LOGIC TEST 
T5 TEST CODE SECTION 


G 1 
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SEQ 0212 


9144 




; ML 4 AD 



9145 




# 


TEST CODE SECTION 

9146 

9147 





.S8TTL 

ST6 TEST CODE SECTION 

9151 033022 

004167 

151564 


ST6: 

JSR 

R1.SSAVE5 

9152 033026 

024646 




CMP 

-(SP), -(SP) 

9153 033030 

005067 

162342 



CLR 

P.CNT 

9154 033034 

005005 




CLR 

R5 

9155 033036 

012703 

000001 



MOV 

#1,R3 

9156 033042 

005001 




CLR 

R1 

9157 033044 

005002 



1*: 

CLR 

R2 

9158 033046 

0C5004 



2$: 

CLR 

R4 

9159 033050 

104402 



3$: 

TRAP 

2 

9160 033052 

152777 

000040 

162364 


BIS8 

#40,BML.REG*40 

9161 033060 

016700 

162746 



MOV 

ML.DUT.RO 

9162 033064 

042700 

177770 



BIC 

#1 77770, RO 

9163 033070 

142777 

000007 

162346 


BICB 

#7,8ML.REG+40 

9164 033076 

150077 

162342 



BISB 

RO.iML.REG+40 

9165 033102 

010346 




MOV 

R3,-(SP) 

9166 033104 

010446 




MOV 

R4.-(SP) 

9167 033106 

012746 

000010 



MOV 

#10, -(SP) 

9168 033112 

060616 




ADD 

SP.(SP) 

9169 033114 

004767 

172204 



JSR 

PC.WRT.REG 

9170 033120 

010316 




MOV 

R3.CSP) 

9171 033122 

010446 




MOV 

R4,-(SP) 

9172 033124 

012746 

000012 



MOV 

#12, -(SP) 

9173 033130 

060616 




ADD 

SP,CSP> 

9174 033132 

004767 

172554 



JSR 

PC.RD.REG 

9175 033136 

026627 

000012 

000001 


CMP 

12CSP) ,#1 

9176 033144 

001117 




BNE 

8$ 

9177 033146 

005267 

162224 



INC 

P.CNT 

9178 033152 

026767 

162220 

162220 


CMP 

P.CNT, LIMIT 

9179 033160 

003403 




BLE 

4$ 

9180 033162 

062706 

000012 



ADD 

#12, SP 

9181 033166 

000513 




BR 

9$ 

9182 033170 

005704 



4$: 

TST 

R4 

9183 033172 

002410 




BLT 

5S 

9184 033174 

020427 

000003 



CMP 

R4,#3 

9185 033200 

003005 




BGT 

5S 

9186 033202 

104455 




TRAP 

55 

9187 033204 

000005 




.WORD 

5 

9188 033206 

012706 




.WORD 

ASVNC 

9189 033210 

026302 




.WORD 

DUMPER 

9190 033212 

000425 




BR 

7 $ 

9191 033214 

020427 

000004 


5$: 

CMP 

R4,#4 

9192 033220 

002410 




BLT 

6$ 

9193 033222 

020427 

000005 



CMP 

R4,#5 

9194 033226 

003005 




BGT 

6$ 

9195 033230 

104455 




TRAP 

55 

9196 033232 

000005 




.WORD 

5 

9197 033234 

012750 




.WORD 

SYNC 

9198 033236 

026302 




.WORD 

DUMPER 


29-Mar- -982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


DODU.FLG 

*.TST.PAT 

SHIFT 

TWICE 

REG.SEL 


5001 


5044 

5047 

5048 
5050 
5053 

5056 

5057 

5058 


TST.PAT,* 5060 

REG.SEL,* 

INDEX,* 

TST.PAT,* 5061 

REG.SEL,* 

ERR.FLG,* 

ERR.FLG,* 5063 

5065 

REG.SEL 5068 


; REG.SEL.* 

; 5072 

5068 

; REG.SEL.* 

; REG.SEL, * 

5075 
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SEO 0213 


9200 



;ML4AD 




9201 



9 


TEST CODE SECTION 


9202 







9203 033240 

000412 



BR 

7$ 

; 

9204 033242 

020427 

000006 

6$: 

CMP 

R4,#6 

; RC* C EL,» 

9205 033246 

002407 



BIT 

7$ 


9206 033250 

020427 

000007 


CMP 

R4.#7 

; REG.SEL,* 

9207 033254 

003004 



BGT 

7$ 


9208 033256 

104455 



TRAP 

55 

• 

9 

9209 033260 

000005 



.WORD 

5 


9210 033262 

013012 



.WORD 

ARR.DAT 


9211 033264 

026302 



.WORD 

DUMPER 


9212 033266 

012746 

011344 

7$: 

MOV 

#WRD.56,-(SP> 

9 

9213 033272 

012746 

011310 


MOV 

#WRD.52,-(SP> 


9214 033276 

012746 

012226 


MOV 

#FNC.6,-(SP> 


9215 033302 

012746 

012216 


MOV 

#FNC.5.-CSP> 


9216 033306 

012746 

010650 


MOV 

#WRD.12.-(SP> 


9217 033312 

012746 

011676 


MOV 

#PHR.4,-(SP> 


9218 033316 

012746 

010322 


MOV 

#SIX.FMT,-(SP> 


9219 033322 

012746 

000007 


MOV 

#7,-(SP> 


9220 033326 

010600 



MOV 

SP. RO 

; SP,* 

9221 033330 

104414 



TRAP 

14 


9222 033332 

016716 

162014 


MOV 

RD.DATA.(SP) 


9223 033336 

016746 

162006 


MOV 

WT.DATA.-(SP) 


9224 033342 

016600 

000036 


MOV 

36<SP),R0 

; INDEX.* 

9225 033346 

006300 



ASL 

RO 


9226 033350 

006300 



ASL 

RO 


9227 033352 

006300 



ASL 

RO 


9228 033354 

016046 

015404 


MOV 

ML.REG(RO) ,-(SP) 


9229 033360 

012746 

007436 


MOV 

#FMT.16.-(SP> 


9230 033364 

012746 

000004 


MOV 

#4 .-(SP) 


9231 033370 

010600 



MOV 

SP,RO 

; SP,* 

9232 033372 

104414 



TRAP 

14 


9233 033374 

012705 

000001 


MOV 

#1.R5 w 

; *,DODU.FLG 

9234 033400 

062706 

000030 


ADD 

#30, SP 

9 

9235 033404 

062706 

000012 

8$: 

ADD 

#12. SP 

9 

9236 033410 

104467 



TRAP 

67 

9 

9237 033412 

006000 



ROR 

RO 


9238 033414 

103615 



BLO 

3$ 


9239 033416 

005204 


9$: 

INC 

R4 

; REG.SEL 

9240 033420 

020427 

000007 


CMP 

R4,*7 

; REG.SEL.* 

9241 033424 

003611 



BLE 

3$ 


9242 033426 

005103 



COM 

R3 

; TST.PAT 

9243 033430 

005202 



INC 

R2 

; TWICE 

9244 033432 

020227 

000001 


CMP 

R2.#1 

; TWICE.* 

9245 033436 

003603 



BLE 

2$ 


9246 033440 

006303 



ASL 

R3 

; TST.PAT 

9247 033442 

005201 



INC 

R1 

; SHIFT 

9248 033444 

020127 

000017 


CMP 

R1.#17 

; SHIFT,* 

9249 033450 

003002 



BGT 

ioi 


9250 033452 

000167 

177366 


JMP 

1$ 


9251 033456 

005305 


10$: 

DEC 

R5 

; DODU.FLG 

9252 033460 

001004 



BNE 

11$ 


9253 033462 

016700 

162342 


MOV 

ML.LUN.RO 

9 

9254 033466 

104451 



TRAP 

51 



29-M*r-1982 16:23:04 
29-M«r—1982 16:21:03 


TOPS 
PA : < 

S068 

5078 

5081 


5082 


5083 
5065 
5057 

5084 


5056 


5089 

5053 


5092 

5050 


5095 

5098 



SEO 02 14 


29-Mar-1982 16:23:04 TOPS 
29-«ar-1982 16:21:03 PA:< 


5001 


25 words 


5100 j 


0 words 
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J 1 

MACRO Ml 113 30-MAR-82 11:18 PAGE 232 


SEQ 0215 


9207 

9298 

9299 

9300 

9301 

9302 

9303 

9304 

9305 

9306 

930 7 

9308 

9309 

9310 

9311 

9312 

9313 

9314 

9315 

9316 

9317 

9318 

9319 

9320 

9321 

9322 

9323 

9324 

9325 

9326 

9327 

9328 

9329 

9330 

9331 

9332 

9333 

9334 

9335 

9336 

9337 

9338 

9339 

9340 

9341 

9342 

9343 

9344 

9345 

9346 

9347 

9348 

9349 

9350 

9351 


ML4AD 


5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 

5155 

5156 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


BGNTST; 


+ TEST NUMBER: 
TEST NAME: 


TST 7 

REGISTER INITIALIZATION TEST 


TEST DESCRIPTION: „ _ 

THIS TEST TESTS THE ABILITY OF 
ALL ACCESSIBLE MLlI REGISTERS 
TO CLEAR OUT REGISTER DATA OF 
ONE'S AND ZEROES PATTERN. 

ROUTINE WRT REG WRITES A 
PATTERN TO THE SELECTED REGISTER. 

A MASS BUS CLEAR IS DONE. 

THEN ROUTINE RD REG READS THE 
SELECTED REGISTER FOR CLEARED DATA 
THE DRIVE IS DROPPED ON DETECTED ERRORS. 

THIS TEST WILL ALSO READ THE 
DRIVE TYPE REGISTER FOR ITS 
INITIAL REGISTER VALUE. 

IMPLICIT INPUTS: . _ 

THIS FLAG IS NEEDED DUE TO THE UNIQUE 
MANNER IN WHICH THESE REGISTERS 
MUST BE READ. 

RD DATA 

LOADED BY THE READ REGISTER ROUTINE 
AND CONTAINS THE DATA PATTERN READ FROM 
THE REGISTER (REPRESENTS BAD DATA). 

DRIVE TYPE 

LOADED DURING THE INITIALIZATION CODE AND 
STORES THE EXPECTED CONTENTS OF THE DRIVE 
TYPE REGISTER. 


T0PS-20 Bliss-16 V2<2 12) 
PA:<NEALE>ML4AD.8LI .4 (59) 


local 

TST PAT, 
ERR.FLG, 
index, 

CLR DATA, 

SAVF, 

DODU.FLG; 

CLR.THRESHOLD; 


! TEST PATTERN 

! ERROR FLAG PASSED TO ROUTINE 
[POINTS TO REG PRESENTLY BEING TESTED 
.'STORES CALCULATED REGISTER CLEAR DATA 
.'TEMPORARY STORAGE LOCATION 
•DROP UNIT FLAG 

[CLEAR ERROR PRINT THRESHOLD 


CZMLADO 
T6 TEST 


ML-11 LOGIC TEST 
CODE SECTION 


K 1 
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SEO 0216 


9353 

9354 

9355 

9356 

9357 

9358 

9359 

9360 

9361 

9362 

9363 

9364 

9365 

9366 

9367 

9368 

9369 

9370 

9371 

9372 

9373 

9374 

9375 

9376 

9377 

9378 

9379 

9380 

9381 

9382 

9383 

9384 

9385 

9386 

9387 

9388 

9389 

9390 

9391 

9392 

9393 

9394 

9395 

9396 

9397 

9398 

9399 

9400 

9401 

9402 

9403 

9404 

9405 

9406 

9407 


ML4AD 


5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 


TEST CODE SECTION 

ML REG C19. FORCE.HIJ = Xo’177777*; 

DOBu FLG = ZERO; 

TST.PAT = ONES; 

incr TWICE from 0 to 1 do 
begin 

incr REG.SEL from 0 to 10 do 
begin 
BGNSU8; 
r LR miss ’ 

WRT'REG (.TST.PAT, .REG SEL, index); 
CLR'DATA = (.Rl) or (.IGNORE); 
CLR”MBUS‘ 

RD.REG (tCLR.DATA, .REG.SEL. ERR.FLG); 

if .ERR.FLG IS.SET 
then 

begin 

CMP.THRESHOLD; 

selectone .REG.SEL of 
set 

CO. 1, 2. 3. 9, 103 : 

ERRDF (6, ASYNC. DUMPER); 

C4, 5, 83 : 

ERRDF (6, SYNC, DUMPER); 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.8LI .4 (59) 


!CLR DATA FOR MLPD IS ONES 
! BACKGROUND PATTERN 
.'REPEAT LOOP TWICE 

! TEST THIRTEEN REGISTERS 

•WRITE REGISTER WITH BACKGROUND 
•CALCULATE THE CLEARED DATA PATTERN 
•CLEAR THE REGISTER 

!READ THE REGISTER FOR THE CLEARED DATA PAT 
.'SEE IF READ FOUND AN ERROR 

!IF ERROR FLAG IS SET THEN ERROR AND SET DODU.FLG 
.'COMPARE ERROR PRINT THRESHOLD 

•FIND WHICH MODULE FAILED 

•ASYNC MODULE FAILURE 
•SYNC MODULE FAILURE 


C6 ^RRDF’te. ARR.DAT , DUMPER); ! ARRAY DATA MODULE 
tes; 

PRINTS (FIV.FMT, PHR 4. WRD.12, WRD 52 FNC 23. WRD 56); 

PRINTB (FMT 16. .ML REG [.index, REGISTER.ABDJ, .CLR.DATA, .RDJJATA); 

DODU.FLG = ONE; 

end; 


ENDSUB; 

end; 


TST.PAT = not 
end; 


TST.PAT; 

ML .REG C19, FORCE.HI3 = ZEROES; 


! REPEAT WITH COMPLIMENT BACKGROUND PAT 
•RESTORE MLPD FORCED.HI 


NOW TEST THE DRIVE TYPE REGISTER 



czhlado 

T6 TEST 

9409 

9410 

9411 

9412 

9413 

9414 

9415 

9416 

9417 

9418 

9419 

9420 

9421 

9422 

9423 

9424 

9425 

9426 

9427 

9431 

9432 

9436 

9437 

9438 

9439 

9440 

9441 

9442 

9443 

9444 

9445 

9446 

9447 

9448 

9449 

9450 

9451 

9452 
°453 

9454 

9455 

9456 

9457 

9458 

9459 

9460 

9461 

9462 
94$3 


L 1 
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CODE SECTION 





■ML 4 AD 




29-Mar-1982 

16:23:04 TOPS-20 Bliss-16 V2(212) 

9 


TEST CODE SECTION 


29-Mar-1982 

16:21:03 PA:<N£ALE>ML4AD.BLI .4 (59) 


5209 

if .MLDT neq .DRIVE. 

TYPE 

! COMPARE REG 

CONTENTS TO CALCULATED VALUE 


5210 

then 





5211 

5212 

ER?I>F (113, ASYNC, DUMPER); 




5213 

PRINTS (TWO.FMT, 

REG 7, PHR. 

.4) ; 



5214 

PRJNTB (FMT.2, . 

drivP.typs, 

.SAVE); 



5215 

COI L. 

end; 





5216 

5217 

if .DODU.FLG IS. SET 


JDROP THIS UNIT IF DODU.FLG IS.SET 


5218 

then 





5219 

begin 





5220 

DODU (.ML.LUN); 





5221 

DOCLN; 





5222 

end; 





5223 






5224 

ENDTST; 







.S8TTL 

ST7 TEST r ODE SECTION 


033512 

004167 

151074 ST7: 

JSR 

R1,SSAVE5 


033516 

162706 

000006 

SUB 

#6,SP 


033522 

005067 

161650 

CLR 

P.CNT 


033526 

012767 

177777 162102 

MOV 

#-1 ,ML . REG+232 


033534 

005005 


CLR 

R5 

; DODU.FLG 

033536 

012702 

177777 

MOV 

#-1.R2 

; *,TST.PAT 

03354? 

005001 


CLR 

R1 

; TWICE 

033544 

005004 

IS: 

CLR 

R4 

; REG.SEL 

033546 

104402 

2S: 

TRAP 

2 


033550 

152777 

000040 161666 

BISB 

#40,8ML.REG+40 


033556 

016703 

162250 

MOV 

ML.DUT.R3 


033562 

042703 

177770 

BIC 

#177770,R3 


033566 

142777 

000007 161650 

BIC8 

#7,BML.REG*40 


033574 

150377 

161644 

BISB 

R3.8ML.REGH0 


033600 

010246 


MOV 

R2,-(SP) 

; TST.PAT,* 

033602 

01 0446 


MOV 

R4,-(SP> 

; REG.SEL,* 

033604 

012746 

000012 

MOV 

#12,-(SP) 


033610 

060616 


ADD 

S P,(SP) 

; INDEX,* 

033612 

004767 

171506 

JSR 

PC,WRT.REG 


033616 

016600 

000012 

MOV 

12(SP) ,R0 

; INDEX,* 

033622 

006300 


ASL 

RO 


033624 

006300 


ASL 

RO 


033626 

006300 


ASL 

RO 


033630 

010003 


MOV 

R0,R3 


033632 

016300 

015406 

MOV 

ML.REG+2(R3),R0 


033636 

056300 

015412 

BIS 

HL.REG+6(R3) ,R0 


C33642 

010066 

000006 

MOV 

R0.6(SP) 

; *, CLR. DATA 

033646 

152777 

000040 161570 

BISB 

#40,8ML.REG+40 



SEO 0217 


5102 

5154 

5157 

5158 

5159 
5161 

5164 

5165 

5166 


5168 


5169 
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SEO 0218 


9465 

9466 

9467 

9468 033654 

9469 033660 

9470 033664 

9471 0336 72 

9472 033676 

9473 033702 

9474 033704 

9475 033710 

9476 033712 

9477 033716 

9478 033724 

9479 033726 

9480 033732 

9481 033740 

9482 033742 

9483 033746 

9484 033750 

9485 033752 

9486 033754 
9437 033760 

9488 033762 

9489 033766 

9490 033770 

9491 033774 

9492 033776 

9493 034000 

9494 034002 

9495 034004 

9496 034007, 

9497 034C10 

9498 034014 

9499 034016 

9500 034022 

9501 034024 

9502 034030 

9503 034032 

9504 034034 

9505 034036 

9506 034040 

9507 034042 

9508 034044 

9509 034050 

9510 034052 

9511 034056 

9512 034060 

9513 034062 

9514 034064 

9515 034066 

9516 034070 

9517 


9516 034070 

9517 034074 

9518 034100 

9519 034104 


016700 

042700 

142777 

150077 

016616 

010446 

012746 

060616 

004767 

026627 

001121 

005267 

026767 

003403 

062706 

000517 

005704 

002403 

020427 

003406 

020427 

002410 

020427 

003005 

104455 

000006 

012706 

026302 

000430 

020427 

002403 

020427 

003403 

020427 

001005 

104455 

000006 

012750 

026302 

000412 

020427 

002407 

020427 

003004 

104455 

000006 

013012 

026302 

012746 

012746 

012746 

012746 


162152 

177770 

000007 

161546 

000006 

000014 

171774 

000014 

161444 

161440 

000012 


000003 

000011 

000012 


000004 

000005 

000010 


161552 


000001 


161440 


000006 

000007 


011344 

012464 

011310 

010650 


0 r 

# 


TEST CODE SECTION 



HOV 

BIC 

ML.DUT.RO 

f177776.R0 



B1CB 

f7,aML.REG+40 



81 SB 

R0.3ML.REG+40 



HOV 

6(SP),(SP) 

; CLR.DATA.* 


HOV 

R4.-(SP) 

; REG.SEL,* 


HOV 

#l4,-(SP> 



ADD 

SP.CSP) 

; ERR.FLG,* 


JSR 

PC.RD.REG 



CMP 

14(SP) ,#1 

; ERR.FLG, * 


BNE 

11$ 



INC 

P.CNT 

• 

m 


CMP 

P.CNT, LIMIT 



BLE 

3$ 



ADD 

#12, SP 



BR 

13$ 


3$: 

TST 

R4 

; REG.SEL 


BLT 

4$ 



CMP 

R4,#3 

; REG.SEL,* 


BLE 

5$ 


4S: 

CMP 

R4,#11 

; REG.SEL,* 


BLT 

6$ 



CMP 

R4,#12 

; REG.SEL,* 


BGT 

6$ 


5$: 

TRAP 

55 



.WORD 

6 



.WORD 

ASYNC 



.WORD 

DUMPER 



BR 

10$ 

0 

6$: 

CMP 

R4,#4 

; REG.SEL,* 


BLT 

7$ 



CMP 

R4,#5 

; REG.SEL,* 


BLE 

8$ 


7$: 

CMP 

R4,#10 

; REG.SEL,* 


BNE 

9$ 


8$: 

TRAP 

55 

• 

0 


.WORD 

6 



.WORD 

SYNC 



.WORD 

DUMPER 



BR 

10$ 

• 

# 

9$: 

CMP 

R4,#6 

; REG.SEL,* 


BLT 

10S 



CMP 

R4.#7 

; REG.SEL,* 


BGT 

ioi 



TRAP 

55 

• 

0 


.WORD 

6 



.WORD 

ARR.DAT 



.WORD 

DUMPER 


10$: 

HOV 

#WRD.56,-(SP) 

# 


HOV 

#FNC.23,-(SP) 



MOV 

#WRD.52,-(SP> 



MOV 

#WRD.12,-(SP) 



29-Mar-1982 16:23:04 
29-Ha r- 1982 16:21:03 


CZHLADO HL-11 LOGIC TEST 
ST7 TEST CODE SECTION 



034110 
034114 
. . . 034120 

95 27 034124 

9528 034126 

9529 034130 

9530 034134 

9531 034140 

9532 034144 

9533 034150 

9534 034154 

9535 034156 

9536 034160 

9537 034164 

9538 034170 

9539 034174 

9540 034176 

9541 034200 

9542 034202 

9543 034206 

9544 034210 

9545 034214 

9544 ° 3 5& 6 0 


9547 0 

9548 Ol 

9549 034226 

9550 034230 

9551 03 

338 ! 

9554 0? 

9555 

38 

9558 

vl 

9561 

9562 

9563 

38 

9566 

9567 
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N 1 

PAGE 236 


SEQ 0219 


012746 

011676 


NOV 

012746 

010304 


NOV 

012746 

000006 


NOV 

010600 



NOV 

104414 



TRAP 

016716 

161216 


NOV 

016646 

000030 


NOV 

016346 

015404 


NOV 

012746 

007436 


NOV 

012746 

000004 


NOV 

010600 



NOV 

104414 



TRAP 

012705 

000001 


NOV 

062706 

000026 


ADD 

062706 

000012 

IIS: 

ADD 

104467 



TRAP 

006000 



ROR 

103002 



BH IS 

000167 

177340 

12S: 

JMP 

005204 


13S: 

INC 

020427 

000012 


CNP 

003772 



BLE 

005102 



CON 

005201 



INC 

020127 

000001 


CNP 

003002 



BGT 

000167 

177310 


JHP 

00506 7 

161376 

14S: 

CLR 

027767 

161270 

161106 

CNP 

001431 



BEQ 

104455 



TRAP 


000161 

012706 

m 

m 

104414 

8l6746 


m 

104451 

104444 


011676 

012546 

010246 

000003 


161042 

m 

000016 

161466 


15S: 


.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

DEC 

8NE 

NOV 

TRAP 

TRAP 


TEST CODE SECTION 



#PHR.4.-<SP> 

#FIV.FNT,-(SP> 

#6,-($P> 

SP.RO 

• 

SP,* 

14 

RD.DATA,(SP) 

* 

CLR. DATA,* 

30(SP),-(SP) 

NL.REGCR3) ,-(SP) 
#FNT.16,-(SP) 

#4,-(SP) 

9 


SP,* 

SP,RO 

14 

#1,R5 

9 

9 

*, DODU.FLG 

#26, SP 

9 


#12, SP 

9 


67 

• 

9 


RO 



13S 



2S 



R4 

9 

REG.SEL 

R4.#12 

12i 

R2 

• 

9 

REG.SEL,* 

• 

• 

TST.PAT 

R1 

9 

TWICE 

R1,#1 

14S 

9 

TWICE,* 


29-Nar-1982 16:23:04 
29-H*r-1982 16:21:03 


TOPS 
PA: < 


5192 


IS 

NL.REG+232 

8NL.REG+130, DRIVE. TYPE 
15S 
55 
161 
ASYNC 
DUNPER 
#PHR.4,-(SP> 
#REG.7,-(SP) 
#TWO.FNT,-($P> 

#3,-(SP) 

SP,RO 

14 

R4.ISP) 

DRIVE. TYPE ,-<SP> 
#FNT.2,"(SP) 

#3,-(S$) 

SP,RO 

14 

#16, SP 

R5 

16S 

NL.LUN,RO 

51 

44 


; SP,* 

; SAVE,* 

; SP,* 

; DODU.FLG 


5193 
5175 
5165 

5194 


5164 


5199 

5161 


5202 

5209 

5212 


5213 


5214 


5211 

5217 

5220 


i 



SEQ 0220 


29-*or-1982 16:23:04 TOPS 
29-*«r-1982 16:21:03 PA:< 

5102 


25 words 


0 words 
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961o 

9617 

9618 

9619 

9620 

9621 

9622 

9623 

9624 

9625 

9626 

9627 

9628 

9629 

9630 

9631 

9632 

9633 

9634 

9635 

9636 

9637 

9638 

9639 

9640 

9641 

9642 

9643 

9644 

9645 

9646 

9647 

9648 

9649 

9650 

9651 

9652 

9653 

9654 

9655 

9656 

9657 

9658 

9659 

9660 

9661 

9662 

9663 

9664 

9665 

9666 

9667 

9668 

9669 

9670 


ML4AD 


5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 8 

TEST NAME: REGISTER SELECTION TEST 

TEST DESCRIPTION: 

THIS TEST TESTS FOR UNIOUE REGISTER 
SELECTION BY FIRST WRITING A BACKGROUND 
PATTERN INTO ALL READ/WRITE REGISTERS 

IT THEN WRITES A COMPLIMENT 
BACKGROUND PATTERN INTO ONE REGISTER 
AND READS THE REMAINING UNWRITTEN 
REGISTERS FOR AN UNCHANGED BACKGROUND 
PAT 

THIS PROCEDURE IS REPEATED UNTIL ALL 
REGISTERS HAVE BEEN WRITTEN WITH A 
COMPLIMENT BACKGROUND PATTERN. 


local 

DODU FLG, 

TST.PAT, 

ERR.FLG, 

Index; 

CLR THRESHOLD; 

BGNSUB; 

CLR MBUS; 

DOD0.FLG = ZERO; 

TST.PAT = Xo'12$252'; 

WRT CS1 (.TST PAT, 0); 

WRT ER (.TST.PAT, 6); 

WRT DA (.TST.PAT, 3); 

WRT PA (.TST.PAT, 8); 

WRT El (.TST.PAT, 13); 

WRT.E2 (.TST.PAT, 14); 

incr CNT 1 from 0 to 4 do 
begin 

TST.PAT = not .TST.PAT; 

case .CNT.1 fron 0 to 4 of 
set 


SEQ 0221 


29-Mar-1982 16:23:04 T0PS-20 BUss-16 V2(212> 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI.4 (60) 


!DR0P UNIT FLAG 
J TEST PATTERN 

! ERROR FUG PASSED TO ROUTINE; 

■POINTS TO REGISTER PRESENTLY BEING TESTED. 

! CLEAR ERROR PRINT THRESHOLD 


!LOAD TST PAT WITH ALTERNATE I'S t 0'S 

•write a Background into all the directly 

•ACCESSABLE READ WRITE REGISTERS 


•WRITE A COMPLIMENT PATTERN INTO ONE REGISTER 
■GENERATE THE COMPLIMENT PAT 
! SELECT THE REGISTER TO WRITE INTO 



CZMLADO 
T 7 TEST 

9672 

9673 
96/4 

9675 

9676 

9677 

9678 

9679 

9680 

9681 

9682 

9683 

9684 

9685 

9686 

9687 

9688 

9689 

9690 

9691 

9692 

9693 

9694 

9695 

9696 

9697 

9698 

9699 

9700 

9701 

9702 

9703 

9704 

9705 

9706 

9707 

9708 

9709 

9710 

9711 

9712 

9713 

9714 

9715 

9716 

9717 

9718 

9719 

9720 

9721 

9722 

9723 

9724 

9725 

9726 


NL-11 LOGIC TEST 
CODE SECTION 


MACRO Nil 13 30-MAR-82 11:18 PAGE 239 


SEO 0222 


ML4AD 


5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 

5327 

5328 

5329 


TEST CODE SECTION 


WRT.CS1 (.TST.PAT, 0); 

CU : 

WRT.ER (.TST.PAT. 6); 

C23 : 

WRT.DA (.TST.PAT, 3); 

C33 : 

WRT.PA (.TST.PAT, 8); 

C43 : 

WRT.E1 (.TST.PAT, 13); 

tes; 

TST.PAT = not .TST.PAT; 

incr CNT.2 from .CNT.1 ♦ 1 to 5 do 
begin 

case .CNT.2 from 0 to 5 of 
set 


29-War- 1982 16:23:04 T0PS-20 Bliss-16 V2(212) 

29-War-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (60) 


•FIRST PASS WRITE COMP PAT TO NLCS1 


! SECOND PASS WRITE COMP PAT TO HLER 


•THIRD PASS WRITE COMP PAT TO HLDA 


.'FORTH PASS WRITE COMP PAT TO ML PA 


! FIFTH PASS WRITE COMP PAT TO HLE1 


! COMPLIMENT TST.PAT BACK TO BACKGROUND 

!N0W READ THE REMAINING UNWRITTEN REGISTERS FOR AN 
! UNCHANGED BACKGROUND 

! SELECT THE REGISTER TO READ 


C03 : 


RD.CS1 (.TST.PAT, index - 0, ERR.FLG); 'READ MLCS1 


C13 : 


RD.ER (.TST.PAT, index = 6. ERR.FLG); !READ MLER 


C23 : 


RD.DA (.TST.PAT, index = 3, ERR.FLG); !READ MLDA 


[33 : 


RD.PA (.TST.PAT, index = 8. ERR.FLG); !READ MLPA 


[43 : 


RD.E1 (.TST.PAT, index = 13. ERR.FL6); 'READ MLE1 
RD.E2 (.TST.PAT, index = 14, ERR.FLG); .'READ HLE2 


if .ERR.FLG IS.SET 
then 

begin 

CMP. THRESHOLD; 

selectone .CNT.2 of 
set 


•SEE IF READ FOUND AN ERROR 


•COMPARE ERROR PRINT THRESHOLD 




CO to 2] : 


C2NLAD0 ML-11 LOGIC TEST 
'7 TEST COOE SECTION 


HACRO Nil 13 30-NAA-82 11:18 PAGE 


E 2 
240 


SEO 0223 


9728 

9729 

9730 

9731 

9732 

9733 

9734 

9735 

9736 

9737 

9738 
97 J9 

9740 

9741 

9742 

9743 

9744 

9745 

9746 

9747 

9748 

9749 

9750 

9751 

9752 

9753 

9754 

9755 

9759 

9760 

9764 

9765 

9766 

9767 

9768 

9769 

9770 

9771 

9772 

9773 

9774 

9775 

9776 

9777 

9778 

9779 

9780 

9781 

9782 


;HL4AD 


034370 

034374 

034376 

034402 

034404 

034412 

034416 

034422 

034430 

034434 

034436 

034442 

034444 

034446 

034452 

034454 

034460 

034464 

034466 


TEST COOE SECTION 


29-N*r-1982 16:23:04 
29-Ner-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 

PA : <NE AL E>NL 4 AD .BL I . 4 (60) 


5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 
534, 

5347 

5348 

5349 

5350 

5351 

5352 

5353 

5354 


004167 

005746 

005067 

104402 

152777 

016703 

042703 

142777 

150577 

005005 

012704 

010446 

005046 

0047o7 

010416 

012746 

004767 

010416 

012746 


ERRDF (110, A5YNC, DUNPER); 1ASYNC NODULE FAILURE 

.'ARRAY DATA NODULE FAILURE 


C3 to 53 • 

ERRDF (110. ARR.DaT, DUNPER); 

tes; 


PRINTS (T MR F NT. WRD 38, WRD 37, URD 10); „ . % 

PRINTS (FNT 16, .NL REG C.in8ex. REGlSTER.ADDJ, .WT.DATA, .RD.DATA); 
DODU.FLG = ONE; 
end; 


end; 

end; 

ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.NL.LUN); 

DOCLN; 

end; 


.'DROP THIS UNIT IF DODU.FLG IS.SET 


ENDTST; 



.S8TTL 

ST8 TEST CODE SECTION 



150216 


ST8: 

JSR 

R1 .SSAVE5 

• 




TST 

-(SP) 



160774 



CLR 

P.CNT 

• 

• 




IS: 

TRAP 

2 

0 


000040 

161032 


BISS 

840, 8NL. RE 6*40 

0 


161414 

177770 



NOV 

BIC 




000007 

161014 


BIC6 

87.SNL.REG+40 



161010 


BISS 

R3.8NL.REG+40 


DODU.FLG 



CLR 

R5 

0 

125252 



NOV 

8-52526. R4 

• 

» 

*, TST. PAT 



NOV 

R4, -(SP) 

• 

TST. PAT,* 




CLR 

-(SP> 



165240 



JSR 

PC.WRT.CS1 


TST. PAT,* 



NOV 

R4,(SP) 

• 

000006 



NOV 

86, -(SP) 



165404 



JSR 

PC.WRT.ER 


TST. PAT.* 



NOV 

R4, (SP) 

• 

000003 



NOV 

83, -(SP) 




5224 

5257 

5259 

5260 


5262 

5263 

5264 


5265 

5266 


f 2 
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ST8 TEST CODE SECTION 


9784 



; ML 4 AO 



9785 



0 


TEST CODE SECTION 

9786 






9787 034472 

004767 

165550 


JSR 

PC.WRT.DA 

9788 034476 

010416 



MOV 

R4.(SP) 

9789 034500 

012746 

000010 


MOV 

#lO.-(SP) 

9790 034504 

004767 

166072 


JSR 

PC.WRT.PA 

9791 034510 

010416 



MOV 

R4. (SP) 

9792 034512 

012746 

000015 


MOV 

#l5,-(SP> 

9793 034516 

004767 

166266 


JSR 

PC.WRT.E1 

9794 034522 

010416 



MOV 

R4. (SP) 

9795 034524 

012746 

000016 


MOV 

#16. -(SP) 

9796 034530 

004767 

166462 


JSR 

PC.WRT.E2 

9797 034534 

005001 



CLR 

R1 

9798 034536 

005104 


2$: 

COM 

R4 

9799 034540 

010103 



MOV 

R1.R3 

9800 034542 

006303 



ASL 

R3 

9801 034544 

066307 

034550 


ADD 

3$(R3) .PC 

9802 034550 

000012 


3$: 

.WORD 

4$-3$ 

9803 034552 

000024 



.WORD 

5$-3$ 

9804 034554 

000040 



.WORD 

6$-3$ 

9805 034556 

000054 



.WORD 

7S-3S 

9806 034560 

000070 



.WORD 

8$— 3$ 

9807 034562 

010446 


4$: 

MOV 

R4.-(SP> 

9808 034564 

005046 



CLR 

-(SP) 

9809 034566 

004767 

165120 


JSR 

PC, WRT.CS1 

9810 034572 

000427 



BR 

9$ 

9811 034574 

010446 


5$: 

MOV 

R4,-(SP) 

9812 034576 

012746 

000006 


MOV 

#6,-(SP) 

9813 034602 

004767 

165262 


JSR 

PC.WRT.ER 

9814 034606 

000421 



BR 

9$ 

9815 034610 

010446 


6$: 

MOV 

R4,-(SP) 

9816 034612 

012746 

000003 


MOV 

#3,-(SP) 

9817 034616 

004767 

165424 


JSR 

PC.WRT.DA 

9818 034622 

000413 



BR 

9$ 

9819 034624 

010446 


7$: 

MOV 

R4.-(SP) 

9820 034626 

012746 

000010 


MOV 

#10. -(SP) 

9821 034632 

004767 

165744 


JSR 

PC.WRT.PA 

9822 034636 

000405 



BR 

9$ 

9823 034640 

010446 


8$: 

MOV 

R4.-(SP> 

9824 034642 

012746 

000015 


MOV 

#15 ,-(SP) 

9825 034646 

004767 

166136 


JSR 

PC.WRT.E1 

9826 034652 

005104 


9$: 

COM 

R4 

9827 034654 

010103 



MOV 

R1.R3 

9828 034656 

000167 

000416 


JMP 

23$ 

9829 034662 

010300 


10$: 

MOV 

R3.A0 

9830 034o64 

006300 



ASL 

RO 

9831 034666 

066007 

034672 


ADD 

11$(R0),PC 

9832 034672 

000014 


11$: 

.WORD 

12$-11$ 

9833 034674 

000036 



.WORD 

13$— 1 1 $ 

9834 034676 

000062 



.WORD 

14$-1 1$ 

9835 034700 

000106 



.WORD 

15$-11$ 

9836 034702 

000132 



.WORD 

1 6$— 1 1 $ 

9837 034704 

000156 



.WORD 

17$-1 1$ 

9838 034706 

010446 


12$: 

MOV 

R4,-(SP) 


SEO 022 ^ 



CZAUOO NL-11 LOGIC TEST 
! $T8 TEST CODE SECTION 
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9840 

9841 

9842 

9843 

9844 

9845 

9846 

9847 

9848 

9849 

9850 

9851 

9852 

9853 

9854 

9855 

9856 

9857 

9858 

9859 

9860 

9861 

9862 

9863 

9864 

9865 

9866 

9867 

9868 

9869 

9870 

9871 

9872 

9873 

9874 

9875 

9876 

9877 

9878 

9879 

9880 

9881 

9882 

9883 

9884 

9885 

9886 

9887 

9888 

9889 

9890 

9891 

9892 

9893 

9894 


;NL4AD 


034710 

034712 

034714 

034720 

034722 

034726 

034730 

034732 

034736 

034740 

034744 

034746 

034752 

034754 

034756 

034762 

034764 

034770 

034772 

034776 

035000 

035002 

035006 

035010 

035014 

035016 

035022 

035024 

035026 

035032 

035034 

035040 

035042 

035046 

035050 

035052 

035056 

035060 

035064 

035066 

035072 

035100 

035102 

035106 

035114 

035116 

035122 

035124 

035126 

035130 

035134 

035136 


005002 

005046 

012746 

060616 

004767 

000461 

010446 

012702 

010246 

012746 

060616 

004767 

000447 

010446 

012702 

010246 

012746 

060616 

004767 

000435 

010443 

012702 

010246 

012746 

060616 

004767 

000423 

010446 

012702 

010246 

012746 

060616 

004767 

000411 

010446 

012702 

010246 

012746 

060616 

004767 

026627 

001075 

005267 

026767 

003403 

062706 

000474 

005703 

002410 

020327 

003005 

104455 


000030 

165034 

000006 

000030 

165166 

000003 

000030 

165320 

000010 

000030 

165644 

000015 

000030 

166026 


000016 

000030 

166222 

000030 000001 18$: 

160270 

160264 160264 

000006 


000002 


TEST CODE SECTION 

CLP 82 

CLR -<SP) 

NOV *30,- (SP) 

ADD SP,(SP) 

JSR PC.RD.CS1 

BR 18$ 

NOV R4,-(SP) 

NOV #6,R2 

NOV R2.-(SP> 

NOV # 56 , -(SP) 

ADD SP,(SP) 

JSR PC.RD.ER 

BR 18i 

NOV R4,-(SP) 

NOV #3,R2 

NOV R2.-(SP) 

NOV #36,-<SP> 

ADD SP,(SP) 

JSR PC.RD.DA 

BR 18$ 

NOV R4.-CSP) 

NOV #l6,R2 

NOV R2,-(SP) 

NOV #36,-(SP> 

ADD SP,(SP> 

JSR PC.RD.PA 

BR 18$ 

NOV R4,-(SP) 

NOV #15,R2 

NOV R2.-(SP) 

NOV #36,-<SP> 

ADD SP, (SP) 

JSR PC.RD.E1 

BR 18$ 

NOV R4, -(SP) 

NOV #16 ,R2 

NOV R2,-(SP) 

NOV #36,-(SP> 

ADD SP,(SP) 

JSR PC,RD.E2 

CNP 30(SP),#1 

BNE 22$ 

INC P.CNT 

CNP P.CNT, LINIT 

8LE 19$ 

ADD #6.SP 

BR 24$ 

TST R3 

BLT 20$ 

CNP R3-#2 

BGT 20$ 

TRAP 55 


SEQ 0225 


29-Nar-1982 16:23:04 TOPS 
29-Nar-1982 16:21:03 PA:< 

; INDEX 


ERR.FLG.* 

5299 

TST. PAT,* 5306 

*, INDEX 

INDEX,* 

ERR.FLG,* 

5299 

TST. PAT,* 5309 

*, INDEX 

INDEX,* 

ERR.FLG,* 

5299 

TST. PAT,* 5312 

*, INDEX 

INDEX,* 

ERR.FLG.* 

5299 

TST. PAT,* 5315 

•.INDEX 

INDEX,* 

ERR.FLG,* 

5299 

TST. PAT,* 5318 

•.INDEX 

INDEX,* 

ERR.FLG,* 

ERR.FLG.* 5321 

5323 


CNT.2 5326 

CNT.2.* 

5330 1 


H 2 
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CZHLADO HL-11 LOGIC TEST 
ST8 TEST CODE SECTION 


9896 

9897 

9898 

9899 

9900 

9901 

9902 

9903 

9904 

9905 

9906 

9907 

9908 

9909 

9910 

9911 

9912 

9913 

9914 

9915 

9916 

9917 

9918 

9919 

9920 

9921 

9922 

9923 

9924 

9925 

9926 

9927 

9928 

9929 

9930 

9931 

9932 
9953 

9934 

9935 

9936 

9937 

9938 

9939 

9940 

9941 

9942 

9943 

9944 

9945 

9946 

9947 

9948 

9949 

9950 


035140 

035142 

035144 

035146 

035150 

035154 

035156 

035162 

035164 

035166 

035170 

035172 

035174 

035200 

035204 

035210 

035214 

035220 

035222 

035224 

035230 

035234 

035236 

035240 

035242 

035244 

035250 

035254 

035260 

035262 

035264 

035270 

035274 

035300 

035302 

035306 

035310 

035314 

035316 

035320 

035324 

035326 

035332 

035336 

035340 

035342 

035344 

035350 

035352 

035354 

035360 

035362 


000156 
012706 
026302 
000412 
020327 
002407 
020327 
003004 
104455 
000156 
013012 
026302 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
016716 
016746 
010200 
006300 
006300 
006300 
016046 
012746 
012746 
010600 
104414 
012705 
062706 
062706 
005203 
020327 
003002 
000167 
022626 
005201 
0201 2 7 
003002 
000167 
062706 
104467 
006000 
103002 
000167 
005305 
001004 
016700 
104451 
104444 


000003 

000005 


010630 

011122 

011132 

010256 

000004 


160122 

160114 


015404 

007436 

000004 


000001 

000022 

000006 

000005 

177346 


000004 

177204 

000016 


177032 


160450 


;HL4AD 

9 


TEST CODE SECTION 


.WORD 

156 


.WORD 

ASYNC 


.WORD 

DUNPER 


BR 

21$ „ 

20$: 

CNP 

R3.#3 

2ii 

BIT 


CAP 

R3,#5 


BGT 

2li 


TRAP 

55 


.WORD 

156 


.WORD 

ARP. DAT 


.WORD 

DUNPER 

21$: 

NOV 

#WRD.10,-(SP> 

NOV 

#WRD.37.-<SP) 


NOV 

#WRD.38,-(SP) 


NOV 

#THR.FNT,-<5P) 


NOV 

#4,-(SP) 


NOV 

SP.RO 


TRAP 

14 


NOV 

RD.DATA.(SP) 


NOV 

WT.DATA.-(SP) 


NOV 

R2.R0 


ASL 

RO 


ASL 

RO 


ASL 

RO 


NOV 

NL.REG(RO) ,“(SP) 


NOV 

#FNT.16.-(SP) 

#4,-(SP) 


NOV 


NOV 

SP.RO 


TRAP 

n 


NOV 

#1 ,R5 


ADD 

#22, SP 

22$: 

ADD 

#6.SP 

23$: 

INC 

R3 


CNP 

R3,#5 


BGT 

24i 


JNP 

10$ 

24$: 

CNP 

<SP>+. <SP>* 


INC 

R1 


CNP 

R1.#4 


BGT 

25* 


JNP 

2$ 

25$: 

ADD 

#16, SP 


TRAP 

67 


ROR 

RO 


SHIS 

26$ 


JNP 

1$ 

26$: 

DEC 

R5 


BNE 

27$ 


NOV 

NL.LUN.RO 


TRAP 

51 


TRAP 

44 


SEO 0226 


29-Nar-1982 16:23:04 TOPS | 

29-N*r-1982 16:21:03 PA:< 

5326 

; CNT.2,* 

; CNT.2.* 


5336 


SP,* 



5337 

INDEX,* 


; SP.* 


; *,DODU.FLG 

5338 


5323 


5297 

; CNT.2 

5296 

; CNT.2.* 



5272 

; CNT.1 

5271 

; CNT.1,* 


m 

5259 

9 

• 

9 

5343 

; DODU.FLG 

5347 

• 

5350 


J 
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$T8 TEST CODE ! 

SECTION 



9952 


; HI 4 AD 


9953 


# 

TEST CODE SECTION 

9954 




9955 C35364 

005726 

27$: TST 

<SP> + 

9956 035366 

000207 

RTS 

PC 

9957 




9958 


; Routine Size: 

256 words 

9959 


; Maxi mm stack 

depth per invocation: 

9964 




9965 




9969 




9970 


.S8TTL 

T8 TEST CODE SECTION 

9974 035370 


T8: : 


9975 035370 

004767 176774 

1$: JSR 

PC, STS 

9976 035374 

104466 

TRAP 

66 

9977 035376 

006000 

ROR 

RO 

9978 035400 

103773 

8L0 

1$ 

9979 035402 

000207 

RTS 

PC 

9980 




9981 


; Routine Size: 

6 words 

9982 


; Maximum stack 

depth per invocation: 

9987 




9988 




9989 ; 

5355 !<81F/PAGE> 




28 words 


0 words 


SEQ 0227 

29-H«r-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

5224 


5352 


CZMl.ADO ML-11 LOGIC TEST 
T8 TEST CODE SECTION 
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SEO 0228 


9991 ; ML 4 AD 

9992 ; 

9993 

9994 ; 

9995 ; 

9996 ; 

9997 ; 

9998 ; 

9999 ; 

10000 : 

10001 ; 

10002 ; 

10003 ; 

10004 ; 

10005 ; 

10006 ; 

10007 ; 

10008 ; 

10009 ; 

10010 ; 

10011 ; 

10012 ; 

10013 ; 

10014 ; 

10015 ; 

10016 ; 

10017 ; 

10018 ; 

10019 ; 

10020 ; 

10021 ; 

10022 ; 

10023 ; 

10024 ; 

10025 ; 

10026 ; 

10027 ; 

10028 ; 

10029 ; 

10030 ; 

10031 ; 

10032 ; 

10033 ; 

10034 ; 

10038 

10039 

10043 035404 

10044 035410 

10045 035416 


5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 9 


TEST NAME 


PRINT SERIAL NUMBER 


TEST DESCRIPTION: 

UPON A YES RESPONSE TO THE 
SOFTWARE QUESTION 'PRINT SERIAL NO? 
PRINT OUT THE DRIVE UNDER TEST 
SERIAL NUMBER. 


local 

D3, 

D2, 

01 . 

DO; 


If .PRSN IS.SET 
then 

begin 
D3 = .SN3; 
D2 = .SN2; 
D1 = ,SNl; 
DO = .SNO; 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212) 
PA:«NEALE>ML4AD.8LI.4 (61) 


2 STORES DIGIT 3 OF SERIAL NUMBER 
2ST0RES DIGIT 2 OF SERIAL NUMBER 
2 STORES DIGIT 1 OF SERIAL NUMBER 
•STORES DIGIT 0 OF SERIAL NUMBER 

! SEE IF WE PRINT THE SERIAL NUMBER 

•PRINT THE SERIAL NUMBER IF THE REPLY WAS YES 

•LOAD DIGIT 3 OF S N INTO D3 

•LOAD DIGIT 2 OF SN INTO D2 

•LOAD DIGIT 1 OF SN INTO D1 

•LOAD DIGIT 0 OF SN INTO DO 


if ((.D3 gtr 9) or (,D2 gtr 9) or (.D1 gtr 9) or (.DO gtr 9)) „ . 

3 3 .'SEE IF DIGITS ARE TO BIG FOR COVERSION 


PRINTS (FMT_ 
e pRINTB (FMT. 


25, PHRJ5. .MLSN) 'PRINT OCTAL SN IF TO BIG 

26, PHR.15, ,D3, .D2, ,D1, .DO); 'ELSE PRINT DECIMAL SERIAL NUMBER 


end; 

ENDTST; 


004167 147144 ST9: 

026727 144764 000001 

001101 


.S8TTL $T9 TEST CODE SECTION 
JSR R1 .SSAVE3 
CMP PRSN,#1 

BNE 4$ 


UMLADO Ml-11 LOGIC TEST 
ST9 TEST CODE SECTION 

10047 

10048 

10049 

10050 035420 017703 

10051 035424 006203 

10052 035426 006203 

10053 035430 006203 

10054 035432 006203 

10055 035434 000303 

10056 035436 042703 

10057 035442 017700 

10058 035446 000300 

10059 035450 042700 

10060 035454 117701 

10061 035460 006201 

10062 035462 006201 

10063 035464 006201 

10064 035466 006201 

10065 035470 042701 

10066 035474 117702 

10067 035500 042702 

10068 035504 020327 

10069 035510 003011 

10070 035512 020027 

10071 035516 003006 

10072 035520 020127 

10073 035524 003003 

10074 035526 020227 

10075 035532 003413 

10076 035534 017746 

10077 035540 012746 

10078 035544 012746 

10079 035550 012746 

10080 035554 010600 

10081 035556 104414 

10082 035560 000416 

10083 035562 010246 

10084 035564 010146 

10085 035566 010046 

10086 035570 010346 

10087 035572 012746 

10088 035576 012746 

10089 035602 012746 

10090 035606 010600 

10091 035610 104414 

10092 035612 062706 

10093 035616 062706 

10094 035622 000207 

10095 

10096 

10097 


160120 


177760 

160076 

177760 

160064 


177760 

160044 

177760 

000011 

000011 

000011 

000011 

160004 

012136 

010166 

000003 


012136 

010206 

000006 


000006 

000010 


K 2 
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; ML 4 AD 
• 


TEST CODE SECTION 


MOV 

BML.REG*140#R3 


ASR 

R3 


ASR 

R3 


ASR 

R3 


ASR 

R3 


SUA8 

R3 


BIC 

#1 77760.R3 


MOV 

BML.REG+UO.RO 


SUAB 

RO 


BIC 

#1 77760.R0 


MOVB 

BML.REG+140.R1 


ASR 

R1 


ASR 

R1 


ASR 

R1 


ASR 

R1 


BJC 

#1 77760, R1 


MOVB 

3ML.REG*140.R2 


BIC 

#1 77760. R2 


CMP 

R3,#11 


BGT 

IS 


CMP 

R0.P11 


BGT 

IS 


CMP 

R1.#11 


BGT 

IS 


CMP 

R2.P11 


BLE 

2S 

IS: 

MOV 

aML.REG*140,-(SP) 

#PHR.15,-(SP) 


MOV 


MOV 

#EMT.25,-(SP) 


MOV 

#3,-<SP) 


MOV 

SP.RO 


TRAP 

14 


BR 

3S 

2S: 

MOV 

R2.-(SP) 


MOV 

RI.-(SP) 


MOV 

RO.-(SP) 


MOV 

R3.-(SP> 


MOV 

#PHR.15,-<SP> 


MOV 

#fMT.26.-(SP) 


MOV 

#6.-<SP> 


MOV 

SP.RO 


TRAP 

14 


ADD 

I6-SP 

3S: 

ADD 

flO.SP 

4S: 

RTS 

PC 


; Routine Size: 72 words 
; Maximus stack depth per invocation: 


*,03 

D$ 

D3 

03 

03 

03 

*#03 

*-02 

02 

*#02 

*.01 

01 

01 

01 

01 

*.01 

*,00 

*-00 

03.* 

02 .* 

01.* 

DO.* 


SP.* 


; 00 .* 

: SI** 

; oj.* 
; 03.* 


$P.* 


11 words 


SEQ 0229 

29-Mar- 1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 

5382 


5383 

5384 

5385 
5387 


5390 


5387 

5392 



CZMLADO Nl-11 LOGIC TEST 
$T9 TEST CODE SECTION 
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10103 

10104 

10105 

10109 

1 0110 

10114 

10115 

10116 

10117 

10118 

10119 

10120 
10121 
10122 

10127 

10128 
10129 


;ML4AD 


TEST CODE SECTION 


035624 

035624 004767 177554 
035630 104466 
035632 006000 
035634 103773 
035636 000207 


5397 !<BLF/PAGE> 


SEO 0230 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 BUss-16 V2(2 12> 
PA: <NE ALE>ML4AD.BL I .4 (61) 


S8TTL T9 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC, ST9 
66 
RO 
1$ 

PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


CZMLADO ML-11 LOGIC TEST 
T9 TEST CODE SECTION 
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SEQ 0231 


10131 

10132 

10133 

10134 

10135 

10136 

10137 

10138 

10139 

10140 

10141 

10142 

10143 

10144 

10145 

10146 

10147 

10148 

10149 

10150 

10151 

10152 

10153 

10154 

10155 

10156 

10157 

10158 

10159 

10160 
10161 
10162 

10163 

10164 

10165 

10166 

10167 

10168 

10169 

10170 

10171 

10172 

10173 

10174 

10175 

10176 

10177 

10178 

10179 

10180 
10181 
10182 

10183 

10184 

10185 


;ML4AD 


5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 


TEST CODE SECTION 


BGNTST; 

! TEST NUMBER: TST 10 

i 

j TEST NAME: C-8US PARITY TEST 

i 

j TEST DESCRIPTION: 

! TEST THE CONTROL BUS PARITY 

* DETECTION AND GENERATING BY: 

i 

I 1. WRITING BAD PARITY TO DEVICE 

» AND TEST CPAR SET. 

i 

i 2. WRITING GOOD PARITY TO DEVICE 

! AND TEST CPAR CLR. 

i 

! 3. READING DEVICE AND TEST GOOD 

! PARITY GENERATION BY READING 

! MCPE CLR. 


local 

SAVE. 

TST.PAT; 

if .PAR.DIS IS.NOT.SET 
then 

begin 

TST.PAT = Xo' 125252*; 

incr TWICE from 1 to 2 do 
begin 
CLR.HBUS; 

PAT = ONE; 

ML DA = .TST_PAT; 

if .CPAR IS.NOT.SET 
then 

begin 

ERRDF 17. ASYNC. I 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>HL4AD.8LI .4 (62) 


.'TEMPORARY SAVE LOCATION 
• TEST PATTERN 

! SEE IF PARITY IS DISABLED 

•BEGIN IF PARITY IS ENABLE 
'ALTERNATING 1. 0 PATTERN 

.'REPEAT LOOP TWICE 


•GENERATE EVEN PARITY BY SETTING THE PAi BIT 
•WRITE BAD PARITY ON CONTROL BUS 


•READ CPAR BIT SET 


ERRDF (7. ASYNC. DUMPER); !E 
PRINTS (THR FMT. WRD.5. WRD.7. WRD.9); 
end; 


•ERROR IF NOT SET 


CLR MBUS; 

HLDX = .TST.PAT; 


J CLEAR OUT PAT BIT 

•WRITE ODD PARITY CONTROL BUS 


if .CPAR IS_SET 
then 


•READ CPAR BIT CLEARED 


CiMlADO ML-11 LOGIC TEST 
T9 TEST CODE SECTION 
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N 2 
PAGE 249 


SEO 0232 


10187 

10188 

10189 

10190 

10191 

10192 

10193 

10194 

10195 

10196 

10197 

10198 

10199 

10200 
10201 
10202 

10203 

10204 

10205 

10206 

10207 

10208 

10209 

10210 
10211 
10212 
10216 
10217 
10221 
10222 

10223 

10224 

10225 

10226 

10227 

10228 

10229 

10230 

10231 

10232 

10233 

10234 

10235 

10236 

10237 

10238 

10239 

10240 

10241 


HL4AD 


035640 

035644 

035650 

035652 

035656 

035662 

035670 

035674 

035700 

035706 

035712 

035720 

035724 

035732 

035734 

035736 

035740 

035742 

035744 

035750 

035754 


5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 


004167 

005767 

001171 

012701 

012702 

152777 

016700 

042700 

142777 

150077 

152777 

010177 

132777 

001022 

104455 

000007 

012706 

026302 

012746 

012746 

012746 


TEST CODE SECTION 
begin 


29-Har-1982 16:23:04 
29-M*r-1982 16:21:03 


TOPS— 20 Bliss-16 V2(212) 
PA:<NEALE>HL4AD.BLI.4 (62) 


eSIdF (8, ASYNC, DUMPER); ^ {ERROR IF SET 

PRJNTB (THR FMT, WRD.6, WRD.7, WRD.9); 

end; 


CLR.MBUS; 

SAVE = .MLDA; 

if .HCPE IS.SET 
then 

begin 

ERRDF (9, ASYNC, DUMPER); 


!READ A REGISTER FROM DUT 
•SEE IF GENERATED GOOD PARITY 


PRINTS (THR.FMT, WRD.6, WRD.7, WRD.8); 
end; 


•ERROR IF HCPE IS.SET 


TST.PAT = . TST.PAT A ONE; 
end; 


end 


else 


WRD.7, WR 

PRINTB (TWO.FMT, 

ENDTST; 


.SBTTL 

146710 

ST10: 

JSR 

156140 


TST 


BNE 

125252 


MOV 

000001 


MOV 

000040 

157554 IS: 

BISB 

160136 


MOV 

177770 


BIC 

000007 

157536 

BICB 

157532 


BISS 

000020 

157524 

BISB 

157510 


MOV 

000010 

157532 

BITS 


BNE 



TRAP 


I REPEAT WITH SHIFTED DATA 


•JUST PRINT MESSAGE IF PARITY IS DISABLED 


010616 

010566 

010552 


.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 


$T10 TEST CODE SECTION 

R1.SSAVE3 

PAR.DIS 

5$ 

#-52526.R1 

#1.R2 

#40,8HL.REG+40 

ML.DUT.RO 

#1 77776, RO 

#7,8ML.REG*40 

RO.aML.REG+40 

#26.8ML.REG^40 

Rl.iML.REG+30 

#l6,8HL.REG+60 

2 $ 

55 

7 

ASYNC 

DUMPER 

#WRD.9,-(SP) 

#WRD. 7, -(SP) 
#WRD.5,-(SP) 


*, TST.PAT 
*, TWICE 


TST.PAT,* 


5396 

5427 

5430 

5432 

5433 


5435 

5436 
5438 

5441 


5442 



CZMIADO Hl-11 LOGIC TEST 
ISTIO TEST CODE SECTION 
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10243 

10244 

1 0245 

10246 
1024? 

10248 

10249 

10250 

10251 

10252 

10253 

10254 

10255 

10256 

10257 

10258 

10259 

10260 
10261 
10262 

10263 

10264 

10265 

10266 

10267 

10268 

10269 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10278 

10279 

10280 
10281 
10282 

10283 

10284 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

10294 

10295 

10296 

10297 


;NL4AD 


G35760 

035764 

035770 

035772 

035774 

036000 

036006 

036012 

036016 

036024 

036030 

036034 

036042 

036044 

036046 

036050 

036052 

036054 

036060 

036064 

036070 

036074 

036100 

036102 

036104 

036110 

036116 

036122 

036126 

036134 

036140 

036144 

036152 

036154 

036156 

036160 

036162 

036164 

036170 

036174 

036200 

036204 

036210 

036212 

036214 

036220 

036222 

036224 

036230 

036232 

036234 

036240 


012746 

012746 

010600 

104414 

062706 

152777 

016700 

042700 

142777 

150077 

010177 

132777 

001422 

104455 

000010 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

152777 

016700 

042700 

142777 

150077 

017703 

032777 

001422 

104455 

000011 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

006301 

005202 

020227 

003614 

000207 

012746 

012746 


010256 

000004 


000012 

000040 157436 2$: 
160020 
177770 

000007 157420 

157414 

157400 

000010 157422 


010616 

010566 

010560 

010256 

000004 


000012 

000040 157326 3$: 

157710 

177770 

000007 157310 

157304 

157270 

020000 157232 


010602 

010566 

010540 

010256 

000004 


000012 


000002 


011316 

010566 


TEST CODE SECTION 

NOV #THR.FNT,-(SP) 

NOV #4,-(SP) 

NOV SP,RO 

TRAP 14 

ADD #12,SP 

6IS8 #40,BNL.REG*40 

NOV NL.DUT.RO 

BIC #1 77770. RO 

BIC8 #7,3NL.REG*40 

3JS8 R0.BNL.REG+40 

NOV R1 -8NL.REG+30 

BITS #10,8NL.REG*60 

BEO 3$ 

TRAP 55 

.WORD 10 

.WORD ASYNC 

.WORD DUNPER 

NOV #WRD.9,-(SP> 

NOV #WRD.7,-(SP> 

NOV #WRD.6,-(SP> 

NOV #THR.FNT,-(SP) 

NOV #4,-<SP) 

NOV SP,RO 

TRAP 14 


ADD 

#12,SP 

BIS6 

#40,8NL.R£G+40 

NOV 

eu 

NL.DUT.RO 
#1 77776, RO 

BIC8 

#7,2NL.REG*40 

BIS8 

R0.BNL.REG+40 

NOV 

3NL.REG+30,R3 

BIT 

#20000, 9NL. REG 

BEO 

4$ 

TRAP 

55 

.WORD 

11 

.WORD 

ASYNC 

.WORD 

DUNPER 

NOV 

#URD.8,-(SP) 

NOV 

#WRD.7,-(SP) 

NOV 

#WRD.6,-<SP) 

NOV 

#THR.FNT,-(SP) 

NOV 

#4,-(SP) 

NOV 

SP,RO 

TRAP 

14 

ADD 

#12, SP 

ASL 

R1 

INC 

R2 

CNP 

R2,#2 

BLE 

IS 

RTS 

PC 

NOV 

#WRD.53,-(SP) 

NOV 

#WRD.7,-(SP) 


SEQ 0233 



C2MLAD0 ML-11 LOGIC TEST 
STIO TEST CODE SECTION 


C 3 
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;Ml4AD 

• 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 


TEST CODE SECTION 

#TWO.FMT,-(SP> 

*3,-(SP> 

$P,R0 

14 

flO.SP 

PC 


; Routine Size: 139 words 
; Maximum stack depth per invocation: 


.S8TTL T10 TEST CODE SECTION 

T10: : 

U: JSR PC,*T10 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 



SEQ 0234 


29-Mar- 1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


; SP,* 


9 words 


0 words 



CZMLADO ML-11 LOGIC TEST 
TIO TEST CODE SECTION 


D 3 
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SEQ 0235 


10342 

ML4AD 

10343 

10344 

10345 

5474 

10346 

5475 

10347 

5476 

10348 

5477 

10349 

5478 

10350 

5479 

10351 

5480 

10352 

5481 

10353 

5482 

10354 

5483 

10355 

5484 

10356 

5485 

10357 

5486 

10358 

5487 

10359 

5488 

10360 

3489 

10361 

5490 

10362 

5491 

10363 

5492 

10364 

5493 

10365 

5494 

10366 

5495 

1C367 

5496 

10368 

5497 

10369 

5498 

10370 

5499 

10371 

5500 

10372 

5501 

10373 

5502 

10374 

5503 

10375 

5504 

10376 

5505 

10377 

5506 

10378 

5507 

10379 

5508 

10380 

5509 

10381 

5510 

10382 

5511 

10383 

5512 

10384 

5513 

10385 

5514 

10389 

10390 

10394 036302 004167 

10395 0363U6 104402 

10396 036310 152777 


TEST CODE SECTION 


29-M»r-1982 16:23:04 TOPS-20 Bliss-16 V2<212) 

29-Mar-1982 16:21:03 PA:<^ALE>ML4AD.8LI.4 (63) 


BGNTST; 


TEST NUMBER: TST 11 

TEST NAME: MEMORY SIZING TEST 

TEST DESCRIPTION: 

THIS TESTS THE MLII'S SIZING 
LOGIC BY COMPARING THE 
OPERATORS INPUTED NUMBER OF ARRAYS 
PRESENT TO THE HL11 SIZING 
NUMBER OF ARRAYS PRESENT 
THE DRIVE IS DROPPED ON DETECTED ERRORS. 
IMPLICIT INPUTS: 

OP NUM ARR* 

LO*DED*DURING injt code and 
STORES OPERATORS INPUT TO THE 
SOFTWARE QUESTION: 

NUMBER OF ARRAYS PRESENT? 


BGNSU8; 

CLR.MBUS; 


if (.OP.NUM.ARR ♦ 1) neq .ML.NUM.ARR 
then 

begin 

ERRDF (10, ASYNC. DIAPER); 

PRINTS (TWO.FMT, FNCJ, URDJ4); 
PRINTB (FMT“2, (.OP.NUM.ARR ♦ 1), 
end; 


•SEE IF DRIVE SIZED SAME NO. OF ARRAYS AS OP INPUTED 

•IF NOT EQL THEN ERROR AND SET DODU.FLG 
.MLJWM.ARR); 


ENDSU8; 

ENDTST; 


•SBTTL 

ST11 TEST CODE SECTION 

146232 

ST11: 

JSR 

R1 ,$SAVE2 


IS: 

TRAP 

2 

000040 157126 


BISS 

#40,8ML.REG*40 


5472 

5476 

5502 


, CZMLADO Ml-11 LOGIC TEST 
test cooe section 
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10398 

10399 

10400 

10401 

10402 

10403 

10404 

10405 

10406 

10407 

10408 

10409 

10410 

10411 

10412 

10413 

10414 

10415 

10416 

10417 

10418 

10419 

10420 

10421 

10422 

10423 

10424 

10425 

10426 

10427 

10428 

10429 

10430 

10431 

10432 

10433 

10434 

10435 

10436 

10437 

10438 

10439 

10440 

10441 

10442 

10443 

10444 

10445 

10446 
10451 


;NL4AD 


036316 

036322 

036326 

036334 

036340 

036344 

036346 

036352 

036354 

036356 

036360 

036362 

036366 

036370 

036372 

036374 

036376 

036400 

036402 

036404 

036410 

036414 

036420 

036424 

036426 

036430 

036434 

036436 

036440 

036442 

036444 

036450 

036452 

036456 

036460 

036464 

036470 

036472 

036474 

036500 

036502 

036504 

036506 


016700 

042700 

142777 

150077 

016700 

005200 

017702 

006202 

006202 

006202 

000302 

042702 

010001 

020102 

001442 

104455 

000012 

012706 

026302 

012746 

012746 

012746 

012746 

010600 

104414 

017702 

006202 

006202 

006202 

000302 

042702 

010216 

016746 

005216 

012746 

012746 

0TQ600 

104414 

062706 

104467 

006000 

103700 

000207 


157510 

177770 

000007 157110 

157104 

155436 

157152 


177740 


010664 

012150 

010246 

000003 


157070 


177740 

155324 

006506 

000003 


000016 


NOV 

BIC 

BICB 

BISS 

NOV 

INC 

NOV 

ASR 

ASR 

ASR 

SUAS 

BIC 

NOV 

CNP 

8EQ 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

ASR 

ASR 

ASR 

SWAB 

BIC 

NOV 

NOV 

INC 

NOV 

NOV 

NOV 

TRAP 

ADO 

TRAP 

ROR 

BLO 

RTS 


TEST CODE SECTION 

NUDUT x RO 
77776. RO 
#7,aNt.REG*40 
R0,8Nl.REG*40 
OP.NUN.ARR,RO 
RO 

aftl.REG*120,R2 

R2 

R2 

R2 

R 2 

#1 77740, R2 
R0.R1 
R1.R2 
2S 
55 
12 

ASVNC 

DUMPER 

#WRD.14,-(SP) 

#FNC.1,-(SP) 

#TWO.FNT,-($P) 

#3,-<SP) 

SP, RO 

14 

8NL.REG+120,R2 

R2 

R2 

R2 

R2 

II 77740, R2 
R2.CSP) 

OP.NUN.ARR,-(SP) 

(SP) 

#FNT.2,-(SP) 

#3,-<s£> 

SP.RO 

U 

#16, SP 

67 

RO 

15 
PC 


Routine Size: 67 words 

Maxim*! stack depth per invocation; 


SEQ 0236 



ZM-ADO ML-11 LOGIC TEST MACRO Mil 13 

mi TFST CODE SECTION 

10459 

10460 

10464 036510 Til 

10465 036510 004767 177566 IS: 

10466 036514 104466 

10467 036516 006000 

10468 036520 103773 

10469 036522 000207 

10470 

10471 

10472 

10477 

10478 

10479 ; 5515 !<BLF/PAGE> 


F 3 

30-MAR-82 11:18 PAGE 254 


.S8TTL 

Til TEST CODE SECTION 

JSR 

PC.ST11 

TRAP 

66 

ROR 

RO 

BLO 

IS 

RTS 

PC 


Routine Size: 6 words 

Maximum stick depth per invocation: 0 words 


SEQ 0237 

5513 



UML'.DO ML-11 LOGIC TEST 
Til TEST CODE SECTION 


G 3 
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SEO 0238 


10481 

10482 

10483 

10484 

10485 

10486 

10487 

10488 

10489 

10490 

10491 

10492 

10493 

10494 

10495 

10496 

10497 

10498 

10499 

10500 

10501 

10502 

10503 

10504 

10505 

10506 

10507 

10508 

10509 

10510 

10511 

10512 

10513 

10514 

10515 

10516 

10517 

10518 

10519 

10520 

10521 

10522 

10523 

10524 

10525 

10526 

10527 

10528 

10529 

10530 

10531 

10532 

10533 

10534 

10535 


NL4AD 


5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 
556 
556 

5564 

5565 

5566 

5567 


29-H«r-1982 16:23:04 

TEST CODE SECTION 29-Mar-1982 16:21:03 


BGNTST; 


TEST NUMBER: TST 12 

TEST NAME: NO-OP FUNCTION TEST 

1EST DESCRIPTION: 

TEST IF THE DRIVE CAN PERFORM 
A NO OP FUNCTION WITH OUT 
HANGING THE DRIVE. 

A NO OP FUNCTION IS WRITTEN 
INT0"MLCS1 . 

THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES. 

THIS UNIT IS DROPPED ON DETECTED 
ERRORS. 

IMPLICIT INPUTS: NONE 


8GNSUB; 

CLR.MBUS; 

MLCSl = NOOP; 
DELAY (ONEJJS); 

if .GO IS.SET 
then 


begin 

ERRDF (11, ASYNC, DUMPER! ; 
PRINTS (FIV.FMT, WRD.1, PHR. 
end; 


2 . 


WRD.1 1, 


•DO A NOOP FUNCTION 
.'DELAY 1 US 

.'SEE IF GO STILL SET 


•ERROR AND SET DODU.FLG 
FNC.2, WRD.19); 


if .ILF IS.SET 
then 

begin 

ERRDF (12, ASYNC, DUMPER); 
PRINTS (FIV.FMT, WRD.3, PHR.5, 
end; 


.'SEE ILF SET 

•ERROR AND SET DODU.FLG 
WRD.1 1, FNC.2, WRD.19); 


if .OPI IS.SET 
then 

begin 

ERRDF (13, ASYNC, DUMPER) ; 

PRINTB (FIV.FMT. WRD.4, PHR.5, WRD.11. 


! SEE IF CPI SET 

•ERROR AND SET DODU.FLG 
FNC.2. WRD.19); 


T0PS-20 Btiss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (64) 


IF STILL SET 


IF SET 


IF SET 


CZHLADO HL-11 LOGIC TEST 
Til TEST CODE SECTION 


H 3 
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SEQ 0239 


10537 ;HL4AD 






29-H*r-1982 

16:23:04 T0PS-20 Bliss-16 V2(212) 

10538 ; 


TEST CODE SECTION 



29-H*r-1982 

16:21:03 PA:<NEALE>HL4AD.8LI.4 (64) 

10539 

10540 ; 

5568 

end; 






10541 ; 

5569 







10542 ; 

5570 

E NO SUB; 






10543 ; 

10547 

10548 

5571 

ENOTST; 


.S8TTL 

ST12 TEST CODE 

SECTION 


10552 036524 

010146 


ST12: 

HOV 

R1 ,-(SP) 


0 

10553 036526 

005746 



TST 

-tSP) 



10554 036530 

104402 


IS: 

TRAP 

2 


0 

10555 036532 

152777 

000040 156704 


BISS 

#40,8HL.REG+40 


* 

10556 036540 

016701 

157266 


HOV 

HL.DUT.R1 

A177776.R1 



10557 036544 

042701 

177770 


BIC 



10558 036550 

142777 

000007 156666 


B1C8 

#7,aHL.REG*40 



10559 036556 

150177 

156662 


BISS 

R1,aML.REG+40 



10560 036562 

012777 

000001 156614 


HOV 

#1 ,SHL.REG 


; *,SSTMP2 

10561 036570 

012700 

000001 


HOV 

#1,R0 


10562 036574 

001410 


2S: 

BEO 

5$ 


; *.$$TMP1 

10563 036576 

016701 

143314 


HOV 

LSDLY.R1 


10564 036602 

001403 



BEO 

4$ 



10565 036604 

005016 


3$: 

CLR 

(SP) 


; SSTHP 

10566 036606 

005301 



DEC 

R1 


; SSTMP1 

10567 036610 

001375 



BNE 

3S 


; JSTMP2 

10568 036612 

005300 


4$: 

DEC 

RO 


10569 036614 

000767 



BR 

2$ 



10570 036616 

132777 

000001 156560 

5S: 

BITB 

Al.aHL.REG 



10571 036624 

001426 



BEO 

6$ 



10572 036626 

10573 036630 

104455 



TRAP 

55 



000013 



.WORD 

13 



10574 036632 

012706 



.WORD 

ASVNC 



10575 036634 

026302 



.WORD 

DUMPER 



10376 036636 
10577 036642 

012746 

010730 


HOV 

#WRD.19,-(SP> 


• 

012746 

012164 


HOV 

#FNC.2,-(SP> 



10578 036646 

012746 

010640 


HOV 

AWRD.II.-CSP) 



10579 036652 

012746 

011626 


HOV 

0PHR.2, -<SP) 



10580 036656 

10581 036662 

012746 

010520 


HOV 

AWRD.I.-CSP) 



012746 

010304 


HOV 

#FIV.FMT,-(SP> 



10582 036666 

10583 036672 

012746 

000006 


HOV 

#6,-<SP> 



010600 



HOV 

SP.RO 


; SP,* 

10584 036674 

104414 



TRAP 

14 



10585 036676 

062706 

000016 


ADD 

#16, SP 


• 

10586 036702 

10587 036710 

132777 

000001 156554 

6S: 

BITB 

#1,aML.REG+60 


9 

001426 



BEO 

7$ 



10588 036712 

104455 



TRAP 

55 


• 

9 

10589 036714 

000014 



.WORD 

14 



10590 036716 

10591 036720 

012706 



.WORD 

ASVNC 



026302 



.WORD 

DUMPER 




5514 

5518 

5544 



5549 

5552 

5553 


5551 

5556 

5559 


CZMLADO ML-11 LOGIC TEST 
ST12 TEST CODE SECTION 
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10593 

10594 

10595 

10596 

10597 

10598 

10599 

10600 
10601 
10602 

10603 

10604 

10605 

10606 

10607 

10608 

10609 

10610 
10611 
10612 

10613 

10614 

10615 

10616 

10617 

10618 

10619 

10620 
10621 
10622 
10625 

10624 

10625 

10626 

10627 

10628 

10629 

10630 

10635 

10636 

10640 

10641 

10645 

10646 

10647 


036722 

036726 

036732 

036736 

036742 

036746 

036752 

036756 

036760 

036762 

036766 

036774 

036776 

037000 

037002 

037004 

037006 

037012 

037016 

037022 

037026 

037032 

037036 

037042 

037044 

037046 

037052 

037054 

037056 

037060 

037062 

037064 


012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

032777 

001426 

104455 

000015 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103624 

005726 

012601 

000207 


037066 

037066 

037072 


; ML 4 AO 


010730 

012164 

010640 

011714 

010536 

010304 

000006 


000016 

020000 156470 


7S: 


TEST CODE SECTION 

MOV fWRD.19,-(SP) 

MOV fFNC.2.-($P) 

MOV fWRD.il ,-(SP) 

MOV fPHR.5,-(SP> 

MOV fWRD.3,“(SP) 

MOV fFJV.FMT.-(SP) 

MOV #6.-<SP> 

MOV SP.ftO 

TRAP 14 

ADD I16.SP 

81 T f 20000 .8ML.REG+60 

BEQ 8S 

TRAP 55 

.WORD 15 


; SP,* 



.WORD 

ASYNC 



.WORD 

DUMPER 


010730 

MOV 

#WRD.19.-(SP) 

• 

• 

012164 

MOV 

fFNC.2.-(SP) 


010640 

MOV 

fWRD.11 ,-(SP) 


011714 

MOV 

fPHR.5,-(SP> 


010544 

MOV 

#WRD.4,-(SP> 


010304 

MOV 

fF)V.FNT.-(SP) 


000006 

MOV 

f6.-(SP) 



MOV 

SP.RO 

• 

9 


TRAP 

14 


000016 

ADD 

f16.SP 

• 

• 


8S: TRAP 

67 

* 

• 


ROR 

RO 



BLO 

1$ 



TST 

(SP)* 

• 

• 


MOV 

(SP)*, R1 



RTS 

PC 



; SP.* 


; Routine Size: 113 words 
; Maximum stack depth per invocation: 9 words 


004767 177432 
104466 


T12; 

IS: 


.S8TTL T12 TEST CODE SECTION 


JSR 

TRAP 


PC.8T12 

66 


SEQ 0240 

29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 

5560 


5558 

5563 

5566 

5567 


5565 

5568 

5514 


5570 



SEQ 0241 


29-flar-1982 16:23:04 TOPS 

29-«ar-1982 16:21:03 PA:< 


0 words 


CZMLADO ML-11 LOGIC TEST 
H2 TEST CODE SECTION 
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K 3 
PAGE 259 


SEO 0242 


10666 ;ML4AD 

10667 , 

10668 

10669 ; 5573 

10670 ; 5574 

10671 ; 5575 

10672 ; 5576 

10673 ; 5577 

10674 ; 5578 

10675 ; 5579 

10676 ; 5580 

10677 ; 5581 

10678 ; 5582 

10679 ; 5583 

10680 ; 5584 

10681 ; 5585 

10682 ; 5586 

10683 ; 5587 

10684 ; 5588 

10685 ; 5589 

10686 ; 5590 

10687 ; 5591 

10688 ; 5592 

10689 ; 5593 

10690 ; 5594 

10691 ; 5595 

10692 ; 5596 

10693 ; 559/ 

10694 ; 5598 

10695 ; 5599 

10696 ; 5600 

10697 ; 5601 

10698 ; 5602 

10699 ; 5603 

10700 ; 5604 

10701 ; 5605 

10702 ; 5606 

10703 ; 5607 

10704 ; 5608 

10705 ; 5609 

10706 ; 5610 

10707 ; 5611 

10708 ; 5612 

10709 ; 5613 

10710 ; 5614 

10711 ; 5615 

10712 ; 5616 

10713 ; 5617 

10714 ; 5618 

10715 ; 5619 

10716 ; 5620 

10717 ; 5621 

10718 ; 5622 

10719 ; 5623 

10720 ; 5624 


TEST C'MIE SECTION 


BGNTST; 


TEST NUMBER: TST 13 

TEST NAME: WRITE CHECK FUNCTION TEST 

TEST DESCRIPTION: 

TEST IF THE DRIVE CAN PERFORM 
A WRITE CHECK FUNCTION WITHOUT 
HANGING THE DRIVE. 

A WRITE CHECK FUNCTION IS WRITTEN 
INTO MLCS1 . 

THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES 


local 

DODU.FLG; 

BGNSUB; 

CLR MBUS; 

DODO FIG = ZERO; 
FIRST 8LK XFER <); 
MLCS1 = WRT.CHK; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (65) 


.'DROP UNIT FLAG 


.'SET UP A FIRST BLK XFERR 
.'DO A WRITE CHECK FUNCTION 

!SEE IF THE GO BIT GOT SET 


if .GO IS.NOT.SET !SEE IF THE GO BI1 

than 

ER^DF (14. ASYNC. DUMPER); ! ERROR IF NOT SET 

PRINTS (FIV.FMT. WRDJ. PHRJ. WRDJ2, FNC.4, WRD.19); 


if .DRY IS NOT SET .'SEE IF THE DRY I 

th»n 

ErIKf (15. ASYNC. DUMPER); , .'ERROR IF CLEARED 

PRINTS (FIV FMT. WRD_2, PHRJ, WRD.43. WRDJ. PHRJ); 
and; 


.'SEE IF THE DRY IS SET WHILE GO IS CLEARED 


DODU.FLG = ONE; 
and 


if .DRY IS.SET 
than 

bag in 

ERRDF (16. ASYNC. DUMPER); 


.'SET DODU.FLG 


! THE GO IS SET SO SEE IF DRY IS CLEARED 
S ERROR IF DRY IS SET 


L 



CZHLADO Ml -11 LOGIC T£S 
P2 TEST CODE SECTION 
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SEO 0243 


10722 ;ML4AD 

10723 : 

10724 

10725 ; 5625 

10726 ; 5626 

10727 ; 5627 

10728 ; 5628 

10729 ; 5629 

10730 ; 5630 

10731 ; 5631 

10732 ; 5632 

10733 ; 5633 

10734 ; 5634 

10735 ; 5635 

10736 ; 5636 

10737 ; 5637 

10738 ; 5638 

10739 ; 5639 

10740 ; 5640 

10741 ; 5641 

10742 ; 5642 

10743 ; 5643 

10744 ; 5644 

10745 ; 5645 

10746 ; 5646 

10747 ; 5647 

10748 ; 5648 

10749 ; 5649 

10750 ; 5650 

10751 ; 5651 

10752 ; 5652 

10753 ; 5653 

10754 ; 5654 

10755 ; 5655 

10756 ; 5656 

10757 ; 5657 

10758 ; 5658 

10759 ; 5659 

10760 ; 5660 

10761 ; 5661 

10762 ; 5662 

10763 ; 5663 

10764 ; 5664 

10765 ; 5665 

10766 ; 5666 

10767 ; 5667 

10768 ; 5668 

10769 ; 5669 

10770 ; 5670 

10771 ; 5671 

10772 ; 5672 

10773 ; 5673 

10774 ; 5674 

10775 ; 5675 

10776 ; 5676 


If 5T COOE SECTION 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PAr<NEALE>ML4AD.8LI .4 (65) 


PRINTB (FIV FMT, WRD 2. PHP.2. WRD.43, WRD.1, PHR.5); 

DODU.FLG = ONE; 

end; 


if .ILF IS.SET 
then 

begin 
ERRDF 


• SEE IF ILF IS SET 


(17, ASYNC, DUMPER); . .'ERROR IF SET 

PRINTB (FIV.FMT. WRD.3, PHR.5, WRD.12, FNC.4, WRD.19); 
end; 


if .OPI IS.SET 
then 


!SEE IF OPI IS SET 


begin 

ERRDF 


(18. ASYNC. DUMPER); 'ERROR IF SET 

PRINTB (FIV.FMT, WRD.4 , PHR.5, WRD.12, FNC.4, WRD.19); 
end; 


DELAY (FRTY.US); 

if .DRY IS.NOT.SET 
then 

begin 

if .GO IS.SET 
then 

begin 

CLR.MBUS; 


!¥AIT FO XFERR TO COMPLTE 
iSEE IF DRY IS SETS AFTER XFERR 

l IF DRY IS NOT SET THEN SEE IF GO IS SET 
•IF THE GO IS SET THEN TRY TO CLR GO 


else 


if .GO IS.SET then ERRDF (19. ASYNC, DUMPER) else ERRDF (20, SYNC, DUMPER); 

! IF GO IS STILL SET THEN ASYNC FAILURE 

PRINTB (FIV.FMT, WRD.1. PHR.2, VRD.11. FNC.4. WRD.19); .'ELSE SYNC MODLE FAILURE 
end 


ER&F (21. ASYNC. DUMPER); 'ERROR GO AND DRV BOTH CLEARED 

PRINTB (FIV.FMT, WRD. 2, PHR.1 , WRD.1 1, FNC.4. WRD.19); 

end; 


DODU.FLG = ONE; 
end; 

if .GO IS.SET 
then 

begin 

CLR.MBUS; 


.'SET THE DODU.FLG 

ISEE IF THE GO IS STILL SET 


I TRY TO CLR GO IF STILL SET 
if .GO IS.SET then ERRDF (22. ASYNC, DUMPER) else ERRDF (23, SYNC, DUMPER); 

! IF GO IS STILL SET THE ASYNC FAILURE 

PRINTB (FIV.FMT. WRD.1, PHR.2. WRD.11. FNC.4, WRD.19); ! ELSE SYNC MODULE FAILURE 


IZMIADO ML-11 LOGIC TEST MACRO M1113 

30-MAR-82 

N 3 

11:18 PAGE 261 


T12 TEST CODE SECTION 





10778 ; ML4 AD 




29-Mar-1982 

16:23:04 TOPS-20 Bliss-16 V2<212> 

10779 ; 


TEST CODE SECTION 


29-Mar- 1982 

16:21:03 PA:<NEALE>ML4AD.8LI .4 (65) 

10780 






10781 ; 

5677 

DODU.FLG = ONE; 




10782 ; 

5678 

end; 




10783 ; 

5679 





10784 ; 

5680 

END SU6; 




10785 ; 

5681 





10786 ; 

5682 

if .DODU.FLG IS.SET 


! DROP THIS 

UNIT IF DODU.FLG IS.SET 

10787 ; 

5683 

then 




10788 ; 

5684 

begin 




10789 ; 

5685 

DODU (.ML.LUN); 




10790 ; 

5686 

DOCLN; 




10791 ; 

5687 

end; 




10792 ; 

5688 





10793 ; 

1 A70? 

5689 

ENDTST; 




}{jf vr 

10798 



.SBTTL 

ST13 TEST CODE SECTION 


10802 037102 

004167 

145432 ST13 

JSR 

R1.SSAVE2 

0 

10803 037106 

005746 


TST 

-<SP) 


10804 037110 

104402 

IS: 

TRAP 

2 

• 

0 

10805 037112 

152777 

000040 156324 

BISS 

#40,8ML .REG+40 

0 

10806 037120 

016701 

156706 

NOV 

ML.DUT.R1 


10807 037124 

042701 

177770 

BIC 

#1 77770, R1 


10808 037130 

142777 

000007 156306 

BIC8 

#7,BNL.REG*40 


10809 037136 

150177 

156302 

81 SB 

R1 ,8NL.REG*40 


10810 037142 

005002 


CLR 

R 2 

; DODU.FLG 

10811 037144 

004767 

161112 

JSR 

PC, FIRST. BLK.XFER 

0 

10812 037150 

012777 

000051 156226 

NOV 

#51 ,3ML.REG 

• 

0 

10813 037156 

132777 

000001 156220 

BIT8 

#1,3ML.REG 

0 

10814 037164 

001057 


BNE 

25 


10815 037166 

104455 


TRAP 

55 

0 

10816 037170 

000016 


.WORD 

16 


10817 037172 

012706 


.WORD 

ASVNC 


10818 037174 

026302 


.WORD 

DUMPER 


10819 037176 

012746 

010730 

MOV 

#WRD.19,-(SP) 

0 

10820 037202 

012746 

012200 

NOV 

#FNC.4.-(SP) 


10821 037206 

012746 

010650 

NOV 

#WRD.12,-(SP> 


10822 037212 

012746 

011610 

NOV 

#PHR.1,-(SP) 


10823 037216 

012746 

010520 

NOV 

#WRD.1 ,-(SP) 


10824 037222 

012746 

010304 

NOV 

#FIV.FNT,-(SP) 


10825 037226 

012746 

000006 

MOV 

#6,-<SP) 


10826 037232 

010600 


NOV 

SP.RO 

; SP.* 

10827 037234 

104414 


TRAP 

14 


10828 037236 

132777 

000200 156210 

BITS 

#200,i»ML.REG+50 

• 

• 

10829 037244 

001056 


BNE 

35 


10830 037246 

104455 


TRAP 

55 

• 

0 

10831 037250 

000017 


.WORD 

17 


10832 037252 

012706 


.WORD 

ASYNC 



SEQ 0244 


5571 

5596 

5598 


5600 

5601 

5602 
5604 

5607 


5608 


5610 

5613 


N 3 
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ST 1 . 3 TEST CODE SECTION 


10834 





;ML4AD 


10835 

10836 

10837 





9 


037254 

026302 




.WORD 

10838 

037256 

012746 

011726 



MOV 

10839 

037262 

012746 

010520 



MOV 

10840 

037266 

012746 

011176 



MOV 

10841 

037272 

012746 

011610 



MOV 

10842 

037276 

012746 

010524 



MOV 

10843 

037302 

012746 

010304 



MOV 

10844 

037306 

012746 

000006 



MOV 

10845 

037312 

010600 




MOV 

10846 

037314 

104414 




TRAP 

10847 

037316 

062706 

000016 



ADD 

10848 

037322 

000427 

156124 


2 %: 

BR 

10849 

037324 

105777 


TSTB 

10850 

037330 

100030 




BPL 

10851 

037332 

104455 




TRAP 

10852 

037334 

000020 




.WORD 

10853 

037336 

012706 




.WORD 

10854 

037340 

026302 

011714 



.WORD 

10855 

037342 

012746 



MOV 

10856 

037346 

012746 

010520 



MOV 

10857 

037352 

012746 

011176 



MOV 

10858 

037356 

012746 

011626 



NOV 

10859 

037362 

0127**6 

010524 



MOV 

10860 

C37366 

012746 

010304 



MOV 

10861 

037372 

012746 

000006 



MOV 

10862 

037376 

010600 




MOV 

10863 

037400 

104414 



3$: 

TRAP 

10864 

037402 

012702 

000001 


MOV 

10865 

037406 

062706 

000016 


4$: 

ADD 

10866 

037412 

132777 

000C01 

156044 

BITB 

10867 

037420 

001426 




BEQ 

10868 

037422 

104455 




TRAP 

10869 

037424 

000021 




.WORD 

10870 

037426 

012706 




.WORD 

10871 

037430 

026302 

010730 



.WORD 

10872 

037432 

012746 



MOV 

10873 

037436 

012746 

012200 



MOV 

10874 

037442 

012746 

010650 



MOV 

10875 

037446 

012746 

011714 



MOV 

10876 

037452 

012746 

010536 



MOV 

10877 

037456 

012746 

010304 



MOV 

10878 

037462 

012746 

000006 



MOV 

10879 

037466 

010600 




MOV 

10880 

037470 

104414 




TRAP 

10881 

037472 

062706 

032777 

0^0016 



ADD 

10882 

037476 

020000 

155760 

5$: 

BIT 

10883 

10884 

037504 

037506 

001426 

104455 




BEQ 

TRAP 

? 0885 

037510 

000022 




.WORD 

10886 

057512 

012706 




.WORD 

10887 

037514 

026302 




.WORD 

'0888 

037516 

012746 

010730 



MOV 


TEST CODE SECTION 

DUMPER 

#PHR.6,-(SP> 

#WRD.1.-(SP) 

#WRD.43,-(SP> 

#PHR.1,-(SP> 

#WRD.2,-(SP) 

#FIV.FNT,-(SP) 

#6,-(SP) 

SP.RO 

14 

#16,SP 

3$ 

iWL.REG+50 

4$ 

55 

20 

ASYNC 

DUMPER 

#PHR.5,-<SP> 

#WRD.1 ,-(SP) 

#URD.43,-(SP) 

#PHR.2,-<SP> 

#WRD.2,-(SP) 

#FIV.FNT,-<SP> 

#6.-<SP> 

SP.RO 

14 

#1 ,R2 
#16, SP 

#1 ,8ML.REG+60 
5$ 

55 

21 

ASYNC 

DUMPER 

#WRD.19,-(SP> 

#FNC.4.-(SP) 

#WRD.12.-<SP) 

#PHR.5.-(SP> 

#WR0.3,-(SP) 

fFIV.FMT.-(SP) 

#6,-(SP) 

sp.no 

14 

#16.SP 

120000, BNL.REG+60 

% 

22 

ASYNC 

DUMPER 

#WRD.19,-<SP> 


SEO 0245 

29-Mar-1982 16:23:04 TOPS 

29-Mir-1982 16:21:03 PA:< 


5614 


SP,* 


; SP,* 

; *,DODU.FLG 


5612 

5617 

5621 

5624 


5625 


5626 

5623 

5629 

5632 


5633 


; S P,* 

• 

4 

m 

# 


5631 

5636 

5639 


5640 


CZNIADO HL-11 LOGIC TEST 
$713 TEST CODE SECTION 


NACRO mi 13 30-NAR-82 11:18 PAGE 


10890 

10891 

10892 

10893 

10894 

10895 

10896 

10897 

10898 

10899 

10900 

10901 

10902 

10903 

10904 

10905 

10906 

10907 

10908 

10909 

10910 

10911 

10912 

10913 

10914 

10915 

10916 

10917 

10918 

10919 

10920 

10921 

10922 

10923 

10924 

10925 

10926 

10927 
1092# 
10 r 29 
',17930 
*0931 
!0932 

10933 

10934 

10935 

10936 

10937 

10938 

10939 

10940 

10941 

10942 

10943 

10944 


;NL4AD 


037522 

037526 

037532 

037536 

037542 

037546 

037552 

037554 

037556 

037562 

037566 

037570 

037574 

037576 

037600 

037602 

037604 

0376C6 

037610 

037616 

037620 

037626 

037630 

037636 

037642 

037646 

037654 

037660 

037666 

037670 

037672 

037674 

037676 

037700 

037702 

037704 

037706 

037710 

037712 

037716 

037722 

037726 

037732 

037736 

037742 

037746 

037750 

037752 

037754 

037756 

037760 

037762 


012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

132777 

001106 

132777 

001452 

152777 

016701 

042701 

142777 

150177 

132777 

001405 

104455 

000023 

012706 

026302 

000404 

104455 

000024 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

000424 

104455 

000025 

012706 

026302 


012200 

010650 

011714 

010544 

010304 

000006 


000016 

000050 

142322 


000200 155636 10$: 

000001 155556 

000040 155606 

156170 

177770 

000007 155570 
155564 

000001 155516 


010730 

012200 

010640 

011626 

010520 

010304 

000006 


TEST CODE SECTION 

NOV #FNC.4.-(SP> 

NOV #WRD.12,-(SP) 

NOV #PHR.5,-(SP> 

NOV #WRD.4,-(SP) 

NOV #FIV.FNT,-(SP) 

NOV #6,-(SP> 

NOV SP,RO 

TRAP 14 

ADD #16, SP 

NOV #50, RO 

BEQ 10$ 

NOV L$DLY,R1 

BEQ 9$ 

CLR (SP) 

DEC R1 

BNE 8$ 

DEC RO 

BR 7$ 

BITB #200,3NL.REG+50 
BNE 15$ 

BITB #1 -BNL.REG 

BEQ 13$ 

81 SB #40,BNL.REG+40 

NOV Nl.DUT.R1 

BJC #1 77776, R1 

BICB #7,8NL.REG+40 

81 SB R1 ,8NL.REG+40 

BITB #1 .BNL.REG 

BEQ 11$ 

TRAP 55 

.WORD 23 

.WORD ASVNC 

.WORD DUMPER 

BR 12$ 

TRAP 55 

.WORD 24 

.WORD SYNC 

.WORD DUNPER 

NOV #WRD.19,-(SP> 

NOV #FNC.4,-(SP) 

NOV #WRD.1 1 ,-(SP) 

NOV #PHR.2,-(SP) 

NOV #WRD.1 ,-(SP) 

NOV #FIV.FNT,-(SP) 

NOV #6,-(SP) 

NOV SP,RO 

TRAP 14 

BR 14$ 

TRAP 55 

.WORD 25 

.WORD ASYNC 

.WORD DUNPER 


SEQ 0246 


29-Nar-1982 16:23:04 TOPS 

29-Nar-1982 16:21:03 P A:< 


S P,* 

*,$$TMP2 

*,$$TNP1 

$$TNP 

$$TNP1 

$$TNP2 



5649 

5651 

5654 


5657 


; SP,* 


5649 

5661 


CZMLADO ML-11 LOCK TEST 
ST 1 3 TEST CODE SECTION 


10946 

10947 

10948 

10949 

10950 

10951 

10952 

10953 

10954 

10955 

10956 

10957 

10958 

10959 

10960 

10961 

10962 

10963 

10964 

10965 

10966 

10967 

10968 

10969 

10970 

10971 

10972 

10973 

10974 

10975 

10976 

10977 

10978 

10979 

10980 

10981 

10982 

10983 

10984 

10985 

10986 

10987 

10988 
1098V 

10990 

10991 

10992 

10993 

10994 

10995 

10996 

10997 

10998 

10999 

rooo 


037764 

037770 

037774 

040000 

040004 

040010 

040014 

040020 

040022 

040024 

040030 

040034 

040042 

040044 

040052 

040056 

040062 

040070 

040074 

040102 

040104 

040106 

040110 

040112 

040114 

040116 

040120 

040122 

040124 

040126 

040132 

040136 

040142 

040146 

040152 

040156 

040162 

040164 

040166 

040172 

040176 

040200 

040202 

040204 

040210 

040212 

040214 

040220 

040222 

040224 

040226 


012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012702 

062706 

132777 

001455 

152777 

016701 

042701 

142777 

150177 

132777 

001405 

104455 

000026 

012706 

026302 

000404 

104455 

000027 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012702 

062706 

104467 

006000 

103002 

000167 

005302 

001004 

016700 

104451 

104444 

005726 

000207 


010730 

012200 

010640 

011610 

010524 

010304 

000006 


000001 

000016 

000001 155342 

000040 155372 

155754 

177770 

000007 155354 
155350 

000001 155302 


010730 

012200 

010640 

011626 

010520 

010304 

000006 


000001 

000016 


176700 


155610 




C 4 


113 

30-MAR-82 

11:18 PAGE 264 


:HL4AD 



• 


TEST CODE SECTION 



MOV 

#WRD.19.-(SP> 

0 


MOV 

#FNC.4.-(SP> 



MOV 

fWRD.11 ,“(SP) 



MOV 

fPHR.1 ,-(SP) 



MOV 

#WRD.2.-<SP) 



MOV 

fFlV.FMT.-CSP) 



MOV 

#6,-(SP) 



MOV 

SP.RO 

; SP,* 


TRAP 

14 


14$: 

MOV 

#1.R2 

; *,DODU.FLG 


ADD 

#16, SP 

! 

15$: 

BIT8 

f1.8ML.REG 

m 

0 


BEQ 

18* 



8IS8 

#40.8ML.REG+40 

0 


MOV 

BIC 

ML.DUT.R1 
#1 77776, R1 



81 CB 

#7,8ML.REGH0 



81 SB 

R1.8ML.REG+40 



81 T8 

f1.8ML.REG 

0 


BEO 

16* 



TRAP 

55 



.WORD 

26 



.WORD 

ASYNC 



.WORD 

DUMPER 



&R 

17$ 


16$: 

TRAP 

55 



.WORD 

27 



.WORD 

SYNC 



.WORD 

DUMPER 


17$: 

MOV 

#WRD.19,-(SP) 

0 


MOV 

#FNC.4.-(SP) 



MOV 

fWRD.11 ,-(SP) 



MOV 

#PHR.2,-CSP> 



MOV 

#WRD.1,-(SP> 



MOV 

#FIV.FMT,-(SP> 



MOV 

#6,-(SP> 



MOV 

SP,RO 

; SP.* 


TRAP 

14 



MOV 

f1,R2 

; *,DODU.FLG 


ADD 

#16. SP 

0 

18$: 

TRAP 

67 

0 


ROR 

RO 



8H1S 

19$ 



JMP 

1$ 


19$: 

DEC 

R2 

; DODU.FLG 


BNE 

20$ 



MOV 

ML.LUN.RO 

0 


TRAP 

51 



TRAP 

44 


20$: 

TST 

(SP>* 

• 

0 


RTS 

PC 



SEQ 0247 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


s 


C2NLAD0 NL-11 LOGIC TEST 
ST13 TEST CODE SECTION 


11002 

11003 

11004 

11005 

11006 
11011 
11012 
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SEQ 0248 


;Ml4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


; Routine Size: 299 words 

; Maximus stack depth per invocation: 18 words 


11016 

11017 

11021 

11022 

11023 

11024 

11025 

11026 

11027 

11028 
11029 

11034 

11035 

11036 


040230 

040230 

040234 

040236 

040240 

040242 


176646 


004767 

104466 

006000 

103773 

000207 


5690 !<BLF/PAGE> 


T13: : 
IS: 


.S8TTL T13 TEST CODE SECTION 


JSR 

TRAP 

ROR 

8L0 

RTS 


PC.ST13 

66 

RO 

IS 

PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


CZMLADO nt-11 LOGIC TEST 
T 1 3 TEST CODE SECTION 
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SEQ 0249 


11038 

11039 

11040 

11041 

11042 

11043 

11044 

11045 

11046 

11047 

11048 

11049 

11050 

11051 

11052 

11053 

11054 

11055 

11056 

11057 

11058 

11059 

11060 
11061 
11062 

11063 

11064 

11065 

11066 

11067 

11068 

11069 

11070 

11071 

11072 

11073 

11074 

11075 

11076 

11077 

11078 

11079 

11080 
11081 
11082 

11083 

11084 

11085 

11086 

11087 

11088 

11089 

11090 

11091 

11092 


HL4AD 


5691 

5692 

5693 

5694 

5695 
56% 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 


TEST CODE SECTION 


29-Har-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS -20 Bliss-16 V2(212> 
PA: <NE ALE >Nl4AD.8Li .4 (66) 


BGNTST; 


♦♦ 

TEST NUMBER: 
TEST NAME: 


TST 14 

WRITE FUNCTION TEST 


TEST DESCRIPTION: 

TEST IF THE DRIVE CAN PERFORM A WRITE FUNCTION WITHOUT 
HANGING THE DRIVE. 

A WRITE FUNCTION IS WRITTEN INTO NLCS1. THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATUS. THIS UNIT IS DROPPED ON DETECTED ERRORS. 


local 

DODU.FLG; 

BGNSUB; 

CLR MBUS; 

DODO FLG = ZERO; 

FIRST.BLK XFER (); 

MLCS1 = writ*; 

if .GO IS NOT.SET 
than 

begin 

ERRDF (24, ASYNC. DUMPER); 

PRINTS (FIV.FMT, WRD.1, PHR.1, WRD. 

if .DRY IS.NOT.SET 
then 

begin 

ERRDF (25, ASYNC. DUMPER); 
PRINTS (FIV.FMT, WRD.2, PHR.1 , 
end; 

DODU.FLG = ONE; 
end 


if .DRY IS SET 
then 

begin 

ERRDF (26, ASYNC, DUMPER) ; 
PRINTS (FIV FMT, WRD 2, PHR 2. 
DODU.FLG = ONE; 
end; 

if .ILF IS.SET 
then 


!DROP UNIT FLAG 


•SET UP A FIRST BLOCK XFERR 
•DO A WRITE FUNCTION 

.'SEE IF THE GO IS SET 

•ERROR IF NOT SET 


.12, FNC.5, WRD.19); 


•SEE IF DRY SET WITH GO CLEAR 


WRD.43, WRD.1 , PHR.6) ; 

ISET DODU.FLG 


•GO IS SET DURING FUNCTION 
•SEE IF DRY CLEAR WITH GO SET 


•ERRD° IF SET 
WRD.43. WRD.1, PHR.5); 


•DID FUNCTION CAUSE ILF 


CZMLADO 
T13 TEST 

11094 

11095 

11096 

11097 

11098 

11099 

11100 
11101 
11102 

11103 

11104 

11105 

11106 

11107 

11108 

11109 

11110 
11111 
11112 

11113 

11114 

11115 

11116 

11117 

11118 

11119 

11120 
11121 
11122 
11123 


HL-11 LOGIC TEST 
COOE SECTION 


MACRO Nil 13 30-MAR-82 11:18 


F 4 
PAGE 267 


SEO 0250 


ML4AD 


5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 


TEST COOE SECTION 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V21212) 
PA:<NEAlE>ML4AD.8lI.4 (66) 


!ERROR If YES 

ERRDf (27, ASYNC# Dl*P£A); „ 

PRINTS (FIV.FMT# WRD_3. PHR.5# WRD _12, FNC.5# WRD.19); 
end; 


if .OPI IS.SET 
then 

begin 
ERRDF 


(nnvr (28# ASYNC# OlfPER); 

PRINTS (FIV.FMT# WRD.4, PHR.5# WRD.1 2, FNC.5, WRD.19); 
end; 


•DID FUNCTION CAUSE OPI 
! ERROR IF YES 


DELAY (FRTV.US); 

if .DRV IS.NOT.SET 
then 

oegin 

if .GO IS.SET 
then 

begin 

CLR.MBUS; 


.'WAIT FOR XFERR TO COMPLETE 
! SEC IF DRY CLEARED AFTER XFERR 

•TST GO CLR IF DRY NOT SET 


if 


•CLEAR GO IF STILL SET 
GO IS.SET then ERRDF (29# ASYNC# DUMPER) else ERRDF (30# SYNC, DUMPER); 


•TST GO TO DETERMINE FAILING MOD 
PRINTS (FIV.FMT# WRD.1# PHR.2, WRD.11# FNC.5, WRD.19); 

else*"* !DRY NOT SET AND GO CLEARED 

begin 'REPORT ERROR 

ERRDF (31, ASYNC. DUMPER); 

PRINTS (FIV.FMT. WRD.2# PHR.1 , WRD.11# FNC.5# WRD.19); 
end; 


•SET DODU.FLG 

•SEE IF GO CLEARED AFTER XFERR. 


DODU.FLG = ONE; 
end; 

if .GO IS.SET 
then 

begin 

CLR.MBUS; ! CLEAR GO IF STILL SET 

if .GO IS.SET then ERRDF (32# ASYNC# DUMPER) else ERRDF (33, SYNC# DUMPER); 

•TST GO TO DETERMINE FAILING MOD 
PRINTS (FIV FMT, WRD.1# PHR.2# WRD.11# FNC.5# WRD.19); 

DODU.FLG = ONE; 
end; 

ENDSUB; 

if .TRE IS.SET 


! SEE IF XFERR CAUSED A TRANSFER ERROR 



CZNLADO Nl-11 LOGIC TEST 
T13 TEST CODE SECTION 
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SEQ 0251 


11150 

11151 

11152 

11153 

11154 

11155 

11156 

11157 

11158 

11159 

11160 
11161 
11162 

11163 

11164 

11165 

11166 

11170 

11171 

11175 

11176 

11177 

11178 

11179 

11180 
11181 
11182 

11183 

11184 

11185 

11186 

11187 

11188 

11189 

11190 

11191 

11192 

11193 

11194 

11195 

11196 

11197 

11198 

11199 

11200 
11201 

lifol 

11204 


;NL4AD 


040244 

040250 

040252 

040254 

040262 

040266 

040272 

040300 

040304 

040306 

040312 

040320 

040326 

040330 

040332 

040334 

040336 

040340 

040344 

040350 

040354 

040360 

040364 

040370 

040374 

040376 

040400 

040406 

040410 

040412 


004167 

005746 

104402 

152777 

016701 

042701 

142777 

150177 

005002 

004767 

012777 

132777 

001057 

104455 

000030 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

132777 

001056 

104455 

000031 


TEST CODE SECTION 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>NL4AD.BLI.4 (66) 


begin ‘REPORT ERROR IF SE 

PHR.5, WRD.12, FNC.5, WRD.19); 

end; 


‘REPORT ERROR IF SET AND CONTINUE TESTING 


if .DODU.FLG IS.SET 
then 

begin 

DODU l.NL.LUN); 

DOCLN; 

end; 

ENDTST; 


144270 


000040 155162 

155544 

177770 

000007 155144 
155140 

157750 

000061 155064 

000001 155056 


010730 

012216 

010650 

011610 

010520 

010304 

000006 


000200 155046 


•DROP THIS UNIT IF DODU.FLG SET 


.S8TTL 

JSR 

TST 

TRAP 

BIS6 

NOV 

BIC 

BICB 

BISB 

CLR 

JSR 

NOV 

81 TB 

8NE 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

BITS 

BNE 

TRAP 

.WORD 


$T14 TEST CODE SECTION 

R1 .SSAVE2 

-(SP) 

2 

#40,BNL.REG*40 

NL.DUT.R1 

#1 77776, R1 

#7,BNL.REG« , 40 

Rl,aNl.REG+40 

R2 

PC.FIRST.BUC.XFER 
#61 ,BNL.REG 
#1 ,9NL.REG 
21 
55 

30 

ASVNC 

DUNPER 

#WRD.19,-(SP) 

#FNC.5.-(SP) 

#WRD.12,-(SP> 

#PHR.1,-(SP) 

#WRD.1,-(SP) 

#FIV.FNT.-(SP) 

#6,-(SP) 

SP.RO 

14 

#200,3NL.REG+50 

3S 

55 

31 


; DODU.FLG 


5720 


C2HLA00 ML-11 LOGIC TEST 
$T14 TEST CODE SECTION 


11206 

11207 

11 208 

11209 

11210 
11211 
11212 

11213 

11214 

11215 

11216 

11217 

11218 

11219 

11220 
11221 
11222 

11223 

11224 

11225 

11226 

11227 

11228 

11229 

11230 

11231 

11232 

11233 

11234 

11235 

11236 

11237 

11238 

11239 

11240 

11241 

1 1242 

11243 

11244 

11245 

11246 

11247 

11248 

11249 

11250 

11251 

11252 

11253 

11254 

11255 

11256 

11257 

11258 

11259 

1 1260 
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;N14AD 


040414 

040416 

040420 

040424 

040430 

040434 

040440 

040444 

040450 

040454 

040456 

040460 

040464 

m 

040474 

040476 

040500 

040502 

040504 

040510 

040514 

040520 

040524 

040530 

040534 

040540 

040542 

040544 

040550 

040554 

040562 

040564 

040566 

040570 

040572 

040574 

040600 

040604 

040610 

040614 

040620 

040624 

040630 

040632 

040634 

040640 

040646 

040650 

040652 

040654 

040656 


012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

1057^7 

100030 

104455 

000032 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012702 

062706 

132777 

001426 

104455 

000033 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

032777 

001426 

104455 

000034 

012706 

026302 


011726 

010520 

011176 

011610 

010524 

010304 

000006 


000016 

154762 


011714 

010520 

011176 

011626 

010524 

010304 

000006 


000001 

000016 

000001 


010730 

012216 

010650 

011714 

010536 

010304 

000006 


000016 

020000 


154702 4$: 


.WORD 

TEST CODE SECTION 

ASYNC 

.WORD 

DUMPER 

NOV 

#PHR.6,-(SP> 

NOV 

#WRD.1.-<SP> 

NOV 

#WRD.43.-<SP> 

NOV 

#PHR.1.-(SP> 

NOV 

#WRD.2,-(SP) 

NOV 

#FIV.FNT,-(SP> 

NOV 

#6,-(SP> 

NOV 

SP,RO 

TRAP 

14 

ADD 

#16, SP 

BR 

3$ 

TSTB 

8NL.REG+50 

BPL 

4$ 

TRAP 

55 

.WORD 

32 

.WORD 

ASYNC 

.WORD 

DUNPER 

NOV 

#PHR.5,*(SP) 

NOV 

#WRD.1,-CSP> 

#WRD.43,-(SP> 

NOV 

NOV 

#PHR. 2,-<SP> 

NOV 

#WRD.2,-(SP) 

NOV 

#FIV.FNT,-CSP) 

NOV 

#6»-(SP) 

NOV 

SP,RO 

TRAP 

14 

NOV 

#1 ,R2 

ADD 

#16, SP 

BIT8 

#1 ,BML.REG+60 

BEO 

5$ 

TRAP 

55 

.WORD 

33 

.WORD 

ASYNC 

.WORD 

DUNPER 

NOV 

#WRD.19,-CSP) 

NOV 

#FNC.5.-(SP) 

#WRD.12,-<SP) 

NOV 

NOV 

#PHR.5,-(SP) 

NOV 

#WRD.3,-(SP) 

NOV 

#FIV. FNT,-(SP) 

NOV 

#6,-(SP) 

NOV 

SP,RO 


154616 5$: 


TRAP 14 

ADD #16.SP 

BIT #20000 , BML . RE G+60 

BEO 6S 

TRAP 55 

.WORD 34 

.WORD ASYNC 

.WORD DUMPER 


SEQ 02 5c 



CZNLADO NL-11 LOGIC TEST 
$T14 TEST CODE SECTION 


MACRO Nil 13 30-NAR-82 11:18 PAGE 


11262 

11263 

11264 

11265 

11266 

11267 

11268 
1126 9 

11270 

11271 

11272 

11273 

11274 

11275 

11276 

11277 

11278 

11279 

11280 
11281 
11282 

11283 

11284 

11285 

11286 

11287 

11288 

11289 

11290 

11291 

11292 

11293 

11294 

11295 

11296 

11297 

11298 

11299 

11300 

11301 

11302 

11303 

11304 

11305 

11306 

11307 

11308 

11309 

11310 

11311 

11312 

11313 

11314 

11315 

11316 


;Nl4AD 


040660 

040664 

040670 


040704 
040710 
040714 
040716 
040720 
0407/4 
040730 
040732 
040736 
040740 
040742 
040744 
040746 
040750 
040752 
040760 
040762 
040770 
040772 
041000 
041004 
041010 
041016 
041022 
041030 
041032 
041034 
041036 
041040 
041 042 
041044 
041046 
041050 
041052 
041054 
041060 
041064 
041070 
041074 
041100 
041104 
041110 
041112 
041114 
041116 
041120 
041122 


012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

132777 

001106 

132777 

m 

016701 

042701 

142777 

150177 

132777 

001405 

104455 

000035 

012706 

026302 

000404 

104455 

000036 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

000424 

104455 


010730 

012216 

010650 

011714 

010544 

010304 

000006 


000016 

000050 

141160 


000200 154474 10$: 

000001 154414 

000040 154444 

155026 

177770 

000007 154426 
154422 

000001 154354 


010730 

012216 

010640 

011626 

010520 

010304 

000006 



.WORD 


.WORD 


.WORD 


BR 

11$: 

TRAP 


.WORD 


.WORD 


.WORD 

12$: 

NOV 


012706 


TEST COOE SECTION 

NOV #WRD.19.-(SP> 

NOV #FNC.5.-(SP) 

NOV #WRD.12,-(SP> 

NPV #PHR.5,-<SP> 

NOV #WRD.4.-(SP) 

NOV #FJV.FNT,-(SP> 

NOV #6.~<SP> 

NOV SP.RO 

TRAP 14 

ADD #16, SP 

NOV #50, RO 

BEQ 10$ 

NOV L$DLY.R1 

BEQ 9$ 

CLR CSP) 

DEC R1 

BNE 8$ 

DEC RO 

BR 7$ 

BJTB #200,BNL.REG+50 
BNE 15$ 

81 T8 #1 .BNL.REG 

BEQ 13$ 

B1SB #40,aNL.REG+40 

NOV Nl.DUT.R1 

BIC #177770, R1 

B1C8 #7,BNL.REGH0 

81 SB R1 ,8Nt .REG+40 

BITS #1 .BNL.REG 

BEQ 111 

TRAP 55 

.WORD 35 

.WORD ASYNC 

.WORD DUMPER 

BR 12$ 

TRAP 55 

.WORD 36 

.WORD SYNC 

.WORD DUMPER 

NOV #URD.19,-(SP) 

NOV #FNC.5.-(SP) 

NOV #WRD.1 i ,-(SP) 

NOV #PHR.2.-(SP) 

NOV #WRD. 1 .-(SP) 

NOV #FIV.F NT.-(SP) 

NOV #6,-(SP) 

NOV SP, RO 

TRAP 14 

BR 14$ 

TRAP 55 

.WORD 37 

.WORD ASYNC 


SEQ 0253 



29-Nar-1982 16:23:04 TOPS 

29-Nar-1982 16:21:03 PA:< 

5752 


SP,* 

*,$$TMP2 

*,$$TNP1 

$$TNP 

$$TNP1 

$$T NP2 


5750 

5755 


5757 

5761 

5763 

5766 


5769 


; SP.* 


5761 

5773 



C2HLA00 Ml-11 LOGIC TEST 
$T14 TEST CODE SECTION 
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11318 

11319 

11320 

11321 

Villi 

11324 

11325 

11326 

11327 

11328 

11329 

11330 

11331 

11332 

11333 

11334 

11335 

11336 

11337 

11338 

11339 

11340 

11341 

11342 

11343 

11344 

11345 

11346 

11347 

11348 

11349 

11350 

11351 

11352 

11353 

11354 

11355 

11356 

11357 

11358 

11359 

11360 

11361 

11362 

11363 

11364 

11365 

11366 

11367 

11368 

11369 

11370 
1131 
113'2 


; ML 4 AD 


041124 

041126 

041132 

041136 

041142 

041146 

041152 

041156 

041162 

041164 

041166 

041172 

041176 

041204 

041206 

041214 

041220 

041224 

041232 

041236 

041244 

041246 

041250 

041252 

041254 

041256 

041260 

041262 

041264 

041266 

041270 

041274 

041300 

041304 

041310 

041314 

041320 

041324 

041326 

041330 

041334 

041340 

041342 

041344 

m 

041360 

041362 

041364 

041366 

041370 

041372 


026302 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
012702 
062706 
132777 
001455 
152777 
016701 
042701 
142777 
150177 
132777 
001405 
104455 
000040 
012706 
026302 
000404 
104455 
000041 
012 7 50 
026302 
012746 
01274/ 
01274 j 
0127// 
0127 j 
012; *6 
012746 
010600 
104414 
012702 
062706 
104467 
006000 
103002 
000167 
032777 
001430 
104455 
000163 
013114 
026302 
012746 


010730 

012216 

010640 

011610 

010524 

010304 

000006 


000001 14$: 

000016 

000001 154200 15$: 

000040 154230 

154612 

177770 

000007 154212 
154206 

000001 154140 


OY/ 30 
P.2216 
J10640 
011626 
010520 
010304 
000006 


000001 

000016 


176700 

040000 154024 19$: 


010730 


TEST CODE SECTION 

.WORD DUMPER 

MOV #WRD.19.-<SP> 

MOV #FNC.5.-(SP) 

MOV #WRD.11,-($P) 

MOV #PHR.1.-(SP) 

MOV #WRD.2.-(SP) 

MOV #FIV.FMT.-(SP) 

MOV #6,-(SP) 

MOV SP.RO 

TRAP 14 

MOV #1 ,R2 

*DD #16. SP 

21 T8 #1 .8ML.REG 

BEQ 18$ 

61S8 #4O,0ML.REG+4O 

MOV ML. OUT. 81 

BIC #177770. R1 

B1CB #7.8ML.REG+40 

81 SB R1.BML.REGH0 

BITS #1 .BML.REG 

BEQ 16$ 

TRAP 55 

.WORD 40 

.WORD ASYNC 

.WORD DUMPER 

BR 17$ 

TRAP 55 

.WORD 41 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.19,-(SP> 

MOV #FNC.5.-(SP) 

MOV #WRD.11.-(SP> 

MOV #PHR.2.-( SP) 

MOV #WRD.1 ,-(SP) 

MOV fFIV.FMT.-(SP) 

MOV #6,-(SP) 

MOV SP.RO 

TRAP 14 

MOV #1 ,R2 

ADD #16. SP 

TRAP 67 

ROR RO 

BHIS 19$ 

JMP 1$ 

BIT #40000. 8ML. REG 

BEQ 20$ 

TRAP 55 

.WORD 163 

.WORD INTER 

.WORD DUMPER 

MOV #WRD.19.-(SP) 


SEQ 0254 




C2HLAD0 ML-11 LOGIC TEST 
$T14 TEST CODE SECTION 


K 4 
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SEQ 0255 


11374 

11375 

11376 

11377 

11378 

11379 

11380 

11381 

11382 

11383 

11384 

11385 

11386 

11387 

11388 

11389 

11390 

11391 

11392 

11393 

11394 

11395 

11396 

11401 

11402 

11406 

11407 

11411 

11412 

11413 

11414 

11415 

11416 

11417 

11418 

11419 
11424 


041376 

041402 

041406 

041412 

041416 

041422 

041426 

041432 

041434 

04V36 

0414**2 

041444 

041446 

041452 

041454 

041456 

041460 


012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

005302 

001004 

016700 

104451 

104444 

005726 

000207 


041462 

041462 

041466 

041470 

041472 

041474 


012216 

010650 

011714 

010736 

011416 

010322 

000007 


000020 


154356 


004767 176556 
104466 
006000 
103773 
000207 


11425 

11426 ; 


5809 !<BlF/PAGE> 


;ML4AD 

9 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

20$: DEC 

BNE 
MOV 
TRAP 
TRAP 

21$: TST 

RTS 


TEST CODE SECTION 
#FNC.5.-<SP> 

#urd.iS,-<sp> 

#PHR.5--(SP) 

#URD.20,-(SP> 

#WRD.61,-(SP) 

#SIX.fMT,-(SP> 

#7,-(SP) 

SP,RO 

14 

#20, SP 
R2 
21$ 

Ml.LUN,RO 

51 

44 

(SP>* 

PC 


; SP,* 

; DODU.FLG 


; Routine Size: 327 words 

; Maximum stack depth per invocation: 18 words 


.S8TTL T14 TEST CODE SECTION 

T14" ■ 

1$: JSR PC,$T14 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA . * 


5796 

5801 

5804 

5689 


5806 


CZMLADO ML-11 LOGIC TEST 
T14 TEST CODE SECTION 


L 4 
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SEQ 0256 


11428 

11429 

11430 

11431 

11 432 

11433 

11434 

11435 

11436 

11437 

11438 

11439 

11440 

11441 

11442 

11443 

11444 

11445 

11446 

11447 

11448 

11449 

11450 

11451 

11452 

11453 

11454 

11455 

11456 

11457 

11458 

11459 

11460 

11461 

11462 

11463 

11464 

11465 

11466 

11467 

11468 

11469 

11470 

11471 

11472 

11473 

11474 

11475 

11476 

11477 

11478 

11479 

11480 

11481 

11482 


ML 4 AD 


5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 


TEST CODE SECTION 


BGNTST; 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 
PA: <NEALE>ML4AD.BLI .4 (67) 


TEST NUMBER: TST 15 

TEST NAME: READ FUNCTION TEST 

TEST DESCRIPTION: 

TEST IF THE DRIVE CAN PERFORM 
A READ FUNCTION WITHOUT 
HANGING THE DRIVE. 

A READ FUNCTION IS WRITTEN 
INTO MLCS1 

THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES. 


local 

DODU.FIG; 

BGNSU8; 

CLR MBUS; 

DODO FLG = ZERO; 

FIRST BLK XFER <); 

MLCS1 = read; 

if .GO IS.NOT.SET 
then 

begin 

ERRDF <34, ASYNC, DUMPER); 

PRINTS (FIV.FMT, WRDJ, PHRJ, WRD.12, 

if .DRV IS.NOT.SET 
then 

ER^DF <35, ASYNC, DUMPER); 

PRINTS <FIV FMT, WRDJ, PHRJ, WRD, 
end; 


•DROP UNIT FLAG 


.'SET UP A FIRST BLK XFERR 
!D0 A READ FUNCTION 

•SEE IF GO GOT SET 

•ERROR IF CLEAR 

FNC.6, WRDJ 9); 

•TST DRY SET WITH GO CLEAR 

•ERROR IF NOT SET 


else 


DODU.FLG = ONc; 
end 


if .DRY IS_SET 
then 

begin 


.43, WRD J , PHRJ); 

•SET DODU.FLG 
•GO BIT GOT SET 
•SEE IF DRY IS CLEAR 
•ERROR IF SET 


1 

f 


M 4 
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T14 TEST 

CODE SECTION 


SEQ 0257 

11484 

;M14AD 


29-M*r-1982 16:23:04 T0PS-20 8liss-16 V2(212) 

11485 


TEST CODE SECTION 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (67) 

11486 

11487 

5862 

ERRDF (36, ASYNC, DUMPER); 


11488 

5863 

PRINTS (FI V ENT, URD 2, PHR 2, URD.43, 

URD 1, PHR 6); 

11489 

5864 

DODU.FLG = ONE; 


11490 

5865 

end; 


11491 

5866 



11492 

5867 

if .ILF IS.SET 

f DID FUNCTION CAUSE ILF 

11493 

5868 

then 

! ERROR IF YES 

11494 

5869 

begin 

ERRDF (37, ASYNC, DUMPER); 

11495 

5870 

6, URD. 19); 

11496 

5871 

PRINTS (FIV FMT, URD 3. PHR 5, URD.12, FNC 

11497 

5872 

end; 


11498 

5873 



11499 

5874 

if .OPI IS SET 

‘DID FUNCTION CAUSE OPI 

11500 

5875 

then 


11501 

5876 

begin 

ERRDF (38, ASYNC, DUMPER); 

•ERROR IF YES 

11502 

5877 


11503 

5878 

PRINTS (FIV FMT, URD 4, PHR 5, URD.12, FNC. 6, URD 19); 

11504 

5879 

end; 

11505 

5880 



11506 

5881 

DELAY (FRTY US); 

!UAIT FOR XFERR TO COMPLETE 

11507 

5882 



11508 

5883 

If .DRY IS.NOT.SET 

‘IS DRY SET AFTER XFERR 

11509 

5884 

then 


11510 

5885 

begin 


11511 

5886 


11512 

5887 

if .GO IS.SET 

.'TEST GO CLEAR UITH DRY NOT SET 

11513 

5888 

then 


11514 

5889 

begin 


11515 

5890 

CLR.MBUS; 

•CLEAR GO 

11516 

5891 



11517 

5892 

if .GO IS SET then ERRDF (39, ASYNC, DUMPER) else ERRDF (40, SYNC, DUMPER); 

11518 

5893 



11519 

5894 


•TST GO TO DETERMINE FAILING MOD 

11520 

5895 

PRINTB (FIV.FMT, WRD.1, PHR^2 t URD.11 , 

FNC.6, URD.19); 

11521 

5896 

end 


11522 

5897 

else 

.'GO BIT CLEAR UITH DRY NOT SET 

11523 

5898 

begin 

ERRDF (41, ASYNC, DUMPER); 

.'REPORT ERROR 

11524 

5899 


11525 

5900 

PRINTB (FIV.FMT, URD.2, PHR 1, URD.11, 

FNC.6, URD.19); 

11526 

5901 

end; 


11527 

5902 



11528 

5903 

DODU.FLG = ONE; 

I SET DODU.FLG 

11529 

5904 

end; 

11530 

5905 



11531 

5906 

if .GO IS.SET 

•SEE IF GO CLEAR AFTER XFERR 

11532 

5907 

then 


11533 

5908 

begin 


11534 

5909 

CLR.MBUS; 

•CLEAR GO IF STILL SET 

11535 

5910 



11536 

5911 

if .GO IS SET then ERRDF (42. ASYNC. DUMPER) else ERRDF (43, SYNC, DUMPER); 

11537 

5912 



11538 

1 

5913 


•TST GO TO DETERMINE FAILING MOD 
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SEQ 0258 


11540 

11541 

11542 

11543 

11544 

11545 

11546 

11547 

11548 

11549 

11550 

11551 

11552 

11553 

11554 

11555 

11556 

11557 

11558 

11559 

11560 

11561 

11562 

11563 

11567 

11568 

11572 

11573 

11574 

11575 

11576 

11577 

11578 

11579 

11580 

11581 

11582 
11581 

11584 

11585 

11586 

11587 

11588 

11589 

11590 

11591 

11592 

11593 

11594 


NL4AD 


041476 

041502 

041504 

041506 

041514 

041520 

041524 

041532 

041536 

041540 

041544 

041552 

041560 

041562 

041564 

041566 

041570 

041572 

041576 

041602 

041606 

041612 

041616 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(2 12) 
PA:<NEALE>ML4AD.BLI.4 (67) 


PRINTS CFI V ENT, WRD 1. PHR.2, WRDJ1, FNC.6. WRD.19); 

DODU.ELG = ONE; 

end; 


ENDSUB; 


if .TRE IS.SET !SEE IF XFEnR CAUSE: 

then beain ! REPORT ERROR IE SE 

PRINTB^SIX.EHT^URdI^I^WRD^O, PHR.5, WRD.12, FNC.6, WRD.19); 
end; 


f SEE IE XEERR CAUSED A TRANSFER ERROR 
•REPORT ERROR IE SET AND CONTINUE TESTING 


if .DODU.ELG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 


004167 

005746 

104402 

152777 

016701 

042701 

142777 

150177 

005002 

004767 

012777 

132777 

001057 

104455 

000042 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 


ENDTST; 


143036 


$T15: 


000040 153730 

154312 

177770 

000007 153712 
153706 


156516 

000071 

000001 


010730 

012226 

010650 

011610 

010520 

010304 


153632 

153624 


!DROP THIS UNIT IE D0DU.EL6 SET 


.S8TTL ST15 TEST CODE SECTION 
JSR R1 .SSAVE2 

TST -(SP) 

TRAP 2 

BJS8 #40,8HL.REG+40 

MOV ML.DUT.R1 

81 C #1 77770, R1 

BICB #7,8ML.REGf40 

BISS Rl.aML.REG+40 

CLR R2 

JSR PC. FIRST. BIX. XEER 

NOV #71 .8ML.REG 

B1TB fl.BML.REG 

BNE 2$ 

TRAP 55 

.WORD 42 

.WORD ASVNC 

.WORD DUMPER 

NOV #WRD.19,-(SP) 

NOV #ENC.6.-(SP> 

NOV #URD. 12. -(SP) 

NOV #PHR.1,-(SP) 

NOV fWRD.I ,-(SP) 

NOV #EIV. ENT. -(SP) 


DODU.ELG 


CZMIADO PL-11 LOGIC TEST 
ST 1 5 TCaT COOE SECTION 


B 5 
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SEQ 0259 


11596 




;ML4A0 





11597 




0 


TEST CODE SECTION 



1 1 598 

11599 041622 

012746 

000006 



NOV 

#6.-<SP> 



11600 041626 

010600 




NOV 

SP.RO 

* 

$P,» 

11601 041630 

104414 




TRAP 

14 



11602 041632 

132777 

000200 

153614 


BITB 

#200.BNL.REG*50 

* 


11603 041640 

001056 




BNE 

35 



11604 041642 

104455 




TRAP 

55 

# 


11605 041644 

000043 




.WORD 

43 



11606 041646 

012706 




.WORD 

ASVNC 



11607 041650 

026302 




.WORD 

DUNPER 



11608 041652 

012746 

011726 



NOV 

#PHR.6,-(SP> 

• 

0 


11609 041656 

012746 

010520 



NOV 

fWRD.I.-(SP) 



11610 041662 

012746 

011176 



NOV 

#WRD.43,-(SP) 



11611 041666 

012746 

011610 



NOV 

fPHR.1 ,-(SP) 



11612 041672 

012746 

010524 



NOV 

#WRD.2.-<SP) 



11613 041676 

012746 

010304 



NOV 

#FIV.FNT.-(SP) 



11614 041702 

012746 

000006 



NOV 

#6.-<SP) 



11615 041706 

010600 




NOV 

SP.RO 

0 

SP.* 

11616 041710 

104414 




TRAP 

14 



11617 041712 

062706 

000016 



ADD 

#16. SP 

0 


11618 041716 

000427 




BR 

35 

0 


11619 041720 

105777 

153530 


2$: 

TSTB 

BML.REG+50 

0 


11620 041724 

100030 




8PL 

45 



11621 041726 

104455 




TRAP 

55 

0 


11622 041730 

000044 




.WORD 

44 



11623 041732 

012706 




.WORD 

ASVNC 



11624 041734 

026302 




.WORD 

DUNPER 



11625 041736 

012746 

011726 



NOV 

#PHR.6.-(SP> 

0 


11626 041742 

012746 

010520 



NOV 

#WRD.1 ,“(SP) 



11627 041746 

012746 

011176 



NOV 

#WRD.43,-(SP) 



11628 041752 

012746 

011626 



NOV 

#PHR.2.-(SP) 



11629 041756 

012746 

010524 



NOV 

#WRD.2,-(SP) 



11630 041762 

012746 

010304 



NOV 

#FIV.FNT,-(SP) 



11631 041766 

012746 

000006 



NOV 

#6.-<$P> 



11632 041772 

010600 




NOV 

SP.RO 

0 

SP.* 

11633 041774 

104414 




TRAP 

14 



11634 041776 

012702 

000001 


3S: 

NOV 

#1.R2 

• 

0 

♦.DODU.FLG 

11635 042002 

062706 

000016 



ADD 

#16. SP 

0 


11636 042006 

132777 

000001 

153450 

45: 

BJTB 

#1 .BNL.REG+60 

0 


11637 042014 

001426 




BEQ 

55 



11638 042016 

104455 




TRAP 

55 

0 


11639 042020 

000045 




.WORD 

45 



11640 042022 

012706 




.WORD 

ASVNC 



11641 042024 

026302 




.WORD 

DUNPER 



11642 042026 

012746 

010730 



NOV 

#WRD.19,-(SP) 

0 


11643 042032 

012746 

012226 



NOV 

#FNC.6.-(SP) 



11644 042036 

012746 

010650 



NOV 

#WRD.12.-(SP) 



11645 042042 

012746 

011714 



NOV 

#PHR.5,-(SP) 



11646 042046 

012746 

010536 



NOV 

#WRD.3,-(SP) 



11647 042052 

012746 

010304 



NOV 

#FIV.FNT,-(SP) 



11648 042056 

012746 

000006 



NOV 

#6.-(SP) 



11649 042062 

010600 




NOV 

SP.RO 

• 

0 

SP.* 

11650 042064 

104414 




TRAP 

14 




29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 
PA : < 


5848 

5851 

585? 


5850 

5855 

5859 

5862 


5863 


5864 

5861 

5867 

5870 


5871 



CZMLADO ML-11 LOGIC TEST 
$T15 TEST CODE SECTION 


MACRO Ml 113 30-MAR-82 11:18 PAGE 277 


11652 

11653 

11654 

11655 

11656 

11657 

11658 

11659 

11660 
11661 
11662 

11663 

11664 

11665 

11666 

11667 

11668 

11669 

11670 

11671 

11672 

11673 

11674 

11675 

11676 

11677 

11678 

11679 

11680 
11681 
11682 

11683 

11684 

11685 

11686 

11687 

11688 

11689 

11690 

11691 

11692 

11693 

11694 

11695 

11696 

11697 

11698 

11699 

11700 

11701 

11702 

11703 

11704 

11705 

11706 


; ML 4 AD 


042066 

042072 

042100 

042102 

042104 

042106 

042110 

042112 

042116 

042122 

042126 

042132 

042136 

042142 

042146 

042150 

042152 

042156 

042162 

042164 

042170 

042172 

042174 

042176 

042200 

042202 

042204 

042212 

042214 

042222 

042224 

042232 

042236 

042242 

042250 

042254 

042262 

042264 

VM 

042272 

042274 

042276 

042300 

042302 

042304 

042306 

042312 

042316 

042322 

042326 

042332 


062706 

032777 

001426 

104455 

000046 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

132777 

001106 

132777 

001452 

152777 

016701 

042701 

142777 

150177 

132777 

001405 

104455 

000047 

012706 

026302 

000404 

104455 

000050 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 


000016 

020000 


010730 

012226 

010650 

011714 

010544 

010304 

000006 


000016 

000050 

137726 


000040 

153574 

177770 

000007 

153170 

000001 


153364 5$: 


000200 153242 10S: 
000001 153162 


153212 


153174 

153122 


010730 

012226 

010640 

011626 

010520 

010304 


TEST CODE SECTION 

ADD #16.SP 

BIT #20000. BML.REG+60 

BEQ 68 

TRAP 55 

.WORD 46 

.WORD ASYNC 

.WORD DUMPER 

MOV #WRD.19,-(SP) 

MOV #FNC. 6. -(SP) 

MOV #WRD.12,-(SP> 

MOV #PHR.5,-(SP> 

MOV #WRD.4.-(SP) 

MOV #FIV.FMT,-(SP) 

MOV #6,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #16, SP 

MOV #50, RO 

BEQ 10S 

MOV LSDLY.R1 

BEQ 9$ 

CLR (SP) 

DEC R1 

BNE 8$ 

DEC RO 

BR 7$ 

BIT8 #200,aML.REG+50 

BNE 15$ 

BITS #1 .iNL.REG 

BEQ 13$ 

BISB #40,BML.REG+40 

MOV Hl.DUT.R1 

BIC #1 77770. R1 

BICB #7,aML.REG+40 

BISB R1 .BMl.REG+40 

BITB #1,3ML.REG 

BEQ 111 

TRAP 55 

.WORD 47 

.WORD ASYNC 

.WORD DUMPER 

BR 12$ 

TRAP 55 

.WORD 50 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.19,-(SP) 

MOV #FNC.6.-(SP) 

MOV #WRD.11 ,-(SP) 

MOV #PHR.2,-(SP) 

MOV #WRD.1.-(SP) 

MOV #FIV.FMT,-(SP) 


SEO 0260 


SP,* 

*,$$TMP2 

*,$$TMP1 

$$TMP 

$$TMP1 

$$TMP2 


29-Har-1982 16:23:04 
29-Mar-l982 16:21:03 


TOPS 

PA:< 


5869 


5874 


5877 

5878 

5876 

5881 


5883 

5887 

5889 

5892 


5895 


j 



CZMLADO ML-1 1 LOGIC TEST 
ST1 5 TEST CODE SECTION 


MACRO NT 113 30-MAR-82 11:18 PAGE 278 


11708 

11709 

11710 

11711 

11712 

11713 

11714 

11715 

11716 

11717 

11718 

11719 

1 1 720 

11721 

11722 

11723 

11724 

11725 

11726 

11727 

11728 

11729 

11730 

11731 

11732 

11733 

11734 

11735 

11736 

11737 

11738 

11739 

11740 

11741 

11742 

11743 

11744 

11745 

11746 

11747 

11748 

11749 

11750 

11751 

11752 

11753 

11754 

11755 

11756 

11757 

11758 

11759 

11760 

11761 

11762 


; ML 4 AD 


042336 

042342 

042344 

042346 

042350 

042352 

042354 

042356 

042360 

042364 

042370 

042374 

042400 

042404 

042410 

042414 

042416 

042420 

042424 

042430 

042436 

042440 

042446 

042452 

042456 

042464 

042470 

042476 

042500 

042502 

042504 

042506 

042510 

042512 

042514 

042516 

042520 

042522 

042526 

042532 

042536 

042542 

042546 

042552 

042556 

042560 

042562 

042566 

042572 

042574 

042576 

042600 


012746 

010600 

104414 

000424 

104455 

000051 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012702 

062706 

132777 

001455 

152777 

016701 

042701 

142777 

150177 

132777 

001405 

104455 

000052 

012706 

026302 

000404 

104455 

000053 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012702 

062706 

104467 

006000 

103002 

000167 


000006 


010730 

012226 

010640 

011610 

010524 

010304 

000006 


000001 

000016 

000001 152746 

000040 152776 

153360 

177770 

000007 1527G0 
152754 

000001 152706 


010730 

012226 

010640 

011626 

010520 

010304 

000006 


000001 

000016 


176700 


TEST CODE SECTION 

MOV #6,-(SP) 

MOV SP.RO 

TRAP 14 

BR 14$ 

TRAP 55 

.WORD 51 

.WORD ASYNC 

.WORD DUMPER 

MOV #WRD.19,-(SP) 

MOV #FNC.6.-(SP) 

MOV #WRD. 11, -(SP) 

MOV #PHR.1.-(SP) 

MOV #WRD.2.-(SP) 

MOV fFIV.FMT.-(SP) 

MOV #6.-<SP) 

MOV SP.RO 

TRAP 14 

MOV #1 .R2 

ADD #16. SP 

BITB #1 .BML.REG 

BEG 18i 

B1SB #40,8ML.REG+40 

MOV ML.DUT.R1 

BIC #1 77770, R1 

BICB #7,aML.REG+40 

BISS R1.BML.REG+40 

BITB fl.BML.REG 

BEG 16$ 

TRAP 55 

.WORD 52 

.WORD ASYNC 

.WORD DUMPER 

BR 17$ 

TRAP 55 

.WORD 53 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.19,-(SP> 

MOV #FNC.6.-<SP) 

MOV fURD.11 ,-(SP) 

MOV #PHR.2.-(SP) 

MOV #WRD.1,-(SP) 

MOV fFIV.FMT.-(SP) 

MOV #6,-(SP) 

MOV SP.RO 

TRAP 14 

MOV #1,R 2 

ADD #16, SP 

TRAP 67 

ROR RO 

BHIS 19$ 

JMP 1$ 


SEO 0261 


29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 


; SP.* 


; SP,* 

; *,D0DU.FLG 


.* SP.* 

; *,DODU.FLG 


CZULADO NL-H LOGIC TEST 
ST15 TEST CODE SECTION 


NACRO Bill 3 30-NAR-82 11:18 PAGE 279 


SEQ 0262 


11764 

11765 

11766 

11767 

11768 
1170 

11770 

11771 

11772 

11773 

11774 

11775 

11776 

11777 

11778 

11779 

11780 

11781 

11782 

11783 

11784 

11785 

11786 

11787 

11788 

11789 

11790 

11791 

11792 

11793 

11798 

11799 

11803 

11804 
11808 

11809 

11810 
11811 
11812 

11813 

11814 

11815 

11816 


042604 

042612 

042614 

042616 

042620 

042622 

042624 

042630 

042634 

042640 

042644 

042650 

042654 

042660 

042664 

042666 

042670 

042674 

042676 

042700 

042704 

042706 

042710 

042712 


032777 

001430 

104455 

000164 

013114 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

005302 

001004 

016700 

104451 

104444 

005726 

000207 


042714 

042714 

042720 

042722 

042724 

042726 


;NL4AD 


040000 152572 


010730 

012226 

010650 

011714 

010736 

011416 

010322 

000007 


000020 


153124 


;• TEST CODE SECTION 

19S: BIT #40000.8*1. REG 

BEG 20$ 

TRAP 55 

.WORD 164 

.WORD INTER 

.WORD DIAPER 

NOV #WRD. 19, -<SP) 

NOV #FNC.6.-(SP> 

NOV #WRD. l2, -(SP) 

NOV #PHR.5.-($P) 

NOV #WRD.20.-(SP> 

NOV #WRD.61.-(SP> 

NOV fSIX.FNT.-(SP) 

NOV #7,-<SP> 

NOV SP. RO 

TRAP 14 

ADD #20, SP 

20$: DEC R2 

BNE 21$ 

NOV NL.LUN.RO 

TRAP 51 

TRAP 44 

21$: TST <SP>* 

RTS PC 

; Routine Size: 327 words 

; Naximja stack depth per invocation: 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


; SP.* 


; DODU.FLG 


5922 I 
5927 I 


18 words 


004767 176556 
104466 

m 

000207 


T15: : 
1 $: 


.SBTTL T15 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC,$T15 

66 

RO 

1 $ 

PC 


; Routine Size: 6 words , 

; NaxiaufR stack depth per invocation: 0 words 


CZNLADO XL-11 LOGIC TEST 
T15 TEST CODE SECTION 


MACRO Him 30-NAR-82 11:18 PAGE 280 


SEQ 0263 


11825 

11826 
11827 ; 


5935 !<8U/PAGE> 


C2MLAD0 PH -11 LOGIC TEST 
T15 TEST COOE SECTION 


MACRO Nil 13 30-MAR-82 11:18 


G S 
PAGE 281 


SEa 0264 


11829 

11830 

11831 

11832 

11833 

11834 

11835 

11836 

11837 

11838 

11839 

11840 

11841 

11842 

11843 

11844 

11845 

11846 
1184 7 

11848 

11849 

11850 

11851 

11852 

11853 

11854 

11855 

11856 

11857 

11858 

11859 

11860 
11861 
11862 

11863 

11864 

11865 

11866 

11867 

11868 

11869 

11870 

11871 

11872 

11873 

11874 

11875 

11876 

11877 

11878 

11879 

11880 
11881 

m 


HL4AD 


TEST COOE SECTION 


29-M*r-1982 16:23:04 
29-N»r-1982 16:21:03 


TOPS-20 Btiss-16 V2C212) 
PA:<NEALE>ML4AD.BLI.4 (68) 


5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 


8GNTS ; 

*TEST NUMBER: 
TEST NAME: 


TST 16 

CLEAR FUNCTION TEST 


TEST DE cr RIPTI0N* 

TEST IF THE DRIVE CAN PERFORM A CLEAR FUNCTION WITHOUT HANGING THE DRIVE. 

A CLEAR FUNCTION IS WRITTEN INTO HLCS1 . 

THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS. 

THIS DRIVE IS DROPPED ON DETECTED ERRORS. 


BGNSUB; 

CLR.MBUS; 

MLEft = ONES; 
MLCS1 = DRV CLR; 
DELAY (ONE.OS); 


! SET BITS IN ERROR REGISTER 
•DO A CLEAR FUNCTION 
1 DELAY 


If .GO IS.SET 
then 

ER&>? (44, ASYNC. DUMPER); , , _ 

PRINTS (FIV.FMT, WRD.1, PHR.5, WRD.11, FNC.3, FNC.7, *M).19>; 


•SEE IF GO CLEARED AFTER FUNCTION 
•ERROR IF SET 


if .DRY IS.SET 
then 

begin 

ERRDF (45, ASYNC, DUMPER); , , „ 

PRINTS (FIV.FMT, WRD.2, PHR.5, WRD.43, WRD.1 , PHR.5); 
end; 


•TST DRY CLEAR WITH GO SET 
•ERROR IF SET 


else 


end 


if .DRY IS.NOT.SET 
then 

begin 

ERRDF (46, ASYNC, DUMPER); 

PRINTS (FIV.FMT, WRD.2, PHR.1 , WRD.43, WRD.1 
end; 


•GO CLEARED AFTER FUNCTION 
•TST DRY SET WITH GO CLEAR 
•ERROR IF NOT SET 
PHR.6) ; 


if .ILF IS.SET 
then 

begin 

ERRDF (47. ASYNC. DUMPER); , , _ 

PRINTB (FIV FMT. WRD 3. PHR.5, WRD.12, FNC.3, FNC.7, WRD.19); 


•DID FUNCTION CAUSE ILF 
•ERROR IF YES 


ICZMLADO ML-11 LOGIC TEST 
I T 1 5 TEST CODE SECTION 


MACRO Mill 3 30-NAR-82 11:18 


H S 
PAGE 282 


SEQ 0265 


11885 

11886 

11887 

11888 

11889 

11890 

11891 

11892 

11893 

11894 

11895 

11896 

11897 

11898 

11899 

11900 

11901 

11902 

11903 

11904 

11905 

11909 

11910 

11914 

11915 

11916 

11917 

11918 

11919 

11920 

11921 

11922 

11923 

11924 

11925 

11926 

11927 

11928 

11929 

11930 

11931 

11932 

11933 

11934 

11935 

11936 

11937 

11938 

11939 


ML4AD 


042730 
042732 
042734 
042736 
042744 
042750 
042754 
042762 
042766 
042774 
043002 
043006 
043010 
043014 
043016 
043020 
043022 
0430; 
0430J 
0430’ 
0430! 
043040 
043042 
043044 
043046 
043050 


5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 
6001 
6002 

6003 

6004 

6005 


010146 

005746 

104402 

152777 

016701 

042701 

142777 

150177 

012777 

012777 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

132777 

001462 

104455 

000054 

012706 

026302 

012746 


TEST CODE SECTION 
end; 

If .OPJ IS.SET 
then 

begin 

ERkDF (48* ASVNC, DUMPER) ; 
PRINTS (FIV.FMT, WRD.4, PHR. 
end; 

if .MLER neq ZERO 
then 

begin 

ERkDF (49, ASVNC* DUMPER); 
PRINTS (SIX.FMT* FNC.3, FNC, 
end; 

ENDSU8; 

ENDTST; 


29-H*r~1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (68) 


!DID FUNCTION CAUSE OPI 
! ERROR IF YES 

.5* WRD_12, FNC.3* FNC.7, yRD.19); 

•TEST ERROR REGISTER FOR CLEAR 
•ERROR IF NOT CLEAR 
7 , WRD.19* URD.14, WRD.13* REG.3); 





.S8TTL 

ST16 TEST CODE SECTION 




ST16: 

MOV . 

R1 *-(SP) 

• 

• 




TST I 

-(SP) 




IS; 

TRAP 

2 

• 

• 

000040 

152500 


BISS 

#40*BML.REG+40 

• 

153062 



MOV 

ML.DUT.R1 
#1 77776, R1 


177770 



BIC 


000007 

152462 


SICS 

#7,BML.REG+40 


152456 


BISS 

R1.3ML.REG+40 

,BML.REG+60 


177777 

152470 


MOV 


000011 

152402 


MOV 

fll.BML.REG 

; *,S$TMP2 

000001 


MOV 

fl.RO 


2$: 

BEQ 

5S 

; *,$$TMP1 

137102 


MOV 

LSDLV.R1 



6E0 

4$ 

; SSTMP 



3S: 

CLR 

(SP) 



DEC 

R1 

; SSTMP1 




BNE 

3$ 

; SSTMP2 



4$: 

DEC 

RO 




BR 

2$ 


000001 

152346 

5$: 

BITS 

f1.3ML.REG 




BEQ 

7$ 





TRAP 

55 





.WORD 

54 





.WORD 

ASVNC 





.WORD 

DUMPER 


010730 



MOV 

fWRD.19,-(SP) 

# 


5934 

5937 

5954 


5956 

5957 

5958 


5960 

5963 

5964 


CZNLADO NL-11 LOGIC TEST 
ST16 TEST COOE SECTION 


NACRO HI T T 3 30-NAR-82 11:18 


SCO 0266 


nm 

11942 

11943 

11944 

11945 

11946 

11947 

11948 

11949 

11950 

11951 

11952 

11953 

11954 

11955 

11956 

11957 

11958 

11959 

11960 

11961 

11962 

11963 

11964 

11965 

11966 

11967 

11968 

11969 

11970 

11971 

11972 

11973 

11974 

11975 

11976 

11977 

11978 

11979 

11980 

11981 

11982 

11983 

11984 

11985 

11986 

11987 

11988 

11989 

11990 

11991 

11992 

11993 

11994 

11995 


;Rl4AD 


043054 

043060 

043064 

043070 

043074 

043100 

043104 

043110 

043112 

043114 

043120 

043122 

043124 

043126 

043130 

043132 

043136 

043142 

043146 

043152 

043156 

043162 

043166 

043170 

043172 

043176 

043202 

043204 

043212 

043214 

043216 

043220 

043222 

043224 

043230 

043234 

043240 

043244 

043250 

043254 


043264 

043270 

043276 

043300 

043302 

043304 

043306 

043310 

043314 

043320 


012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

105777 

100026 

104455 

000055 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

062706 

000432 

132777 

001026 

104455 

000056 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

132777 

001430 

104455 

000057 

012706 

026302 

012746 

012746 

012746 


012234 

012172 

010640 

011714 

010520 

010304 

000007 


152334 


011714 

010520 

011176 

011714 

010524 

010304 

000006 


000016 

000020 


000200 152242 7$: 


011726 

010520 

011176 

011610 

010524 

010304 

000006 


000016 

000001 152166 8$: 


010730 

012234 

012172 


TEST COOE SECTION 

NOV #FNC.7,-(SP> 

NOV #FNC.3.-(SP) 

NOV #WRD.11.-(SP) 

NOV #PHR.5.-(SP> 

NOV #WRD.1,-(SP> 

NOV #FIV.FNT,-(SP) 

NOV #7,-(SP> 

NOV SP.RO 

TRAP 14 

TST8 aNt.REG*50 

BPL 6S 

TRAP 55 

.WORD 55 

.WORD ASYNC 

.WORD DUNPER 

NOV #PHR.5,-(SP> 

NOV #WRD.1.-(SP> 

NOV #WRD.43,-(SP) 

NOV #PHR.5,-(SP) 

NOV #WRD.2,-(SP> 

NOV #FIV.FNT,-(SP) 

NOV #6.-($P> 

NOV SP.RO 

TRAP 14 

ADD #16. SP 

ADD #20. SP 

BR 8S 

BITS #200.SNLoREG+50 

BNE 8S 

TRAP 55 

.WORD 56 

.WORD ASYNC 

.WORD DUNPER 

NOV #PHR.6,-(SP) 

NOV #UR0.1.-(SP) 

NOV #WRD.43,~(SP) 

NOV #PHR.1 ,-($P) 

NOV #WRD.2.-(SP> 

NOV #FIV.FNT,-(SP) 

NOV #6.-(SP) 

NOV SP.RO 

TRAP H 

ADD #16. SP 

SITS #1 .iNL.REG+60 

BEQ 9S 

TRAP 55 

.WORD 57 

.WORD ASYNC 

.WORD DUNPER 

NOV #WRD.19.-($P> 

NOV #FNC.7,-(SP) 

NOV #FNC.3.-(SP) 


29-N*r-1982 16:23:04 
29-N*r-1982 16:21:03 


; SP.* 


; SP.* 


I 


CZNLADO *1-11 logic test 
ST 16 TEST CODE SECTION 


11997 

11998 

11999 

12000 
12001 
12002 

12003 

12004 

12005 

12006 

12007 

12008 

12009 

12010 
12011 
12012 

12013 

12014 

12015 

12016 

12017 

12018 

12019 

12020 
12021 
12022 

12023 

12024 

12025 

12026 

12027 

12028 

12029 

12030 

12031 

12032 

12033 

12034 

12035 

12036 

12037 

12038 

12039 

12040 

12041 

12042 

12043 

12044 

12045 

12046 

12047 

12048 

12049 

12050 

12051 



043350 
043352 
043354 
04p 
04! 



042 
043374 
043376 
043400 
043404 
043410 
043414 
043420 
043424 
043430 
043434 
043440 
043442 
043444 
043450 
043454 
043456 
043460 
043462 
043464 
043466 
043472 
043476 
043502 
043506 
043512 
043516 
043522 
043526 
043530 
043532 
043536 
043540 
043542 
043544 
043550 
043552 
043554 


012746 

012746 

012746 

012746 

012746 

oir : 

104414 

001430 

104455 

000060 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

005777 

001430 

104455 

000061 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103002 

000167 

005726 

012601 

000207 


J 5 
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TEST COOE SECTION 


010650 


NOV 

#WRD.12,-(SP) 


011714 


NOV 

#PHR.5,-(SP> 


010536 


NOV 

#WRD.3,-(SP) 


010304 


NOV 

#FIV.FNT,-(SP> 


000007 


NOV 

#7,-(SP) 




NOV 

SP.RO 

; SP,* 



TRAP 

14 


000020 


ADD 

I20.SP 

• 

# 

020000 152076 

9S: 

BIT 

#20000, BNL. RE G+60 

• 

# 



BEO 

10$ 




TRAP 

55 

• 

0 



.WORD 

60 




.WORD 

ASYNC 




.WORD 

DUNPER 


010730 


NOV 

#WRD.19,-(SP) 

m 

• 

012234 


NOV 

#FNC.7,-(SP> 


012172 


NOV 

#FNC.3.-<SP> 


010650 


NOV 

#WRD.12.-(SP> 


011714 


NOV 

#PHR.5.-(SP> 


010544 


NOV 

#WRD.4.-(SP) 


010304 


NOV 

#FIV.FNT,-(SP) 


000007 


NOV 

#7. -ISP) 




NOV 

SP.RO 

; SR,* 



TRAP 

14 


000020 


ADD 

#20, SP A 

• 

• 

152010 

10S: 

TST 

aWL.REG*60 

• 

• 



BEO 

11$ 




TRAP 

55 

• 

• 



.WORD 

61 




.WORD 

ASYNC 




.WORD 

DUNPER 


012516 


NOV 

#REG.3.-(SP) 

• 

• 

010660 


NOV 

#WRD.13,-(SP) 


010664 


NOV 

#WRD.14,-(SP) 


010730 


NOV 

#WRD.19,»(SP) 


012234 


NOV 

#FNC.7,-<SP) 


012172 


NOV 

#FNC.3.-(SP) 


010322 


NOV 

#SIX.FNT,-(SP) 


000007 


NOV 

#7,-(SP) 




NOV 

SP.RO 

; SP.* 



TRAP 

14 


000020 


ADD 

#20, SP 

0 


11$: 

TRAP 

67 

w 

0 



ROR 

RO 




SHIS 

12$ 


177164 


JNP 

1$ 



12$: 

TST 

(SP)* 

• 



NOV 

(SP)*, R1 




RTS 

PC 



; Routine Size: 203 words 
; NaxItRgn stack depth per invocation: 17 words 


SEQ 026? 

29-Nar- 1982 16:23:04 TOPS 

29-*ar-1982 16:21:03 PA:< 


5985 

5990 

5993 

5994 


5992 

5997 

6000 

6001 


5999 

6002 

5934 


CZMLADO ML-11 LOGIC TEST 
ST16 TEST CODE SECTION 


K 5 
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SEQ 0268 


12053 

12054 

12055 
12060 
12061 

12065 

12066 

12070 

12071 

12072 

12073 

12074 

12075 

12076 

12077 

12078 

12083 

12084 

12085 


; ML 4 AD 


043556 

043556 004767 177146 
043562 104466 
043564 006000 
043566 103773 
043570 000207 


6006 ! <8LF/PAGE> 


T16: : 
IS: 


TEST CODE SECTION 


.S8TTL T16 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC,ST16 

66 

RO 

IS 

PC 


Routine Size: 6 words _ 

Maximum stack depth per invocation: 0 words 


29-Har-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 
PA : < 


6004 



CZMLADO ML-11 LOGIC TEST 
T16 TEST CODE SECTION 
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SCO 0269 


12087 

12088 

12089 

12090 

12091 

12092 

12093 

12094 

12095 

12096 

12097 

12098 

12099 

12100 
12101 
12102 

12103 

12104 

12105 

12106 

12107 

12108 

12109 

12110 
12111 
12112 

12113 

12114 

12115 

12116 

12117 

12118 

12119 

12120 
12121 
12122 

12123 

12124 

12125 

12126 

12127 

12128 

12129 

12130 

12131 

12132 

12133 

12134 

12135 

12136 

12137 

12138 

12139 

12140 

12141 


NL4AD 


TEST CODE SECTION 


29-M»r-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.BU.4 (69) 


6007 

6008 

6009 

6010 
6011 
6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 


BGNTST; 


• ♦♦ 

! TEST NUMBER: 


TST 17 


TEST NAME: DIAGNOSTIC REGISTER TESTS 
TEST DESCRIPTION: 

TEST THE DATA DIAG REGISTERS NLD1 , MLD2. MLE2 
FOR I'S/O’S, SHIFTING I'S/O'S AND INITIALIZATION 


local 

CLR.DATA, 

SAVE, 

err.flg. 

TSTlPAT, 

index, 

DODU.FLG; 

DODU.FLG = ZERO; 


.'CLEAR DATA FOR INIT TEST 
•TEMPORARY SAVE LOCATION 
.'ERROR FLAG 
.'TEST PATTERN 

'POINTS TO REGISTER PRESENTLY BEING TESTED 
JDROP UNIT FLAG 


FIRST TEST THE REGISTERS FOR ONES AND ZEROES 


TST PAT = ONES; 

CLR.THRESHOLD; 

incr TWICE from 0 to 1 do 
begin 

incr REG.SEL from 11 to 13 do 
begin 
BGNSUB; 

CLR MBUS* 

WRT“REG (.TST PAT. .REG.SEL. index); 
RD.REG (.TST.PAT, .REG.SEL. ERR.FLG); 

if .ERR.FLG IS.SET 
then 

begin 

CMP THRESHOLD; 

ERRUF (121. ARR.DAT, DUMPER): 


JLOAD TEST PAT WITH ONES 
! CLEAR ERROR PRINT THRESHOLD 

! REPEAT LOOP TWICE 


! TEST ELEVEN WRITE/READ REGISTERS 


•WRITE TO THE REGISTER 
!READ THE REGISTER 

• SEE IF READ FOUND AN ERROR 


!IF ERROR FLAG IS.SET THEN ERROR AND SET DODU.FLG 
! COMPARE ERROR PRINT THRESHOLD 
.'ARRAY DATA MODULE FAILURE 


PRINT8 (SIX.FMT, PHR 4, WRD.12, FNC 5. FNC 6. WRD.52. «RD.56); 
PRINTS (FMT 16. .ML REG C. index. RECISTER.RDD3, .OT.DATA, .RD.DATA); 
DODU.FLG = ONE; 
end; 


ENDSUB; 


CZMLADO 
T16 TEST 

12143 

12144 

12145 

12146 

12147 

12148 

12149 

12150 

12151 

12152 

12153 

12154 

12155 

12156 

12157 

12158 

12159 

12160 
12161 
12162 

12163 

12164 

12165 

12166 

12167 

12168 

12169 

12170 

12171 

12172 

12173 

12174 

12175 

12176 

12177 

12178 

12179 

12180 
12181 
12182 

12183 

12184 

12185 

12186 

12187 

12188 

12189 

12190 

12191 

12192 

12193 

12194 

12195 

12196 

12197 


ML -11 LOOK TEST 
CODE SECTION 
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SEQ 0270 


ML 4 AD 


TEST CODE SECTION 


TEST THE REGISTERS FOR SHIFTING ONES AND ZEROES 


incr TWICE from 0 to 1 do 
begin 


incr REG.SEL froffl 11 to 13 do ! 

begin 
BGNSUB; 

CLR.MBUS; . j v 

WRT REG (.TST PAT. .REG SEL. index); 

rd Reg (.tst Pat. .regJel, err.flg); 


6059 end; 

6060 

6061 TST PAT = not .TST.PAT; 

6062 end; 

6063 

6064 ! 

6065 ! 

6066 ! TEST THE REGISTERS 

6067 ! 

6068 ! 

6069 TST PAT = ONE; 

6070 

6071 incr SHIFT from 0 to 15 do 

6072 begin 

6073 

6074 incr TWICE from 0 to 1 

6075 begin 

6076 

6077 incr REG.SEL froffl 

6078 begin 

6079 BGNSUB; 

6080 CLR.MBUS; 

6081 WRT REG (.TST 

6082 RD REG (.TST.P 

6083 

6084 if .ERR.FLG IS 

6085 then 

6086 begin 

6087 CMP THRESH 

6088 ERRBF (1 22 

6089 PRINTS (SI 

6090 PRINTS (FP 

6091 DODU.FLG = 

6092 end; 

6093 

6094 ENDSUS; 

6095 end; 

6096 

6097 TST.PAT = not .TST 

6098 end; 

6099 

6100 TST.PAT = .TST.PAT-ONE 

6101 end; 

6102 

6103 ! 

6104 ! 

6105 ! NOW TEST THE REGIS 

6106 » 

6107 ! 

6108 REGJNIT.FLG = ONE; 

6109 TST PAT = ONES; 

6110 


29-Mar- 1982 16:23:04 T0PS-20 Bliss-16 V2(21 2) 

29-Nar-1982 16:21:03 PA:<NEALE>ML4AD.SLI .4 (69) 


‘REPEAT AGAIN WITH COMPLIMENT DATA 


•LOAD TST.PAT WITH A 1 IN A FILED OF 0’S 
‘DO SHIFT 16 TIMES 


{REPEAT LOOP TWICE 


JTEST ELEVEN READ/WRITE REGISTERS 


•WRITE TO THE REGISTER 
‘READ THE REGISTER 


if .ERR.FLG IS.SET ‘SEE IF THE READ FOUND AN ERROR 

then begin ! IF THE ERROR FLAG IS SET THEN ERROR 

CMP THRESHOLD; {COMPARE ERROR PRINT THRESHOLD 

ERRBF (122. ARR DAT. DUMPER); {ARRAY DATA MODULE FAILURE 
PRINTS (SIX.FMT. PHR 4, WRD.12, FNC 5, FNC 6, WRD 52. WRD.56); 

PRINTS (F MT 16. .ML PEG C. index, REGlSTERjlDDJ, .QT.DATA. .RD.DATA); 

DODU.FLG = ONE; 

end; 


ENDSUS; 

end; 

TST.PAT = not .TST.PAT; 
end; 

TST.PAT = .TST.PAT-ONE; 
end; 


{REPEAT WITH A 0 IN A FIELD OF I'S 
.'SHIFT THE 1 IN THE FIELD OF 0’S 


NOW TEST THE REGISTERS FOR INITIALIZATION 


•BACKGROUND PATTERN 


CZMLADO ML- 11 LOGIC TEST 
T 1 6 TEST CODE SEC ION 


MACRO H1 113 30-MAR-82 11:18 


N S 
PAGE 288 


SEQ 0271 


12199 

12200 
12201 
12202 

12203 

12204 

12205 

12206 

12207 

12208 

12209 

12210 
12211 
12212 

12213 

12214 

12215 

12216 

12217 

12218 

12219 

12220 
12221 
12222 

12223 

12224 

12225 

12226 

12227 

12228 

12229 

12230 

12231 

12232 

12233 

12234 

12235 

12236 

12237 

12238 

12239 

12243 

12244 

12248 

12249 

12250 

12251 

12252 

12253 


;ML4AD 


043572 

043576 

043600 

043602 

043606 

043612 


6111 

6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 
6121 
6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 


004167 

024646 

005046 

012702 

005067 

005004 


TEST CODE SECTION 

incr TWICE fron 0 to 1 do 
begin 

incr REG SEL from 11 to 13 do 
begin 
BGNSUB; 

CLR MBU r ' 

WRT”REG w (.TST PAT, .REG SEL, index); 
CLR DATA = (.Rl) or (.IGNORE); 
REG’INIT.FLG = ONE; 

RD.REG (.CLR.DATA. .REG.SEL, ERR.FLG); 

if .ERR.FLG IS.SET 
then 

begin 

CMP THRESHOLD; 

ERRDF (118, ARR.DAT, DUMPER); 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (69) 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 

! REPEAT LOOP TWICE 
‘TEST THIRTEEN REGISTERS 


! WRITE REGISTER WITH BACKGROUND 
‘CALCULATE THE CLEARED DATA PATTERN 

!READ THE REGISTER FOR THE CLEARED DATA PAT 

! SEE IF READ FOUND AN ERROR 

I IF ERROR FLAG IS SET THEN ERROR AND SET DODU.FLG 
‘COMPARE ERROR PRINT THRESHOLD 
.‘ARRAY DATA MODULE 


tnni/f \ i IV# nnn #n I # irwre in ■ ivr 

PRINTS (FIV FMTT PHR 4, WRD.12, WRD 52. FNC 23, WRD 56); 

PRINTS (FMT 16, .ML REG C. index, REGISTERED}, .CLR.DATA. .RD.DATA); 

DODU.FLG = ONE; 

end; 


ENDSUB; 

end; 

TST.PAT = not .TST.PAT; 
end; 

REG.INIT.FLG = ZERO; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


•REPEAT WITH COMPLIMENT BACKGROUND PAT 
! CLEAR THE FLAG 

‘DROP THIS UNIT IF DODU.FLG SET 


141014 

$T17: J SR 

CMP 

R1,$SAVE5 

-(SP).-(SP) 

• 

0 


CLR 

-(SP) 

• 

• 

177777 

MOV 

#-1 ,R2 

• 

0 

151564 

CLR 

P.CNT 



CLR 

R4 

0 


DODU.FLG 

*,TST.PAT 

TWICE 


6005 

6029 

6035 

6038 




a 6 
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CZALADO AL-11 LOGIC TEST 
ST17 TEST CODE SECTION 


12255 

12256 

12257 

12258 

12259 

12260 
12261 
12262 

12263 

12264 

12265 

12266 

12267 

12268 

12269 

12270 

12271 

12272 

12273 

12274 

12275 

12276 

12277 

12278 

12279 

12280 
12281 
12282 

12283 

12284 

12285 

12286 

12287 

12288 

12289 

12290 

12291 

12292 

12293 

12294 

12295 

12296 

12297 

12298 

12299 

12300 

12301 

12302 

12303 

12304 

12305 

12306 

12307 

12308 

12309 


043614 

043620 

043622 

043630 

043634 

043640 

043646 

043652 

043654 

043656 

043662 

043664 

043670 

043672 

043674 

043700 

043702 

043706 

043714 

043716 

043722 

043730 

043732 

043736 

043740 

043742 

043744 

043746 

043750 

043754 

043760 

043764 

043770 

043774 

044000 

044004 

044010 

044012 

044014 

044020 

044024 

044030 

044032 

044034 

044036 

044042 

044046 

044052 

044054 

044056 

044064 

044070 


012701 

104402 

152777 

016705 

042705 

142777 

150577 

010246 

010146 

012746 

060616 

004767 

010216 

010146 

012746 

060616 

004767 

026627 

001065 

005267 

026767 

003403 

062706 

000461 

104455 

000171 

013012 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

016716 

016746 

016600 

006300 

006300 

006300 

016046 

012746 

012746 

010600 

104414 

012766 

062706 

062706 


000013 

000040 151614 

152176 

177770 

000007 151576 
151572 


000012 

161434 


000014 

162004 

000014 000001 
151454 

151450 151450 
000012 


011344 

011310 

012226 

012216 

010650 

011676 

010322 

000007 


151332 

151324 

000040 


015404 

007436 

000004 


000001 000042 
000030 
000012 


; AL4AD 

9 


TEST CODE SECTION 

IS: 

nov 

#13, R1 

2S: 

TRAP 

2 

BISS 

#40. am.. REG *40 


NOV 

NL.DyT.R5 
#1 77776, R5 


BIC 


81 CB 

#7,aAL.REG*40 


BISS 

R5.aNL.REG*40 


nov 

R2.-(SP) 


nov 

RI.-(SP) 


nov 

#l2.-(SP) 


ADD 

SP, (SP) 


JSR 

PC.WRT.REG 


nov 

R2, (SP) 


nov 

R1. -(SP) 


nov 

#14, -(SP) 


ADD 

SP.(SP) 


JSR 

PC.RD.REG 


CAP 

14(SP) ,#1 


BNE 

4$ 


INC 

P.CNT 


CAP 

P.CNT.LINIT 


BLE 

3S 


ADD 

#12, SP 


BR 

5$ 

3S: 

TRAP 

55 


.WORD 

171 


.WORD 

ARR.DAT 


.WORD 

DUMPER 


AO V 

#WRD. 56, -(SP) 


nov 

#WRD.52.-(SP) 


nov 

#FNC.6,-(SP) 


nov 

#FNC.5,-(SP) 

#WRD.12,-(SP) 


nov 


nov 

#PHR.4,-(SP) 


nov 

#SIX.FNT,-(5P) 


nov 

#7,-(SP) 


nov 

SP.RO 


TRAP 

14 


nov 

RD.DATA,(SP) 


nov 

WT.DATA,-(SP) 


nov 

40(SP),R0 


ASL 

RO 


ASL 

RO 


ASL 

RO 


nov 

Nl.REG(RO) ,-<SP) 


nov 

#FNT.16.-(SP) 


nov 

#4,-(SP) 


nov 

SP.RO 


TRAP 

14 


NOV 

#1.42(SP) 


ADD 

#36, SP 

4$: 

ADD 

#12, SP 


f 


SEO 0272 


29-Aar-1982 16:23:04 TOPS 

29-Nar-1982 16:21:03 PA:< 

•.REG.SEL 6041 

6042 

6043 


TST.PAT,* 

REG.SEL,* 

INDEX,* 

TST.PAT,* 

REG.SEL,* 

ERR.FLG,* 

err.flg.* 


SP,* 

INDEX.* 


6045 

6046 

6048 

6050 

6052 

6053 

6054 


; SP,* 

; *,DODU.FLG 


6055 

6050 

6042 


j 




SEQ 0273 


29-»ar-1982 16:23:04 TOPS 
29-*ar-1982 16:21:03 PA:< 

60S6 


REG.SEL 

REG.SEL,* 

TST.PAT 

TWICE 

TWICE,* 

*, TST.PAT 
SHIFT 
TWICE 
*, REG.SEL 


TST.PAT.* 

REG.SEL,* 

INDEX,* 

TST.PAT,* 

REG.SEL,* 

ERR.FLG,* 

ERR.FLG,* 


6041 


6061 

6038 


6069 

6071 

6074 

6077 

6078 

6079 


6081 


6082 


6084 

6086 


6088 


6089 


; SP,* 


6090 


CZHLADO HI -11 LOGIC TEST 
»T17 TEST CODE SECTION 
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12367 

12368 

12369 

12370 

12371 

12372 

12373 

12374 

12375 

12376 

12377 

12378 

12379 

12380 

12381 

12382 

12383 

12384 

12385 

12386 

12387 

12388 

12389 

12390 

12391 

12392 

12393 

12394 

12395 

12396 

12397 

12398 

12399 

12400 

12401 

12402 

12403 

12404 

12405 

12406 

12407 

12408 

12409 

12410 

12411 

12412 

12413 

12414 

12415 

12416 

12417 

12418 

12419 

12420 

12421 


.-HL4A3 


044340 
044344 
044350 
044352 
044354 
044356 
044362 
044366 
044372 
044374 
044376 
C 44404 
044410 
044414 
044416 
044420 
044422 
044424 
044430 
044432 
044434 
044436 
044442 
044444 
044446 
044450 
044454 
044456 
044464 
044470 
044472 
044476 
044500 
044506 
044512 
044516 
044524 
044530 
044532 
044534 
044540 
044542 
044546 
044552 
044554 
044556 
044560 
044562 
044566 
044572 
044600 
044602 


016746 

016600 

006300 

006300 

006300 

016046 

012746 

012746 

010600 

104414 

012766 

062706 

062706 

104467 

006000 

103647 

005201 

020127 

003643 

005102 

005204 

020427 

003634 

006302 

005203 

020327 

003626 

012767 

012702 

005004 

012703 

104402 

152777 

016701 

042701 

142777 

150177 

010246 

010346 

012746 

060616 

004767 

016600 

006300 

006300 

006300 

010001 

016105 

056105 

012767 

010516 

010346 


151004 

000040 


015404 

007436 

000004 


000001 000042 

000030 

000012 10S: 


000015 


000001 


000017 

000001 150674 

177777 

000013 

000040 150736 

151320 

177770 

000007 150720 
150714 


000012 

160556 

000012 


015406 

015412 

000001 150560 


TEST COOE SECTION 

HOV UT.DATA,-(SP> 

HOV 40(SP),R0 

ASL RO 

ASL RO 

ASL RO 

HOV HL.REG(RO) ,-(SP> 

HOV #FHT.16.-(SP> 

HOV #4,-(SP) 

HOV SP,RO 

TRAP 14 

HOV #1 ,42(SP) 

ADD #30, SP 

ADD #12, SP 

TRAP 67 

RO R RO 

BLO 8$ 

INC R1 _ 

CHP R1,#15 

BLE 8S 

CON R2 

INC R4 

CHP R4,#1 

BLE 7$ 

ASL R2 

INC R3 

CHP R3,#17 

BLE 6S 

HOV #1 ,REG.INIT.FLG 

HOV #-1 ,R 2 

CLR R4 

HOV #13, R3 

TRAP 2 

B1SB #40,aHL.REG+40 

HOV HL.0UT,R1 

BIC #1 77770, R1 

BICB #7,aHL.REG*40 

BISB R1,dHL.REG+40 

HOV R2,-(SP) 

HOV R3,-(SP) 

HOV #12,-(SP> 

ADD SP, (SP) 

JSR PC,URT,REG 

HOV 12(SP),R0 

ASL RO 

ASL RO 

ASL RO 

HOV RO, R1 

HOV HL.REG+2(R1).R5 

BIS HL.REG+6(R1),R5 

HOV #1,REG.INIT.FLG 

HOV R5, (SP) 

HOV R3. -(SP) 


SEQ 0274 



f\>f\>r\Mv>rv>rv*fvjfSjrv>fvjrv>rurvj 



SEQ 0275 


29-H«r-1982 16:23:04 TOPS 
29-mr-1982 16:21:03 PA:< 


ERR.FLG,* 

ERR. FIG,* 6123 

612S 

6127 

6128 


; SP.* 

; CLR.DATA,* 


6129 


; SP,* 

; *,D0DU.FLG 


6130 
6125 
6115 

6131 


; REG.SEL 6114 

; REG.SEL,* 

; TST.PAT 6136 

; TWICE 6111 

; TWICE,* 

6139 

; DODU.FL6.* 6141 


6144 


6005 





UWLADO ML-11 LOGIC TEST 
ST17 TEST CODE SECTION 


12479 

12480 

12481 

12482 

12483 

12488 

12489 

12493 

12494 

12498 

12499 

12500 

12501 

12502 

12503 

12504 

12505 

12506 

12511 

12512 

12513 
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SfcQ 027 6 


;«L4AD 


TEST CODE SECTION 


29-Ha r-1982 16:23:04 
29-Har-1982 16:21:03 


; Routine Size: 341 words 
; Maximus stack depth per invocation: 


26 words 


045044 

045044 004767 176522 
045050 104466 
045052 006000 
045054 103773 
045056 000207 


6149 !<BIF/PAGE> 


T17: : 
IS: 


.S8TTL T17 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.ST17 

66 

RO 

IS 

PC 


; Routine Size: 6 words _ 

; Maximus stack depth per invocation: 0 words 


CZMLADO ML-11 LOGIC TEST 
T17 TEST CODE SECTION 


G 6 

MACRO Nil 13 30-MAR-82 11:18 PAGE 294 


SEO 0277 


12515 

12516 

1251 7 

12518 

12519 

12520 

12521 

12522 

12523 

12524 

12525 

12526 

12527 

12528 

12529 

12530 

12531 

12532 

12533 

12534 

12535 

12536 

12537 

12538 

12539 

12540 

12541 

12542 

12543 

12544 

12545 

12546 

12547 

12548 

12549 

12550 

12551 

m 

12554 

12555 

12556 

12557 

12558 

12559 

12560 

12561 

12562 

12563 

12564 

12565 

12566 

12567 

12568 

12569 


;ML4AD 


6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 
6161 
6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 
6181 
6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 

6200 
6201 


TEST CODE SECTION 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(2 12) 
29-Mar-1982 16:21:03 PA : <NE ALE >ML4 AD .81 1 . 4 (70) 


I 


BGNTST; 


♦♦ 

TEST NUMBER: TST 18 

TEST NAME: CQMPOSIT ERROR TEST 

TEST DESCRIPTION: 

TEST TO SEE IF SETTING EACH 
BIT IN THE ERROR REGISTER 
CAUSES A COMPOSIT ERROR BY: 

WRITING A SHIFTING ONE THROUGH 
THE ERROR REGISTER (SKIPPING THE 
READ ONLY BITS) AND TESTING THE 
CQMPOSIT ERROR BIT IN MLDS 
FOR BEING SET AFTER EACH 
WRITE. 


local 

DAT PAT. 

SKlP.MASK; 

CLR MBUS; 

SKIP MASK * Jo* 163157’; 
DAT.PAT = ONE; 

incr COUNT from 0 to 15 do 
begin 


•DATA PATTERN 

• POINTS TO FILER READ ONLY BITS 


.'LOAD SKIP MASK 

•DATA PATTERN SET BIT 0 IN FILER 

•WRITE AND SHIFT DATA PAT TO FILER 16 TIMES 


if (.DAT.PAT and .SKIP.MASK) neq ZERO 



FILER = .DAT.PAT; 


if .COMP.ERR IS.NOT.SET 
then 

Er2d? (50. ASYNC. DUMPER); 
PRINTS (FOR FMT. FNC 8. PHR 1, 
PRINTS <FMT”4. .DAT PAT); 
end; 


•SKIP IF DAT.PAT FALLS ON READ ONLY BIT 

•WRITE DATA.PAT TO MLER 

.'SEE IF DAT.PAT CAUSED A COMP ERROR 

• ERROR IF NO COMP ERROR 
WRD.12. FNC.8); 


ENDSU8; 

end; 

DAT.PAT = .DAT_PAT A ONE; ! SHIFT DAT.PAT TO NEXT BIT AND REPEAT 


CZMLADO ML-11 LOGIC TEST 
T 1 7 TEST CODE SECTION 
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SEQ 0278 


12571 

12572 

12573 

12574 

12575 

12576 

12580 

12581 

12585 

12586 

12587 

12588 

12589 

12590 

12591 

12592 

12593 

12594 

12595 

12596 

12597 

12598 

12599 

12600 
12601 
12602 

12603 

12604 

12605 

12606 

12607 

12608 

12609 

12610 
12611 
12612 

12613 

12614 

12615 

12616 

12617 

12618 

12619 

12620 
12621 
12622 

12623 

12624 

12625 


;ML4AD 


045060 
045064 
045072 
045076 
045102 
045110 
045114 
045120 
045124 
045126 
045130 
045132 
045134 
045140 
045146 
045150 
045152 
045154 
045156 
045160 
045164 
045170 
045174 
045200 
045204 
045210 
045212 
045214 
045216 
045222 
04 , 126 
045230 
045232 
045236 
045240 
045242 
045244 
045246 
045250 
045254 
045256 


TEST CODE SECTION 


6202 end, 

6203 

6204 ENDTST; 


004167 

152777 

016703 

042703 

142777 

150377 

012703 

012701 

005002 

030103 

001445 

104402 

010177 

032777 

001033 

104455 

000062 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010116 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103733 

006301 

005202 

020227 

003724 

000207 


137470 *T18: 

000040 150352 
150734 
177770 

000007 150334 
150330 
163157 
000001 


150324 

040000 150306 


012244 

010650 

011610 

012244 

010270 

000005 


006620 

000002 


000020 


000017 


29-Mar-1982 16:23:04 
29-Mar-1982 76:21:03 


TOPS-20 Bliss-16 V2(2 12) 
PA: <NEALE>ML4AD.8l I .4 (70) 


.S8TTI ST18 TEST CODE SECTION 

JSR R1.SSAVE3 

BISS #40,ML.REG*40 

MOV ML.DUT.R3 

BIC #177776,R3 

BICB #7,8ML.REG*40 

BISS R3.8ML.REG+40 

MOV #-14621 ,R3 

MOV #1 ,R1 

CLR R2 

BIT R1.R3 

BEO 4$ 

TRAP 2 

MOV R1.8ML.REG+60 

BIT #46000, SSL. REG+50 

BNE 3S 

TRAP 55 

.WORD 62 

.WORD ASVNC 

.WORD DUMPER 

MOV #FNC.8.-(SP> 

MOV #WRD.12,-<SP> 

MOV #PHR.1,-(SP) 

MOV #FNC.8,-(SP> 

MOV #FOR.FMT,-(SP) 

MOV #5,-<SP) 

MOV SP, RO 

TRAP 14 

MOV R1, (SP) 

MOV #FMT.4,-(SP) 

MOV #2,-< SP) 

MOV SP.RO 

TRAP 14 

ADD #20, SP 

TRAP 67 

ROR RO 

BLO 2 $ 

ASL Rt 

INC R2 

CMP R2.#17 

BLE IS 

RTS PC 


; *, SKIP. MASK 
; *, DAT. PAT 
; COUNT 

; DAT. PAT, SKIP. MASK 


; DAT. PAT,* 


6148 

6175 


6178 

6179 
6181 
6184 

6186 

6188 

6190 

6193 


; SP,* 

; DAT. PAT,* 

; SP,* 


; DAT. PAT 
; COUNT 
; COUNT.* 



SEQ 0279 


29-*ar-1982 16:23:04 TOPS 
29-*ar-1982 16:21:03 PA:< 


12 words 


6202 


0 words 
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SEO 0280 


12664 

12665 

12666 

12667 

12668 

12669 

12670 

12671 

12672 

12673 

12674 

12675 

12676 

12677 

12678 

12679 

12680 
12681 
12682 

12683 

12684 

12685 
126S6 

12687 

12688 

12689 

12690 

12691 

12692 

12693 

12694 

12695 

12696 

12697 

12698 

12699 

12700 

12701 

12702 

12703 

12704 

12705 

12706 

12707 

12708 

12709 

12710 

12711 

12712 

12713 

12714 

12715 

P 

12718 


;rfL4AD 


6206 

6207 

6208 

6209 

6210 
6211 
6212 

6213 

6214 

6215 

6216 

6217 

6218 

6219 

6220 
6221 
6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 19 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:2;: 03 


T0PS-2C Bliss-16 V2(212> 

PA :<NE ALE >ML4A0.BL I. 4 (71) 


TEST NAME: 


ATA BIT TEST 


TEST DESCRIPTION: 

TEST THE ATA BIT FOR SETTING 
BY: 

1. SETTING A BIT IN THE ERROR 
REGISTER. 

TEST THE ATA BIT FOR CLEARING 
AFTER BEING SET BY: 

1. WRITING A FUNCTION TO MLCS1 

2. WRITING A ONE INTO THIS 
UNITS ATA BIT 

TEST THE ATA BIT FOR NOT CLEARING 
AFTER BEING SET BY: 

1. WRITING A ONE INTO THE 
ATA BIT OF THE OTHER 
UNITS. 


local 

ATA.SAVE : bitvector C83, !ST 

DAT.PAT; IDA 

CLR.MBUS; 

NLER = ONE; !SE 

MLER = ZERO; 

ATA.SAVE = .ML AS; IRE 

if .ATA.SAVE C.ML.DUTJ IS.NOT SET JSE 

then 

ErUdF (51 , ASYNC. DUMPER); JER 

PRINTS (FOR.FMT. WRD.15, PHR 1, WRD 11. FNC 8); 
EXIT.TST; 
end; 

if .ATTN IS NOT SET 
then 

begin 


.'STORES ALL 8 ATA BITS ON READS AND WRITES 
1DATA PATTERN 


.'SET THE ATA BIT 

.'READ THE ATTN REGISTER 

f SEE IF THIS DRIVES ATA BIT IS SET 


.'ERROR AND EXIT.TST IF NOT SET 


.'SEE IF THE ATTN BIT IS SET 


CZMLADO ML-11 LOGIC TEST 
T18 TEST CODE SECTION 


K 6 
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SEQ 0281 


12720 ;ML4AD 

12721 ; 

12722 

12723 

12724 

12725 

12726 

12727 

12728 

12729 

12730 

12731 

12732 

12733 

12734 

12735 

12736 

12737 

12738 

12739 

12740 

12741 

12742 

12743 

12744 

12745 

12746 

12747 

12748 

12749 

12750 

12751 

12752 

12753 

12754 

12755 

12756 

12757 

12758 

12759 

12760 

12761 

12762 

12763 

12764 

12765 

12766 

12767 

12768 

12769 

12770 

12771 

12772 

12773 

12774 


6258 

6259 

6260 
6261 
6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 
6231 
6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 


TEST CODE SECTION 


29-Mar- 1982 16:23:04 TOPS-20 Bliss-16 V2(212> 

29-Mar-1982 16:21:03 PA:<NEALE>Ml4AD.BLI .4 (71) 


ERRDF (52, ASYNC. DUMPER); 

PRINTB (FIV.FMT. REG.2, WRD.16, PHR.1, 

EXIT.TST; 

end; 


! ERROR AND EXIT.TST IF NOT SET 
WRD.11, FNC.8); 


MLCS1 = NOOP; 


.'TRY TO CLEAR THE ATA BIT WITH NOOP FUNC 


if .ATTN IS.SET 
then 


begin 

ERRDF (53, ASYNC, DUMPER); 

PRINTB (FOR FMT, WRDJ5, PHR.2, WRD, 

EXIT.TST; " 

end; 


11 , 


•SEE IF ATA GOT CLEARED 

.'ERROR AND EXIT TST IF SET 
FNC.2, URD.19); 


ATA.SAVE = .MLAS; .'READ THE ATTENTION REGISTER 

if .ATA.SAVE C.ML.DUTJ IS.SET !SEE IF THE ATA REG GOT CLEARED BY NO-OP 

then 

begin 

ERRDF (58, ASYNC, DUMPER); _ . . 

PRINTB (FIV.FMT, WRD.15, PHR.2, WRD.11, FNC.2, WRD.19); 
end; 


BGNSUB; 

MLER = ONE; 

MLER = ZERO; 

ATA SAVE = ZEROES; 

ATA.SAVE C.ML DU’J = ONE; 

MLAS = .ATA.SAVE; 

if .ATTN IS.SET 
then 

ER$DF (54, ASYNC. DUMPER); 

PRINTS (FIV.FMT. WRD.15, PHR.2, WRD.11, 
end; 


! SET THE ATA BIT 

•CLEAR ATA.SAVE 

! SET ATA.SAVE FOR THIS DRIVE 

! TRY TO tLEAR THE ATA BY WRITING TO IT. 

•SEE IF THE ATA GOT CLEARED 


! ERROR IF NOT CLEARED 
WRD.17, REG.5); 


ENDSU8; 

BGNSUB; 

MLER = ONE; 

MLER = ZERO; 

DAT.PAT = ONE; 

incr ATA.SEL from 0 to 7 do 
begin 


if .ATA SEL neo .ML.DUT 
then 


begin 

MLAS = .DAT.PAT; 
ATA SAVE = .MLAS; 


•SET THE ATA BIT 

•DATA PATTERN OF ONE IN FIELD OF ZEROES 
.'REPEAT LOOP 8 TIMES 

•SKIP IF ATA.SEL EQLS THIS DRIVE NO. 

! WRITE DAT PAT TO ATA REGISTER 
•READ ATA REG BACK 


CZMLADO ML-11 LOGIC TEST 
T18 TEST CODE SECTION 
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W 


SEO 0282 


12776 

12777 

12778 

12779 

12780 

12781 

12782 

12783 

12784 

12785 

12786 

12787 

12788 

12789 

12790 

12791 

12792 

12793 

12794 

12795 

12799 

12800 

12804 

12805 

12806 

12807 

12808 

12809 

12810 
12811 
12812 

12813 

12814 

12815 

12816 

12817 

12818 

12819 

12820 
12821 
12822 

12823 

12824 

12825 

12826 

12827 

12828 

12829 

12830 


ML4AD 


045274 

045300 

045306 

045312 

045316 

045324 

045330 

045336 

045342 

045346 

045352 

045354 

045356 

045360 

045362 

045364 

045366 

045372 

045376 

045402 

045404 

045410 

045414 

045416 

045420 

045422 

045424 


TEST CODE SECTION 


29-M»r-1982 16:23:04 
29-M*r-1982 16:21:03 


TOPS-20 Blist-16 V2<212> 
PA:<N£ALE>ML4AD.8LI.4 (71) 


6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 


004167 

152777 

016703 

042703 

142777 

150377 

012777 

005077 

017746 

016701 

006201 

006201 

006201 

010600 

060001 

010146 

016746 

042716 

012746 

005046 

004767 

062706 

005700 

001026 

104455 

000063 

012706 


if .ATA.SAVE C.ML.DUTJ IS„N0T_SET 
then 

begin 

ERRDF (55. ASYNC, DUMPER); 


•SEE IF THIS DRIVE ATA IS CLEARED 


tnnur wv. ‘ERROR AND EXIT LOOP IF CLEARED 

PRINTS (SIX FMT^ URD 15. PHR.6. URDJ1, WRD.17. REG.5. PHR_7); 
PRINTS (FMTI7, .DAT.PAT); 
ex it loop; 
end; 


end; 

DAT.PAT = . DAT_PAT A ONE; 
end; 


.'SHIFT DAT.PAT AND REPEAT 


ENDSUB; 

ENDTST; 


.S8TTL 


137254 

ST1 9: 

JSR 

000040 

150136 

BISB 

150520 


MOV 

177770 


BIC 

000007 

150120 

BICB 

150114 


BISB 

000001 

150126 

MOV 

150122 


CLR 

150126 


MOV 

150460 


MOV 

ASR 

ASR 

ASR 

MOV 

ADD 

MOV 

150440 


MOV 

177770 


BIC 

000001 


MOV 

CLR 

136224 


JSR 

000010 


ADD 

TST 

BNE 

TRAP 


.WORD 

.WORD 


ST19 TEST CODE SECTION 

R1 .SSAVE3 

#40,SNL.REG+40 

ML-DUT.R3 

Ml 77776. R3 

#7,8ML.REG+4G 

R3.8HL.REG+40 

Ml .SML.REG+60 

SML.REG+60 

SML.REG+70,-(SP) 

ML.DUT.R1 

R1 

R1 

R1 

SP.RO 

R0.R1 

RI.-(SP) 

ML.DUT.-(SP) 

#177770.(SP) 

#1,-(SP> 

-(SP) 

PC.BLSGT2 

flO.SP 

RO 

1 $ 

55 

63 

ASYNC 


*, ATA. SAVE 


; ATA. SAVE,* 


6204 

6240 


6243 

6244 

6245 
6247 


6250 


m 6 

MACRO Mil 13 30-NAR-82 11:18 PAGE 300 


CZMIADO ML-11 LOGIC TEST 
$T19 TEST CODE SECTION 


12832 

12833 

12834 

12835 

12836 

12837 

12838 

12839 

12840 

12841 

12842 

12843 

12844 

12845 

12846 

12847 

12848 

12849 

12850 

12851 

12852 

12853 

12854 

12855 

12856 

12857 

12858 

12859 

12860 
12861 
12862 

12863 

12864 

12865 

12866 

12867 

12868 

12869 

12870 

12871 

12872 

12873 

12874 

12875 

12876 

12877 

12878 

12879 

12880 
12881 
12882 

12883 

12884 

12885 

12886 


; ML 4 AD 


045426 
045430 
045434 
045440 
045444 
045450 
045454 
045460 
045462 
045464 
045466 
045472 
045474 
045502 
045504 
045506 
045510 
045512 
045514 
045520 
045524 
045530 
045534 
045540 
045544 
045550 
045552 
045554 
045556 
045560 
045566 
045572 
045574 
045576 
045600 
045602 
045604 
045610 
045614 
045620 
045624 
045630 
045634 
045640 
045642 
045644 
045646 
045652 
045656 
045662 
045666 
0456? J 


026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

104463 

062706 

000467 

032777 

001026 

104455 

000064 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

104463 

000433 

012777 

005777 

100031 

104455 

000065 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

104463 

062706 

000167 

017716 

016701 

006201 

006201 


012244 

010640 

011610 

010676 

010270 

000005 


000014 


TEST CODE SECTION 

.WORD DUMPER 

MOV #FNC.8.-<SP> 

MOV fWRD.11 ,-<SP) 

MOV fPHR.I.-(SP) 

MOV #WRD.15,-(SP> 

MOV fFOR.FMT.-(SP) 

MOV #5,-(SP) 

MOV SP,RO 

TRAP 14 

TRAP 63 

ADD #14. SP 


100000 147752 


012244 

010640 

011610 

010704 

012510 

010304 

000006 


000001 147616 

147662 


010730 

012164 

010640 

011626 

010676 

010270 

000006 


000016 

000546 

147612 

150144 



BR 

4$ 

IS: 

BIT 

#1 00000. 8HL.REG+50 


BNE 

2$ 


TRAP 

55 


.WORD 

64 


.WORD 

ASYNC 


.WORD 

MOV 

MOV 

DUMPER 
#FNC.8.-(SP> 
fWRD.il ,-(SP) 


MOV 

#PHR.1.-(SP) 


MOV 

#WRD.16,-<SP> 


MOV 

#REG.2.-(SP> 


MOV 

fFIV.FMT.-(SP) 


MOV 

#6,-<SP> 


MOV 

SP.RO 


TRAP 

14 


TRAP 

63 


BR 

3$ 

2$: 

MOV 

f1.8ML.REG 

TST 

8ML.REG+50 


BPL 

5$ 


TRAP 

55 


.WORD 

65 


.WORD 

ASYNC 


.WORD 

DUMPER 


MOV 

#WRD.19.-(SP) 


MOV 

#FNC.2.-(SP) 

fWRD.ll.-(SP) 


MOV 


MOV 

#PHR.2.-(SP> 

#WRD.15,-(SP) 

#FGR.FMT,-<SP) 


MOV 


MOV 


MOV 

#6,-(SP) 


MOV 

SP.RO 


TRAP 

14 


TRAP 

63 

3$: 

ADD 

#16, SP 

4$: 

JMP 

12$ 

5$: 

MOV 

8NL.RE6+70, (SP) 


MOV 

ML.DUT.R1 


ASR 

R1 


ASR 

R1 


f 


SEQ 0283 



CZMLADO ML-11 LOGIC TEST 
$T19 TEST CODE SECTION 


MACRO All 13 30-MAR-82 11:18 PAGE 301 


12888 

12889 

12890 

12891 

12892 

12893 

12894 

12895 

12896 

12897 

12898 

12899 

12900 

12901 

12902 

12903 

12904 

12905 

12906 

12907 

12908 

12909 

12910 

12911 

12912 

12913 

12914 

12915 

12916 

12917 

12918 

12919 

12920 

12921 

12922 

12923 

12924 

12925 

12926 

12927 

12928 

12929 

12930 

1293 1 

12932 

12933 
12V34 

12935 

12936 

12937 

12938 

12939 

12940 

12941 

12942 


; At 4 AD 


045672 

045674 

045676 

045700 

045702 

045706 

045712 

045716 

045720 

045724 

045730 

045732 

045734 

045736 

045740 

045742 

045744 

045750 

045754 

045760 

045764 

045770 

045774 

046000 

046002 

046004 

046010 

046012 

046020 

046024 

046026 

046032 

046034 

046036 

046040 

046042 

046044 

046046 

046052 

046056 

046062 

046064 

046070 

046076 

046102 

046104 

046106 


046112 

046114 

046120 

046124 


006201 

010600 

060001 

010146 

016746 

042716 

012746 

005046 

004767 

062706 

005300 

001026 

104455 

000072 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

104402 

012777 

005077 

005016 

016701 

006201 

006201 

006201 

010600 

060001 

010146 

016746 

042716 

012746 

011646 

004767 

016677 

005777 

100026 

104455 

000066 

012206 

026302 

012746 

012746 

012746 


150124 

177770 

000001 

135710 

000010 


010730 

012164 

010640 

011626 

010676 

010304 

000006 


000016 


000001 147444 

147440 

150000 


147760 

177770 

000001 

136002 

000010 147376 
147352 


012532 

010712 

010640 


TEST CODE SECTION 

ASR R1 

MOV SP.RO 

ADD R0.R1 

MOV R1,-(SP) 

MOV ML.DUT.-(SP) 

61 C #177776. (SP) 

MOV #1,-(SP> 

CLR -(SP) 

JSR PC.8LSGT2 

ADD #l6.SP 

DEC RO 

BNE 6$ 

TRAP 55 

.WORD 72 

.WORD ASVNC 

.WORD DUMPER 

MOV #WRD.19.-(SP) 

MOV #FNC.2.-(SP) 

MOV #WRD.11.-(SP) 

MOV #PHR.2.-(SP) 

MOV #WRD.15.-(SP) 

MOV #FJV.FMT.-(SP) 

MOV #6.-(SP) 

MOV S P.RO 

TRAP 14 

ADD #16. SP 

TRAP 2 

MOV #1,9ML.REG*60 

CLR 8ML.REG+60 

CLR (SP) 

MOV ML.DUT.R1 

ASR R1 

ASR 81 

ASR R1 

MOV SP.RO 

ADD R0.R1 

MOV RI.-(SP) 

MOV ML.DUT.-(SP) 

81 C #1 77776. (SP) 

MOV #1.-(SP) 

MOV (SP). -(SP) 

JSR PC.SLSPU2 

MOV 10(SP) .iML.REG+70 

TST 8ML.REG+50 

BPL 7$ 

TRAP 55 

.WORD 66 

.WORD ASVNC 

.WORD DUMPER 

MOV #REG.5.-(SP) 

MOV #WRD.17,-(SP) 

MOV #WRD.11,-(SP) 


SEO 0284 


29-Mar-1982 16:23:04 TOPS 
29-Mar- 1982 16:21:03 PA:< 


; ATA.SAVE.* 


; SP.* 

; ATA.SAVE 

; ATA.SAVE.* 

; ATA.SAVE.* 


6278 


6279 


6277 

6280 

6283 

6284 

6285 

6286 


6287 

6289 

6292 


6293 


j 


CZMIADO NL-11 LOGIC TEST 
5T19 TEST CODE SECTION 


B 7 

NACRO Nil 13 30-NAR-82 11:18 PAGE 302 


SEQ 0285 


12944 

12945 

12946 

12947 046130 012746 

12948 046134 012746 

12949 046140 012746 

12950 046144 012746 

12951 046150 010600 

12952 046152 104414 

12953 046154 062706 

12954 046160 062706 

12955 046164 104467 

12956 046166 006000 

12957 046170 103707 

12958 046172 104402 

12959 046174 012777 

12960 046202 005077 

12961 046206 012703 

12962 046212 005002 

12963 046214 020267 

12964 046220 001471 

12965 046222 010377 

12966 046226 017716 

12967 046232 016701 

12968 046236 006201 

12969 046240 006201 

12970 046242 006201 

12971 046244 010600 

12972 046246 060001 

12973 046250 010146 

12974 046252 016746 

12975 046256 042716 

12976 046262 012746 

12977 046266 005046 

12978 046270 004767 

12979 046274 062706 

12980 046300 005700 

12981 046302 001040 

12982 046304 104455 

12983 046306 000067 

12984 046310 012706 

12985 046312 026302 

12986 046314 012746 

12987 046320 012746 

12988 046324 012746 

12989 046330 012746 

12990 046334 012746 

12991 046340 012746 

12992 046344 012746 

12993 046350 012746 

12994 046354 010600 

12995 046356 104414 

12996 046360 010316 

12997 046362 012746 

12998 046366 012746 



;NL4AD 




• 


TEST CODE SECTION 

011626 


NOV 

#PHR.2.-(SP) 

010676 


NOV 

#yRD.15,-(SP> 

010304 


NOV 

#FIV.FNT,-(SP) 

000006 


NOV 

#6.-(SP) 


NOV 

SP,RO 



TRAP 

14 

000016 


ADD 

#16. SP 

000010 

7S: 

ADD 

#10. SP 


TRAP 

67 



ROR 

RO 



BLO 

65 


85: 

TRAP 

2 

000001 147262 


NOV 

#1 ,BNL .REG+60 

147256 


CLR 

8NL.REG+60 

000001 


NOV 

#1.R3 


CLR 

R2 

147612 

95: 

CNP 

R2.NL.DUT 


BEO 

ioi 

147246 


NOV 

R3.9NL.REG+70 

147242 


NOV 

8NL.REG*70, (SP) 

147574 


NOV 

NL.DUT.R1 



ASR 

R1 



ASR 

R1 



ASR 

R1 



NOV 

SP. RO 



ADD 

R0.R1 



NOV 

RI.-(SP) 

147554 


NOV 

NL.DUT.-(SP) 

177770 


BiC 

#177776. (SP) 

000001 


NOV 

#1,-(SP) 


CLR 

-(SP) 

135340 


JSR 

PC.BL5GT2 

000010 


ADD 

#l6.SP 


TST 

RO 



BNE 

105 



TRAP 

55 



.WORD 

67 



.WORD 

ASYNC 



.WORD 

DUNPER 

011740 


NOV 

#PHR.7,-(SP) 

012532 


NOV 

#RE6.5.-(SP) 

010712 


NOV 

#WRD.17,-(SP) 

010640 


NOV 

#WRD.11,-<SP) 

011726 


NOV 

#PHR.6.-(SP) 

010676 


NOV 

#WRD.1$,-<SP) 

01 0322 


NOV 

#SIX.FNT.-(SP) 

000007 


NOV 

#7.-(SP) 


NOV 

SP.RO 



TRAP 

14 



NOV 

R3,(SP) 

007002 


NOV 

#FNT.7,-(SP) 

000002 


NOV 

#2,-(SP) 


29-N«r-1982 16:23:04 TOPS 

29-N*r-1982 16:21:03 PA:< 


SP.* 

6291 


6280 


6294 


6296 


6293 


6299 

*, DAT. PAT 

6300 

ATA.SEL 

6302 

ATA.SEL.* 

6305 

DAT. PAT.* 

6308 

*. ATA.SAVE 

6309 


6311 


; ATA.SAVE .* 


6314 

6315 


; SP.* 

; DAT. PAT,* 6316 


CZMLADO ML-11 LOGIC TEST 
$T19 TEST CODE SECTION 


13000 

13001 

13002 

13003 

13004 

13005 

13006 

13007 

13008 

13009 

13010 

13011 

13012 

13013 

13014 

13015 

13016 

13017 

13018 

13023 

13024 
1?028 

r 

i: 

i 


C 7 
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;ML4AD 


SEQ 0286 


046372 

010600 



MOV 

046374 

104414 



TRAP 

046376 

062706 

000024 


ADD 

046402 

000405 



BR 

046404 

006303 


10$: 

ASL 

046406 

005202 



INC 

046410 

020227 

000007 


CMP 

046414 

003677 



BLE 

046416 

104467 


11$: 

TRAP 

046420 

006000 



RQR 

046422 

103663 



BLO 

046424 

005726 


12$: 

TST 

046426 

000207 



RTS 


; DAT. PAT 
; ATA.SEL 
; ATA.SEL.* 


m 

5034 
3035 

13036 

13037 

13038 

13039 

13040 

13041 

13046 

13047 

13048 


046430 

046430 

046434 

046436 

046440 

046442 


004767 176640 
104466 

00600jj 

000207 


6327 !<8LF/PAGE> 


TEST CODE SECTION 

SP.RO ; SP,* 

14 

#24, SP 
11$ 

R3 
R2 

R2,#7 
9$ 

67 
RO 
8 $ 

<SP> + 

PC 

Routine Size: 302 words 

Maximum stack depth per invocation: 16 words 


T19: : 
1 $: 


Routine Size: 6 words 

Maximum stack depth per invocation: 0 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


6317 

6322 

6302 


6323 

6204 


.S8TTL 

T19 TEST 

JSR 

PC,$T19 

TRAP 

66 

ROR 

RO 

BLO 

1$ 

RTS 

PC 


6325 


CZMLADO ML— 1 1 LOGIC TEST 
T19 TEST CODE SECTION 


MACRO Nil 13 30-MAR-82 11:18 PAG* 304 


SEO 0287 


13050 ;ML4AD 

13051 ; 

13052 

13053 ; 6328 

13054 ; 6329 

13055 ; 6330 

13056 ; 6331 

13057 : 6332 

13058 ; 6333 

13059 ; 6334 

13060 ; 6335 

13061 ; 6336 

13062 ; 6337 

13063 ; 6338 

13064 ; 6339 

13065 ; 6340 

13066 ; 6341 

13067 ; 6342 

13068 ; 6343 

13069 ; 6344 

13070 ; 6345 

13071 ; 6346 

13072 ; 6347 

13073 ; 6348 

13074 ; 6349 

13075 ; 6350 

13076 ; 6351 

13077 ; 6352 

13078 ; 6353 

13079 ; 6354 

13080 ; 6355 

13081 ; 6356 

130R2 ; 6357 

13083 ; 6358 

13084 ; 6359 

13085 ; 6360 

13086 ; 6361 

13087 ; 6362 

13088 ; 6363 

13089 ; 6364 

13090 ; 6365 

13091 ; 6366 

13092 ; 6367 

13093 ; 6368 

13094 ; 6369 

13095 ; 6370 

13096 ; 6371 

13097 ; 6372 

13098 ; 6373 

13099 ; 6374 

13100 ; 6375 

13101 ; 6376 

13102 ; 6377 

13103 ; 6378 

13104 ; 6379 


TEST CODE SECTION 


6GNTST; 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BL;.4 (72) 


TEST NUMBER: TST 20 

TEST NAME: SEARCH FUNCTION TEST 

TEST DESCRIPTION: 

TEST THE SEARCH FUNCTION BY: 

1. DOING A SEARCH FUNCTION AT 
ARRAY ZERO AND TEST GO, 

ERROR BITS AND ATTN FOR 
SETTING/NOT SETTING. 

2. DOING SEARCH FUNCTIONS AT ALL 
PRESENT ARRAYS* AND TEST ATTN 
SET 

3. DOING SEARCH FUNCTIONS AT ALL 
NOT PRESENT ARRAYS* AND TEST 
ATTN CLEARED. 


CLR MBUS; 

MLDX = ZEROES; 
MLCS1 = SEARCH; 


•DO A SEARCH FUNCTION 
! SEE IF GO IS SET 


if .GO IS.SET ! SEE IF GO IS SET 

then 

ER^DF (56, ASYNC, DUMPER); .{ERROR N0T SET 

PRINTS (FIV.FMT, WRD_1, PHR.2, WRD.11, FNC.10, URD.19); 
end; 

if .ILF IS.SET ! SEE IF ILF IS SET 

then 

ErUdF (57, ASYNC, DUMPER); . ! ERROR IF SET 

PRINTS (FIV.FMT, WRD.3, PHR.5, WRD.11, FNC.11, FNC.10, WRD.19); 
end; 

if .ATTN IS.NOT.SET ‘SEE IF ATTN IS SET 

then 

begin 

ERRDF (59, ASYNC, DUMPER); . !ERROR IF NOT SET 

PRINTS (FIV.FMT, WRD.16, PHR.1 , WRD.12, FNC.10, WRD.19); 
end 


CZHLADO ML-11 LOGIC TEST 
T19 TEST COOE SECTION 


MACRO Ml 11 3 30-MAR-82 11:18 PAGE lo5 ? 


SEQ 028 8 


13106 

13107 

13108 

13109 

13110 

13111 

13112 

13113 

13114 

13115 

13116 

13117 

13118 

13119 

13120 

13121 

13122 

13123 

13124 

13125 

13126 

13127 

13128 

13129 

13130 

13131 

13132 

13133 

13134 

13135 

13136 

13137 

13138 

13139 

13140 

13141 

13142 

13143 

13144 

13145 

13146 

13147 

13148 

13149 

13150 

13151 

13152 

13153 

13154 

13155 

13156 

13157 

13158 

13159 

13160 


ML4AD 


6380 

6381 

6382 

6383 
63S4 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 


TEST COOE SECTION 
else 

begin 

CLR.THRESHOLD; 


VERSION CZMLAD CHANGED INCR TO INCRU 

incru ARR.SEL from 0 to .LST_ARR by .ARR_INC do 
begin 
BGNSUB; 

CLR MBUS; 


29-Mir-1982 16:23:04 
29-Mer-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (72) 


•CLEAR ERROR PRINT THRESHOLD 


! DO SEARCH AT ALL PRESENT ARRAYS 


HLD* = .ARR SEL; 
MLCS1 = SEARCH; 


•LOAD DSA REG WITH ARR SEL 
•DO A SEARCH FUNCTION 

•READ ATTN 


if .OPI IS.SET 
then 

CM? THRESHOLD; .'COMPARE ERROR PRINT THRESHOLD 

ERR&F (60, A5YNC, DUMPER); 'ERROR IF NOT SET 

PRINTS (FIV.FMT. WRD 4, PHR 5. WRD.12, FNCJO, WRD 19); 

PRINTB <FMT_9. .ARRjEL); 
end; 


ENDSUB; 

end; 

CLR.THRESHOLD; 

if .OP.NUM.ARR Iss Xo* 00001 7* 
then 


! CLEAR ERROR PRINT THRESHOLD 
.'SEE IF LSS 17 ARRAYS ARE PRESENT 


VERSION CZMLAD CHANGED INCR TO INCRU 

incru ARR SEL fro« (.LST.ARR ♦ .ARR.INC) to .ARR 16 by .ARR.INC do 

•DO A SEARCH AT ALL NOT PRESENT 
begin 'ARRAYS IF LSS 17 

BGNSUB; 

CLR MBUS* 

MLD* = .ARR SEL; 'LOAD DSA REG WITH ARR.SEL 

MLCS1 = SEARCH; !D0 A SEARCH FUNCTION 


if .OPI IS.NOT.SET 
then 

be^in 


•SEE IF OPI IS SET 


... THRESHOLD; ! COMPARE ERROR PRINT THRESHOLD 

ERRBF (61. ASYNC. DUMPER); .'ERROR IF NOT SET 
PRINTB <FIV FMT, WRD 4. PHR 1. WRD 12. FNCJO. WRDJ9); 

PRINTB (FMT~9, .ARR SEL); 
end; 


CZNLADO NL-11 LOGIC TEST 
T19 TEST CODE SECTION 


NACRO HI 113 30-HAR-82 11:18 PAGE 306 


SEQ 0289 


13162 

13163 

13164 

13165 

13166 

13167 

13168 

13169 

13170 

13174 

13175 

13179 

13180 

13181 

13182 

13183 

13184 

13185 

13186 

13187 

13188 

13189 

13190 

13191 

13192 

13193 

13194 

13195 

13196 

13197 

13198 

13199 

13200 

13201 

13202 

13203 

13204 

13205 

13207 

13208 

13209 

13210 

13211 

13212 

13213 

13214 

13215 

13216 


;NL4AD 


046444 

046450 

046456 

046462 

046466 

046474 

046500 

046504 

046512 

046520 

046522 

046524 

046526 

046530 

046532 

046536 

046542 

046546 

046552 

046556 

046562 

m 

046572 
046576 
046604 
046606 
046610 
046612 
046614 
046616 



TEST CODE SECTION 


6432 

6433 

6434 

6435 end 

6436 

6437 ENDTST; 


ENDSU8; 

end; 


0466 
046642 
6646 
6652 


004167 

152777 

016703 

042703 

142777 

150377 

005077 

012777 

132777 

001426 

104455 

000070 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

132777 

001430 

104455 

000071 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 


136104 ST20: 

000040 146766 
147350 
177770 

000007 146750 

146744 

146730 

000031 146672 

000001 146664 


010730 

012272 

010640 

011626 

010520 

010304 

000006 


000016 

000001 146660 IS: 


010730 

012272 

012302 

010640 

011714 

010536 

010304 

000007 


.S8TTL 

JSR 

BISS 

NOV 

BIC 

BIC6 

BISS 

CLR 

NOV 

BITS 

8EQ 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

BITS 

BEO 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 


29-N«r-1982 16:23:04 
29-Nar-1982 16:21:03 


T0PS-20 Bliss-16 V2<2 12) 
PA:<NEALE>NL4AD.8LI.4 (72) 


ST 20 TEST CODE SECTION 

R1.SSAVE3 

f40,8NL.REG*40 

Nl.DUT.R3 

#177776.R3 

f7.8NL.REG*40 

R3,8NL.REG*40 

8NL.REG+30 

f31.8Nl.REG 

f1.8NL.REG 

IS 

55 

70 

ASVNC 

DUNPER 

fWRD.19.-(SP) 

fFNC.IO.-(SP) 

fWRD.II.-(SP) 

fPHR.2.-(SP) 

fWRD.I.-CSP) 

fFIV.FNT.-(SP) 

f6.-(SP> 

SP.RO 

14 

f16.SP 

f1.8NL.REG+60 

if 

71 

ASVNC 

DUNPER 

fURD.19,-(SP) 

fFNC.IO.-(SP) 

fFNC.11 .-(SP) 

flW).ll.-(SP) 

fPHR.5,*(SP) 

fURD.3.-<SP) 

fFIV.F^T.-(SP) 

f7.-(SP) 


6357 

6358 
6360 


; SP.* 


6362 

6367 

6370 


CZNLADO NL-11 LOGIC TEST 
l r ?0 TEST CODE SECTION 
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13218 

13219 

13220 

13221 

13222 

13223 

13224 

13225 

13226 

13227 

13228 

13229 

13230 

13231 

13232 
15233 

13234 

13235 

13236 

13237 

13238 

13239 

13240 

13241 

13242 

13243 

13244 

13245 

13246 

13247 

13248 

13249 

13250 

13251 

13252 

13253 

13254 

13255 

13256 

13257 

13258 

13259 

13260 

13261 

13262 

13263 

13264 

13265 

13266 

13267 

13268 

13269 

13270 

13271 

13272 


; ML 4 AD 


046656 
046660 
046662 
046666 
046674 
046676 
046700 
046702 
046704 
046706 
046712 
046716 
046722 
046726 
046732 
046736 
046742 
046744 
046746 
046752 
046754 
046760 
046764 
046770 
046772 
046774 
046776 
047004 
047010 
047014 
047022 
047026 
047032 
047040 
047046 
047050 
047054 
047062 
047064 
047066 
04 7070 
047072 
047074 
047100 
047104 
047110 
047114 
047120 
047124 
047130 
047132 
047134 


010600 

104414 

062706 

032777 

001027 

104455 

000073 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

000207 

005067 

016702 

016703 

005001 

000475 

104402 

152777 

016700 

042700 

142777 

150077 

010177 

012777 

032777 

001443 

005267 

026767 

003040 

104455 

000074 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010116 


000020 

100000 146560 2$: 


010730 

012272 

010650 

011610 

010704 

010304 

000006 


000016 

146416 

145034 

145014 


000040 146440 

147022 

177770 

000007 146422 

146416 

146402 

000031 146344 

020000 146416 

146322 

146316 146316 


010730 

012272 

010650 

011714 

010544 

010304 

000006 


TEST CODE SECTION 

NOV SP.RO 

TRAP 14 

ADD #20,SP 

BIT #100000, iNl.REG+50 

BNE 3S 

TRAP 55 

.WORD 73 

.WORD ASYNC 

.WORD DUMPER 

NOV #WRD.19.-(SP> 

NOV #FNC.10,-(SP) 

NOV #WRD.12,-(SP) 

NOV #PHR.1--(SP) 

NOV #URD.16,~(SP) 

NOV #FIV.FNT,-(SP> 

NOV #6.-(SP) 

NOV SP,RO 

TRAP 14 


ADD 

#16, SP 

RTS 

PC 

CLR 

P.CNT 

NOV 

LST.ARR.R2 

NOV 

ARR.INC,R3 

CLR 

R1 

BR 

7$ 

TRAP 

2 

BIS8 

#40,dNL.REG+40 

NOV 

B1C 

NL.DUT.RO 
#1 77776. RO 

BICB 

#7.3NL.REG*40 

01 SB 

R0,iML.REG+40 

NOV 

R1.8NL.REG+30 

NOV 

#31 .BML.REG 

BIT 

#20600,8NL.REG*60 

BEQ 

5$ 

INC 

P.CNT 

CNP 

P.CNT, LIMIT 

BGT 

6$ 

TRAP 

55 

.WORD 

74 

.WORD 

ASYNC 

.WORD 

DUMPER 

NOV 

#WRD. 19, »(SP) 

NOV 

#FNC.10,-<SP) 

NOV 

#WRD. 12,-(SP) 

NOV 

#PHR.5,-(SP) 

NOV 

#WRD.4,-(SP) 

NOV 

#FIV.FNT,-(SP) 

NOV 

#6 ,-<SP) 

NOV 

SP.RO 

TRAP 

14 

NOV 

R1, (SP) 


3E0 0290 



29-Nar-1982 16:23:04 TOPS 
29-Nar-1982 16:21:03 PA:< 


6369 

6374 

6377 


6378 


; SP,* 


; ARR.SEL 


; ARR.SEL,* 



6397 

6399 

6400 

i 

! 


; SP,* 

; ARR.SEL,* 


6401 


( C2WLA0C *-11 LOGIC TEST 

NACRO Will 3 

30-FLAR-82 

H 7 

11:18 PAGE 308 





j ST 20 TEST CODE 

SECTION 








SEO 

0291 

13274 




;NL4AD 



29-N*r-1982 

16:23:04 

TOPS 

13275 






TEST CODE SECTION 


29-N*r-1982 

16:21:03 

PA :< 

13276 











13277 047136 

012746 

007064 



NOV 

#FNT.9.-(SP> 





13278 C47142 

012746 

000002 



NOV 

#2.-<SP> 





13279 G47146 

010600 




NOV 

SP.RO 

; SP.* 




13280 047150 

104414 




TRAP 

14 





13281 047152 

062706 

000022 



ADD 

#22. SP 

m 



6397 

13282 047156 

104467 



5$: 

TRAP 

67 




6402 

13283 047160 

006000 




ROR 

RO 





13284 047162 

103704 




BLO 

4$ 





13285 047164 

060301 



61: 

ADD 

R3.R1 

; *, ARR.SEL 



6388 

13286 047166 

020102 



7$: 

CNP 

R1.R2 

; ARR.SEL.* 




13287 047170 

101701 




BLOS 

4$ 





13288 047172 

005067 

146200 



CLR 

P.CNT 




6405 

13289 047176 

026727 

144600 

000017 


CNP 

OP.NUN.ARR.fi 7 




6409 

13290 047204 

002110 




BGE 

12$ 





13291 047206 

016701 

144606 



NOV 

LST.ARR.R1 

» 



6415 

13292 047212 

066701 

144566 



ADD 

ARR.INC.R1 





13293 047216 

016703 

144574 



NOV 

ARR.16.R3 





13294 047222 

016702 

144556 



NOV 

ARR.INC.R2 





13295 047226 

000475 




BR 

11$ 





13296 047230 

104402 



8$: 

TRAP 

2 




6417 

13297 047232 

152777 

000040 

146204 


B1SB 

#40.8NL.REG*40 

• 



6418 

13298 047240 

016700 

146566 



NOV 

NL.DUT.RO 





13299 047244 

042700 

177770 



B1C 

f177776.R0 





13300 047250 

142777 

000007 

146166 


B1CB 

#7,aNL.REG*40 





13301 047256 

150077 

146162 



81 SB 

R0.9NI.REG+40 





13302 047262 

010177 

146146 



NOV 

R1.BNI.REG+30 

; ARR.SEL,* 



6420 

13303 047266 

012777 

000031 

146110 


NOV 

f31.aNL.REG 

• 



6421 

13304 047274 

032777 

020000 

146162 


BIT 

#20600. aHL.REG+60 

• 



6423 

13305 047302 

001043 




BNE 

9$ 





13306 047304 

005267 

146066 



INC 

P.CNT 




6425 

13307 047310 

026767 

146062 

146062 


CNF' 

P.CNT. UNIT 





13308 047316 

003040 




BGT 

10$ 





13309 047320 

104455 




TRAP 

55 




6427 

13310 047322 

000075 




.WORD 

75 





13311 047324 

012706 




.WORD 

ASVNC 





13312 047326 

026302 




.WORD 

DUNPER 





13313 047330 

012746 

010730 



NOV 

#WR0.19,-<SP> 




6428 

13314 047334 

012746 

012272 



NOV 

#FNC.10,«(SP> 





13315 047340 

012746 

010650 



NOV 

#WRD.12.-<SP) 





13316 047344 

012746 

011610 



NOV 

fPHR.I.-(SP) 





13317 047350 

012746 

010544 



NOV 

#WRD.4.-(SP) 





13318 047354 

012746 

010304 



NOV 

#FIV.FNT,-($P> 





13319 047360 

012746 

000006 



NOV 

#6.-<SP> 





13320 047364 

010600 




NOV 

SP.RO 

; SP,* 




13321 047366 

104414 




TRAP 

14 





13322 047370 

010116 




NOV 

RI.(SP) 

; ARR.SEL,* 



6429 

13323 047372 

012746 

007064 



NOV 

#FNT.9,-(SP) 





13324 047376 

012746 

000002 



NOV 

#2,-(s£) 





13325 047402 

010600 




NOV 

SP.RO 

; SP,* 




13326 047404 

104414 




TRAP 

14 




I 

13327 047406 

062706 

000022 



ADD 

#22, SP 




6425 1 

13328 047412 

i 

104467 



9$: 

TRAP 

67 

» 



6430 



I 7 
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S CZMIADO ML-11 LOGIC TEST 
ST20 TEST CODE SECTION 


SEQ 0292 


13330 

13331 

13332 

13333 

13334 

13335 

13336 

13337 

13338 

13339 

13340 

13341 

13346 

13347 

13351 

13352 

13356 

13357 

13358 

13359 

13360 

13361 

13362 

13363 

13364 

13369 

13370 

13371 


047414 

047416 

047420 

047422 

047424 

047426 


006000 

103704 

060201 

020103 

101701 

000207 


;ML4AD 


10 $: 

11 $: 

12 $: 


TEST CODE SECTION 

RON RO 

BLO 8$ 

ADD R2,R1 

CMP R1 ,R3 

BIOS 8$ 

RTS PC 


29-Nar-1982 16:23:04 
29-Mar-1982 16:21:03 


*,ARR.SEl 

ARR.SEL,* 


TOPS 

PA:< 


6415 

6326 


; Routine Size: 250 words. 

; Maximui stack depth per invocation: 


13 words 


047430 

047430 

047434 

047436 

047440 

047442 


004767 177010 
104466 
006000 
103773 
000207 


6438 !<BIF/PAGE> 


T20: : 
1 $: 


.S8TTL T20 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BIO 

RTS 


PC,$T20 

66 

RO 

1 $ 

PC 


6435 


Routine Size: 6 words 

Maximum stack depth per invocation: 


0 words 



C2HLAD0 Ml -11 LOGIC TEST 
T20 TEST CODE SECTION 
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SEO 0293 


13373 ;ML4AD 

13374 ; 

13375 

13376 ; 

13377 ; 

13378 ; 

13379 ; 

13380 ; 

13381 ; 

13382 ; 

13383 ; 

13384 ; 

13385 ; 

13386 ; 

13387 ; 

13388 ; 

13389 ; 

13390 ; 

13391 ; 

13392 ; 

13393 ; 

13394 ; 

13395 ; 

13396 ; 

13397 ; 

13398 ; 

13399 ; 

13400 ; 

13401 ; 

13402 ; 

13403 ; 

13404 ; 

13405 ; 

13406 ; 

13407 ; 

13408 ; 

13409 ; 

13410 ; 

13411 ; 

13412 ; 

13413 ; 

13414 ; 

13415 ; 

13416 ; 

13417 ; 

13418 ; 

13419 ; 

13420 ; 

13421 ; 

13422 ; 

13423 ; 

13424 ; 

134 25 ; 

13426 ; 

13427 ; 


6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 


TEST CODE SECTION 


BGNTST; 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 

PA : <T ' *LE>ML4AD.BLI .4 (73) 


TEST NUMBER: TST 21 

TEST NAME: POWER FAIL TEST 

TEST DESCRIPTION: 

THIS TEST IS PART OF THE MANUAL INTERVENTION 
TEST SECTION. DRIVE CONDITIONS REVOLVING 
AROUND POWER FAIL SITUATION ARE TEST FOR. 
FUNCTION TESTED FOR ARE AS FOLLOWS: 

1. VV BIT SETTING AND CLEARING 

2. READ-IN-PRESET FUNCTION SETTING 
THE VV BIT. 

3. ECC INITIALIZE CLEARING OUT MEMORY 
WITH BAD BATTERY BACK-UP. 

4. DRIVE REGISTERS BEING CLEARED BY 
DC LO via 'MB.DIS L0\ 

3. UNSAFE BIT 'UNS* SETTING DURING AC 
POWER LOSS. 


local 

SIZE. 

DST, 

SRC. 

DSA CNT. 
ERR FLG. 
CLR.DATA. 
index, 
WCE.CNT; 


! STORES THE SIZE OF MASS BUS TRANSFERS 
‘STORES THE DESTINATION ADRS OF NASS BUS TRANSFERS 
! STORES THE SOURCE ADRS OF MASS BUS TRANSFERS 
•COUNTS THE NUMBER OF BLOCK TRANSFERS DONE 
FLAG 

! STORES THE EXPECTED CLEARED DATA FROM THE REGISTERS 
INDEX VALUE INTO ML REG STRUCTURE TO ACCESS THE REGISTERS ADRS 
! COUNT THE NOMBER OF WRITE CHECK ERROR DETECTED 


* PERFORM THIS TEST ONLY IF THE OPERATOR HAS 

• ENABLED MANUAL INTERVENTION TEST VIA THE S/W 
! QUESTIONS. 


if .INTERVEN 
then 

begin 


IDO THIS TEST IF INTERVEN IS SET 


PRINT WHICH TEST THIS IS 


CZMLADO ML-1 1 LOGIC TEST 
T20 TEST CODE SECTION 
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SEG 0294 


15429 ;H14AD 

13430 ; 

13431 

13432 ; 6491 

13433 ; 6492 

13434 ; 6493 

13435 ; 6494 

13436 ; 6495 

1343 7 ; 6496 

13438 ; 6497 

13439 ; 6498 

13440 ; 6499 

13441 ; 6500 

13442 ; 6501 

13443 ; 6502 

13444 ; 6503 

13445 ; 6504 

13446 ; 6505 

13447 ; 6506 

13448 ; 6507 

13449 ; 6508 

13450 ; 6509 

13451 ; 6510 

13452 ; 6511 

13453 ; 6512 

13454 ; 6513 

13455 ; 6514 

13456 ; 6515 

13457 ; 6516 

13458 ; 6517 

13459 ; 6518 

13460 ; 6519 

13461 ; 6520 

13462 ; 6521 

13463 ; 6522 

13464 ; 6523 

13465 ; 6524 

13466 ; 6525 

13467 ; 6526 

13468 ; 6527 

13469 ; 6528 

13470 ; 6529 

13471 ; 6530 

13472 ; 6531 

13473 ; 6532 

13474 ; 6533 

13475 ; 6534 

13476 ; 6535 

13477 ; 6536 

13478 ; 6537 

73479 ; 6538 

13480 ; 6539 

13481 ; 6540 

13482 ; 6541 

13483 ; 6542 


TEST CODE SECTION 


PRINTS (ONE FMT. T.2D; 

BGNSUB; 

FIRST TEST THE VV BIT FOR SETTING. 
TO DO THIS FIRST SEE IF THE BIT IS 
ALREADY SET. IF ALREADY SET THEN 
SEE IF THE READ-IN-PRESET FUNCTION 
CLEARS THE BIT. IF NOT ALREADY SET 
THEN SEE IF THE READ- IN-PRESET FUNC 
SETS THE BIT. 


CLR.MBUS; 

if .VV 
then 

begin 

MLCS1 = RD.IN.PRE; 

if not (.VV) 
then 

begin 

ERRDF (149. ASYNC. DUMPER); 
PRINTS (ONE .FMT, VV.CLEAR); 
end 


begin 

MLCS1 = RD.IN.PRE; 

if not (.VV) 
then 

begin 

ERRDF (150, ASYNC, DUMPER); 
PRINTS ( TWO.FMT , VV.NOT.SET, 
end; 


29-M«r-1982 16:23:04 
29-Mer-1982 16:21:03 


’PRINT T 21 MESSAGE 
•START SCOOP LOOP 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (73) 


•CLEAR THE MASS BUS 

IIS THE VV BIT INITIALLY SET 
•THE VV BIT IS SET 

I SEE IF THE READ-IN-PRESET FUNC CLEARS IT 
•DO A READ IN PRESET FUNCTION 

•DID THE VV GET CLEARED 

•THE VV GOT CLEARED 
! REPORT THE ERROR TO THE OPERATOR 
.'TELL WHAT THE ERROR IS 


‘THE VV BIT IS INITIALLY CLEARED 

.'SEE IF A READ-IN-PRESET FUNC SETS THE VV BIT 

IDO A READ-IN-PRESET FUNCTION 

.'DID THE VV BIT GET SET 


FNC.11); 


•THE VV BIT DID NOT SET 
•REPORT THE ERROR TO OPERATOR 


.'TELL WHAT THE ERROR IS 


NOW TEST DRIVE ERROR CONDITIONS TO SEE 
IF DOING A READ-IN-PRESET FUNCTION CAUSED 
ANY UNEXPECTED DRIVE ERRORS. 


if .GO IS.SET 
then 


!D1D THE RD-IN-PRE FUNC HANG THE GO BIT 


CZMLADO HL-11 LOGIC TEST 
T20 TEST COOE SECTION 
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SEO 0295 


13485 ;ML4AD 

13486 ; 

13487 

13488 ; 6543 

13489 ; 6544 

13490 ; 6545 

*.3491 ; 6546 

13492 ; 6547 

13493 ; 6548 

13494 ; 6549 

13495 ; 6550 

13496 ; 6551 

13497 ; 6552 

13498 ; 6553 

13499 ; 6554 

13500 ; 6555 

13501 ; 6556 

13502 ; 6557 

13503 ; 6558 

13504 ; 6559 

13505 ; 6560 

13506 ; 6561 

13507 ; 6562 

13508 ; 6563 

13509 ; 6564 

13510 ; 6565 

13511 ; 6566 

13512 ; 6567 

13513 ; 6568 

13514 ; 6569 

13515 ; 6570 

13516 ; 6571 

13517 ; 6572 

13518 ; 6573 

13519 ; 6574 

13520 ; 6575 

13521 ; 6576 

13522 ; 6577 

13523 ; 6578 

13524 ; 6579 

13525 ; 6580 

13526 ; 6581 

13527 ; 6582 

13528 ; 6583 

13529 ; 6584 

13530 ; 6585 

13531 ; 6586 

13532 ; 6587 

13533 ; 6588 

13534 ; 6589 

13535 ; 6590 

13536 ; 6591 

13537 ; 6592 

13538 ; 6593 

13539 ; 6594 


TEST CODE SECTION 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>HL4AD.BLI.4 <73> 


begin ! THE GO BIT IS HUNG 

EARDF (62, ASYNC, DUMPER); ‘REPORT THE ERROR TO THE OPERATOR 

PRINTS (FIV.FMT, WRD.1, PHR.2. WRD.11, FNC.11, WRD.19); I TELL WHAT THE ERROR IS 

end; 

if .ILF IS.SET .'DID THE RD-IN-PRE FUNC CAUSE A ILLEGAL FUNC ERROR 

then begin ! THE ILF BIT IS SET 

ERRDF (63, ASYNC, DUNPER); ! REPORT THE ERROR TO THE OPERATOR 

PRINTS (FIV.FMT. WRD.3, PHR.5, WRD.11, FNC.11, WRD.19); !TElL WHAT THE ERROR IS 
end; 

if .OPI IS.SET .'DID THE RD-IN-PRE CAUSE A OPERATION INCOHPLETE ERROR 

tHen begin ! THE OPI BIT IS SET 

ERRDF (64, ASYNC. DUMPER); ‘REPORT THE ERROR TO THE OPERATOR 

PRINTS (FIV.FHT, WRD.4, PHR.5 , WRD.11, FNC.11, WRD.19); .'TELL WHAT THE ERROR 
end; 


ENDSU6; 


NOW WE'LL TEST THE VV BIT FOR CLEARING 
AFTER POWER UP WITH BAD BATTERY BACK-UP, 

ECC INITIALIZE CLEARING HEMORY TO ZEROES 
AND DC LO CREATING 'MB DIS.LO' AND CLEARING 
OUT DRIVE REGISTERS. 


BGNSUB; 

10 BUF = ONES; 
DSA.CNT = -1; 


WRITE A BACK GROUND OF ALL ONES TO 
ALL OF MEMORY. THIS WILL PROVE IF 
ECC INIT TOOK PLACE AFTER POWER UP 
WITH BAD BATTERY BACK-UP. 


!END SCOOP LOOP 


.'START SCOOP LOOP 

.'LOAD THE FIRST 10 BUF WORD WITH ONES DATA 
! RESET THE DSA COUNTER 


do .'LOAD ALL OF HEMORY WITH ONES DATA 

Br£aK; !LOOK FOR A CONTROL C 

DSA CNT = .DSA CNT ♦ 1: !UP THE DSA COUNTER 

WR ^TRANSFER (SIZE = -$56, DST = .DSA.CNT, SRC = IO.BUF); 
end" 


!D0 A BLOCK WRITE TRANSFER 


VER CZHLAD CHANGED TEST TO UNSIGNED TEST 
until .DSA.CNT eqlU .LST.BLK; 


•REPEAT WRITING UNTIL THE LAST BLOCK IS WRITTEN 


CZHLADO ML-11 LOGIC TEST 
1 T20 TEST CODE SECTION 
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13541 

13542 

13543 

13544 

13545 

13546 

13547 

13548 

13549 

13550 

13551 

13552 

13553 

13554 

13555 

13556 

13557 

13558 

13559 

13560 

13561 

13562 

13563 

13564 

13565 

13566 

13567 

13568 

13569 

13570 

13571 

13572 

13573 

13574 

13575 

13576 

13577 

13578 

13579 

13580 

13581 

13582 

13583 

13584 

13585 

13586 

13587 

13588 

13589 

13590 

13591 

13592 

13593 

13594 

13595 


ML 4 AD 


6595 

6596 

6597 

6598 

6599 

6600 
6601 
6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 
6611 
6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 
6621 
6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 


TEST CODE SECTION 

ERR.FLG = ONE; 
CLRlMBUS; 


TELL THE OPERATOR THE SHUT OFF BOX 
POWER AND AS THE AC POWER IS GOING 
DOWN TEST ’UNS BIT* FOR SETTING. 


PRINTS (ONE.FMT, PWR.OFF); 


begin 

BREAK; 

if .UNS 
then 

begin 

ERR FLG = ZERO; 
ex it loop; 
end; 

end 

until .NED; 

if .ERR FLG 
then 

begin 

ERRDF (151. ASVNC. DUMPER); 
PRINTS (ONE.FMT, UNS.ERR); 
end; 


NOW TELL THE OPERATOR TO TURN 
THE BOX POWER BACK ON. ONCE THE 
DRIVE IS READY TEST THE VV BIT AND 
SEE IF THE POWER UP WITH BAD BATTERY 
BACK-UP CLEAR THE VV BIT. CLEARED 
MEMORY AND CLEARED THE DRIVE REGISTERS. 


PRINTB (ONE.FMT, PWR.ON); 
do 

begin 

BREAK; 

end 

until .DRY; 

if .VV 
then 


7 


SEQ 0296 

29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA: <NEALE>ML4AD.8LI .4 (73) 

•CLEAR THE ERROR FLAG 
•CLEAR THE HASS BUS 


.'TELL THE OPERATOR TO TURN BOX POWER OFF 
SAMPLE THE UNS BIT UNTIL THE DRIVE TIMES OUT 
•LOOK FOR A CONTROL C 
! IS THE UNS BIT SET YET 
.'IT'S SET 

.'THE BIT IS NOT IN ERROR SO CLEAR THE ERROR FLAG 
.'EXIT THE LOOP 

! REPEAT SAMPLING UNS UNTIL NED IS SET 

!IS THE UNS BJT IN ERROR 

•THE BIT IS IN ERROR 
! REPORT THE ERROR TO THE OPERATOR 
.•TELL WHAT THE ERROR IS 


.'TELL THE OPERATOR TO TURN BOX POWER BACK ON 

•DO NOTHING 

•LOOK FOR CONTROL C 

•UNTIL THE DRIVE IS READY 

•DID THE POWER FAIL WITH BAD BAT BACK-UP CLEAR THE VV BIT 


CZMLADO ML-11 LOGIC TEST 
T20 TEST CODE SECTION 
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SEO 0297 


13597 ;ML4AD 

13598 ; 

13599 

13600 ; 6647 

13601 ; 6648 

13602 ; 6649 

13603 ; 6650 

13604 ; 6651 

13605 ; 6652 

13606 ; 6653 

13607 ; 6654 

13608 ; 6655 

13609 ; 6656 

13610 ; 6657 

13611 ; 6658 

13612 ; 6659 

13613 ; 6660 

13614 ; 6661 

13615 ; 6662 

13616 ; 6663 

13617 ; 6664 

13618 ; 6665 

13619 ; 6666 

13620 ; 6667 

13621 ; 6668 

13622 ; 6669 

13623 ; 6670 

13624 ; 6671 

13625 ; 6672 

13626 ; 6673 

*13627 ; 6674 

13628 ; 6675 

13629 ; 6676 

13630 ; 6677 

13631 ; 6678 

13632 ; 6679 

13633 ; 6680 

13634 ; 6681 

13635 ; 6682 

13636 ; 6683 

13637 ; 6684 

13638 ; 6685 

13639 ; 6686 

13640 ; 6687 

13641 ; 6688 

13642 ; 6689 

13643 ; 6690 

13644 ; 6691 

13645 ; 6692 

13646 ; 6693 

13647 ; 6694 

13648 ; 6695 

13649 ; 6696 

13650 ; 6697 

13651 ; 6698 


TEST CODE SECTION 

ErSdF (152, ASYNC. DUMPER); 
PRINTS (ONE.FMT, VV.SET); 
end; 

incr REG SEL from 0 to 6 do 
begin 

selectone .REG.SEL of 
set 


Index = 0; 


Index = 6; 


Index = 3; 


index = 10; 


ndex = 13; 


index = 14; 


index = 8; 


CLR DATA = (.HI) or (.IGNORE); 

RD.REG (.CLR.DATA, .REG.SEL, ERR.FLG); 

if .ERR.FLG 
then 

begin 

ERRDF (153. ASYNC, DUMPER); 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA : <NE ALE>ML4AD .8L 1 . 4 (73) 


‘THE VV BIT DIDN’T GET CLEARED 
•REPORT THE ERROR TO THE OPERATOR 
! TELL WHAT THE ERROR IS 


! SEE IF DC LO ON POWER UP CLEARED THE REGISTERS 


‘SELECT THIS REGISTERS INDEX VALUE 


! TEST MLCS1 


! TEST MLER 


‘TEST MLDA 


•TEST MLMR 


! TEST MLE1 


! TEST MLE2 


•TEST MLPA 


•GENERATE THIS REGISTERS CLEARED DATA 
!READ THE REG FOR ITS CLEAWD DATA 

•DID THE REGISTER GET CLEARED ON POWER UP 

! THE REGISTER'S NOT CLEARED 
! REPORT THE ERROR TO THE OPERATOR 


PRINTS (ONE FMT, MB.DIS.ERfe); i TELL WHAT THE ERROR IS 

PRINTS (FMT’16, .ML REG C. index, REGISTER.ADD3, .CLR.DATA, .RD.DATA); 
•vfHjuui. ‘EXIT THE LOOP 


ex it loop; 
end; 


WCE.CNT = ZERO; 
DSA.CNT = -1; 
IO.fiUF = ZEROES; 


» CLEAR THE WRITE CHECK ERROR COUNTER 
! RESET THE DSA COUNTER 

.'LOAD THE FIRST IO.BUF WORD WITH ZEROES DATA 
•SEARCH ALL OF MEMORY FOR INIT'ED DATA 


j 


SEQ 0298 


CZHLADO ML-11 LOGIC TEST 
T20 TEST CODE SECTION 
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13653 

13654 

13655 

13656 

13657 

13658 

13659 

13660 

13661 

13662 

13663 

13664 

13665 

13666 

13667 

13668 

13669 

13670 

13671 

13672 

13673 

13674 

13675 

13676 

13677 

13678 

13679 

13683 

13684 

13688 

13689 

13690 

13691 

13692 

13693 

13694 

13695 

13696 

13697 

13698 

13699 

13700 

13701 

m 

13704 

13705 

13706 

13707 


ML4AD 


047444 

047450 

047454 

047462 

047464 

047470 

047474 

047500 

047504 

047506 

047510 

047512 

047520 

047524 

047530 

047536 

047542 

047550 

047552 

047560 


6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 


004167 

162706 

032767 

001002 

000167 

012746 

012746 

012746 

010600 

104414 

104402 

152777 

016705 

042705 

142777 

150577 

132777 

001426 

012777 

132777 


TEST CODE SECTION 

begin 

BREAK; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (73) 


BREAK; .'LOOK FOR CONTROL C 

DSA CNT = .DSA CNT ♦ 1; !UP THE DSA COUNT 

WRTlCHK.TRANSFER (SIZE = -256, DST = .DSA.CNT, SRC = I0.8UF); .'WRITE CHECK THIS BLOCK 
if .WCE then WCE.CNT = .WCE.CNT ♦ 1; JJS THIS BLOCK INIT’ED UP COUNT IF NOT 


VER CZMLAD CHANGED TEST TO UNSIGNED TEST 

until .DSA.CNT eqlU .LST.BLK; 

if .WCE.CNT gtr 127 
then 

E$!dF (65, ASYNC, DUMPER); 

PRINTB (ONE.FMT, NO.INIT); 
end; 

ENDSUB; 

end; 


! CONTINUE WRITE CHECKING UNTIL THE LAST BLOCK IS DONE 

!WAS THERE MORE THAN 127 SECTORS IN ERROR 

•MORE THAN 127 SECTORS IN ERROR THERE FOR INI 7 ERROR 
.'REPORT THE ERROR TO THE OPERATOR 
.'TELL WHAT THE ERROR IS 


!END SCOOP LOOP 


132726 


ENDTST; 


135142 

000012 

000001 

001500 

004716 

010240 

000002 


000040 145724 

146306 

177770 

000007 145706 
145702 

000100 145704 

000021 145624 

000100 145666 


•END THE TEST 


.S8TTL ST21 TEST CODE SECTION 

JSR R1 .SSAVE5 

SUB H2.SP 

BIT #1 ,INTERVEN 

BNE 1$ 

JMP 30* 

MOV #T.21.-(SP) 

MOV 4fONE.FMT,-(SP) 

MOV #2.-(S P) 

MOV SP,RO 

TRAP 14 

TRAP 2 

BISB #40,BML.REG+40 

MOV ML.DUT.R5 

BIC #1 77770, R5 

81 CB #7,aML.REG*40 

BISB R5.9ML.REG+40 ^ 

BITS #100,8ML.REG+50 
BEQ 3* 

MOV #21.dML.REG „ 

BITS #100,8Ml*REG+50 
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$T21 TEST CODE SECTION 


13709 




;Wt4AD 



13710 




• 

# 


TEST CODE SECTION 

13711 

13712 047566 

001046 




BNE 

4$ 

13713 047570 

104455 




TRAP 

55 

13714 047572 

000225 




.WORD 

225 

13715 047574 

012706 




.WORD 

ASYNC 

13716 047576 

026302 




.WORD 

DUMPER 

13717 047600 

012746 

005414 



MOV 

#VV. CLEAR, «(SP) 

13718 047604 

012746 

010240 



MOV 

#ONE.FMT,-(SP) 

13719 047610 

012746 

000002 



MOV 

#2,-(SP) 

13720 047614 

010600 




MOV 

SP, RO 

13721 047616 

104414 




TRAP 

14 

13722 047620 

062706 

000006 



ADD 

#6.SP 

13723 047624 

000427 




BR 

4$ 

13724 047626 

012777 

000021 

145550 

3$: 

MOV 

#21 .BML.REG 
#100,BML.REG+50 

13725 047634 

132777 

000100 

145612 


BITS 

13726 047642 

001020 




BNE 

4$ 

13727 047644 

104455 




TRAP 

55 

13728 047646 

000226 




.WORD 

226 

13729 047650 

012706 




.WORD 

ASYNC 

13730 047652 

026302 




.WORD 

DUMPER 

13731 047654 

012746 

012302 



MOV 

#FNC.11,-(SP) 

13732 047660 

012746 

005340 



MOV 

#VV.N0T.SET,-(SP) 

13733 047664 

012746 

010246 



MOV 

#TWO.FMT,-(SP> 

13734 047670 

012746 

000003 



MOV 

#3,-<SP) 

13735 047674 

010600 




MOV 

SP,RO 

13736 047676 

104414 




TRAP 

14 

13737 047700 

062706 

000010 



ADD 

#10,SP 

13738 047704 

132777 

000001 

145472 

4$: 

BITS 

#1 ,3ML.REG 

13739 047712 

001426 




BEQ 

5$ 

13740 047714 

104455 




TRAP 

55 

13741 047716 

000076 




.WORD 

76 

13742 047720 

012706 




.WORD 

ASYNC 

13743 047722 

026302 




.WORD 

DUMPER 

13744 047724 

012746 

010730 



MOV 

#URD.19,-(SP) 

13745 047730 

012746 

012302 



MOV 

#FNC.11 ,-(SP) 

13746 047734 

012746 

010640 



MOV 

#WRD.11.-<SP) 

13747 047740 

012746 

011626 



MOV 

#PHR.2,-(SP) 

13748 047744 

012746 

010520 



MOV 

#WRD.1,-(SP) 

13749 047750 

012746 

010304 



MOV 

#FJV,FMT,«(SP) 

13750 047754 

012746 

000006 



MOV 

#6,-<SP) 

13751 047760 

010600 




MOV 

SP,RO 

13752 047762 

104414 




TRAP 

14 

13753 047764 

062706 

132777 

000016 



ADD 

#16, SP 

13754 047770 

000001 

145466 

5$: 

81TB 

#1.8ML.REG+60 

13755 047776 

001426 




8E0 

6$ 

13756 050000 

104455 




TRAP 

55 

13757 050002 

000077 




.WORD 

77 

13758 050004 

012706 




.WORD 

ASYNC 

13759 050006 

026302 




.WORD 

DUMPER 

13760 050010 

13761 050014 

012746 

010730 



MOV 

#WRD.19,-(SP) 

012746 

012302 



MOV 

#FNC.11.-(SP) 

13762 050020 

012746 

010640 



MOV 

#WRD.11,-(SP) 

13763 050024 

012746 

011714 



MOV 

#PHR.5,-(SP) 


SEQ 0299 
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$T21 TEST CODE SECTION 


13765 




;ML4AD 




13766 




• 


TEST CODE SECTION 


i if 6r 

13768 050030 

012746 

010536 



MOV 

#WRD.3,-(SP) 


13769 050034 

012746 

010304 



MOV 

#FIV.FMT,-(SP> 


13770 050040 

012746 

000006 



MOV 

#6,-(SP) 


13771 050044 

010600 




MOV 

SP.RO 

; SP,* 

13772 050046 

104414 




TRAP 

14 


13773 050050 

062706 

000016 



ADD 

#16.SP 

9 

13774 050054 

032777 

020000 

145402 

6$: 

BIT 

#20000 ,8ML . REG+60 

9 

13775 050062 

001426 




BEO 

7S 


13776 050064 

104455 




TRAP 

55 

9 

13777 050066 

00G100 




.WORD 

100 


13778 050070 

012706 




.WORD 

ASYNC 


13779 050072 

026302 




.WORD 

DUMPER 


13780 050074 

012746 

010730 



MOV 

#WRD.19.-(SP) 

9 

13781 050100 

012746 

012302 



MOV 

fFNC.11 ,-(SP) 


13782 050104 

012746 

010640 



MOV 

fWRD.11 ,-(SP) 


13783 050110 

012746 

011714 



MOV 

#PHR. 5, -(SP) 


13784 050114 

012746 

010544 



MOV 

#WRD.4,-(SP) 


13785 050120 

012746 

010304 



MOV 

#FIV.FMT,-(SP) 


13786 050124 

012746 

000006 



MOV 

#6.-<SP) 


13787 050130 

010600 




MOV 

SP,RO 

; SP,* 

13788 050132 

104414 




TRAP 

14 


13789 050134 

062706 

000016 



ADD 

#16, SP 

9 

13790 050140 

104467 



7$: 

TRAP 

67 

9 

13791 050142 

006000 




ROR 

RO 


13792 050144 

103002 




BHIS 

8$ 


13793 050146 

000167 

177336 



JMP 

2$ 


13794 050152 

104402 



8$: 

TRAP 

2 


13795 050154 

012767 

177777 

143640 


MOV 

#-1,I0.8UF 


13796 050162 

012703 

177777 



MOV 

#-1 ,R3 

; *,DSA.CNT 

13797 050166 

104422 



9$: 

TRAP 

22 


13798 050170 

005203 




INC 

R3 

; DSA.CNT 

13799 050172 

012766 

177400 

000006 


MOV 

#-400, 6 ($P) 

; *,SIZE 

13800 050200 

012746 

177400 



MOV 

#-400,-(SP> 


13801 050204 

010366 

000016 



MOV 

R3,16(SP> 

; DSA.CNT. DST 

13802 050210 

010346 




MOV 

R3,-(SP) 

; DSA.CNT,* 

13803 050212 

012701 

014022 



MOV 

fI0.BUF.R1 

; *,SRC 

13804 050216 

010146 




MOV 

R1,-(SP) 

; SRC,* 

13805 050220 

004767 

157202 



JSR 

PC, WRT. TRANSFER 


13806 050224 

062706 

000006 



ADD 

#6,SP 


13807 050230 

020367 

143560 



CMP 

R3.LST.BLK 

; DSA.CNT,* 

13808 050234 

001354 




BNE 

9$ 


13809 050236 

012766 

000001 

000016 


MOV 

#1.16(SP) 

; *, ERR. FIG 

13810 050244 

152777 

000040 

145172 


BIS8 

#46,9Ml.REG+40 


13811 050252 

016705 

145554 



MOV 

Nl.DUT.R5 r 


13812 050256 

042705 

177770 



B1C 

#1 77770, R5 


13813 050262 

142777 

000007 

145154 


BICB 

#7,BNL.REG*40 


13814 050270 

150577 

145150 



BIS8 

R5,9NL.REG*40 


13815 050274 

012746 

005112 



MOV 

#PWR.0FF,-(SP) 

# 

13816 050300 

012746 

010240 



MOV 

fONE.FMT.-(SP) 


13817 050304 

012746 

000002 



MOV 

#2,-<SP) 


13818 050310 

010600 




MOV 

SP,RO 

; SP,* 

13819 050312 

1 04414 




TRAP 

14 



SEQ 0300 

29-Mar- 1982 16:23:04 TOPS 

29-Har-1982 16:21:03 PA:< 


6550 

6555 

6558 

6559 


6557 

6560 


6562 

6573 

6574 
6585 

6587 

6588 


6585 

6593 

6595 


6604 



SEQ 0501 


; ERR.FLG 
0 
0 

; *.ERR.FLG 


; SP.* 


; SP.* 


; SP.* 

; REG.SEL 
; REG.SEL 

; INDEX 

; REG.SEL.* 

; *. INDEX 

; REG.SEL.* 

; *. INDEX 


29-N«r-1982 16:23:04 
29-#4r-1982 16:21:03 


6613 

6614 
6618 
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SEO 0302 


f 8 
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13877 



; ML 4 AD 


13878 



0 


13879 





13880 050546 

020527 

000003 

19$: 

CMP 

13881 050552 

001003 



BNE 

13882 050554 

012702 

000012 


MOV 

13883 050560 

000421 



8R 

13884 050562 

020527 

000004 

20$: 

CMP 

13885 050566 

001003 



BNE 

13886 050570 

13887 050574 

012702 

000413 

000015 


MOV 

BR 

13888 050576 

020527 

000005 

21$: 

CMP 

13889 050602 

001003 



BNE 

13890 050604 

012702 

000016 


MOV 

13891 050610 

000405 



BR 

13892 050612 

020527 

000006 

22$: 

CMP 

13893 050616 

001002 



BNE 

13894 050620 

012702 

000010 


MOV 

13895 050624 

010200 


23$: 

MOV 

13896 050626 

006300 



ASL 

13897 050630 

006300 



ASL 

13898 050632 

006300 



ASL 

13899 050634 

010004 



MOV 

13900 050636 

016400 

015406 


MOV 

13901 050642 

056400 

015412 


BIS 

13902 050646 

010066 

000024 


MOV 

13903 050652 

010046 



MOV 

13904 050654 

010546 



MOV 

13905 050656 

012746 

000036 


MOV 

13906 050662 

060616 



ADD 

13907 050664 

004767 

155022 


JSR 

13908 050670 

032766 

000001 000036 


BIT 

13909 050676 

001433 



BEQ 

13910 050700 

104455 



TRAP 

13911 050702 

000231 



.WORD 

13912 050704 

012706 



.WORD 

13913 050706 

026302 



.WORD 

13914 050710 

012746 

005570 


MOV 

13915 050714 

012746 

010240 


MOV 

13916 050720 

012746 

000002 


MOV 

13917 050724 

010600 



MOV 

13 n 18 050726 

104414 



TRAP 

13919 050730 

016716 

144416 


MOV 

13920 050734 

016646 

000040 


MOV 

13921 050740 

016446 

015404 


MOV 

1 *922 050744 

012746 

007436 


MOV 

13923 050750 

012746 

000004 


MOV 

13924 050754 

010690 



MOV 

13925 050756 

104414 



TRAP 

13926 050760 

062706 

000024 


ADD 

13927 050764 

000406 



BR 

13928 050766 

062706 

000006 

24$: 

ADD 

13929 050772 

005205 



INC 

13930 050774 

020527 

000006 


CMP 

13931 051000 

003642 



BLE 


TEST CODE SECTION 

R5.#3 

20 $ 

#1 2.R2 
23$ 

R5.#4 

2li 

#15.R2 

23$ 

R5.#5 

22i 

#16. R2 
23$ 

R5.#6 
2 3i 

#10. R2 

R2.R0 

RO 

RO 

RO 

R0.R4 

ML.REG*2<R4),R0 

ML.REG*6<R4),R0 

R0.24(SP> 

RO.-(SP) 

R5.-CSP) 

#36.- (SP) 

SP.(SP) 

PC.RD.REG 
#1 .36(SP) 

24$ 

55 

231 

ASVNC 

DUMPER 

#MB.DIS. ERR. -<SP> 

#ONE.FMT.-(SP) 

#2.-(SP> 

SP.RO 

14 

RD.DATA.(SP) 
40(SP) ,-(SP) 
ML.REG(R4) ,-(SP) 
#EMT.16,-(SP> 
#4.-(SP) 

SP.RO 

14 

#24. SP 
25$ 

#6.SP 

R5 

R5.#6 

16$ 



29-M*r-1982 16:23:04 

TOPS 

REG.SEL.* 

29-M«r-1982 16:21:03 

PA:< 

* , INDEX 

REG.SEL.* 


6668 

6655 

♦.INDEX 

REG.SEL.* 


6671 

6655 

•.INDEX 

REG.SEL.* 


6674 

6655 

•.INDEX 


6677 

INDEX.* 


6680 


♦.CLR.DATA 

CLR.DATA,* 

REG.SEL.* 

6681 

ERR.ELG.* 


•.ERR.FLG 

6683 


6686 


6687 

SP.* 


CLR.DATA.* 

6688 

SP.* 

6689 

REG.SEL 

REG.SEL,* 

6653 

6652 


CZHLADO ML-11 LOGIC TEST 
ST21 TEST CODE SECTION 


13933 

13934 

13935 

13936 

13937 

13938 

13939 

13940 

13941 

13942 

13943 

13944 

13945 

13946 

13947 

13948 

13949 

13950 

13951 

13952 

13953 

13954 

13955 

13956 

13957 

13958 

13959 

13960 

13961 

13962 

13963 

13964 

13965 

13966 

13967 

13968 

13969 

13970 

13971 

13972 

13973 

13974 

13975 

13976 

13981 

13982 

13986 

13987 
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PAGE §20 8 






;ML4AD 

# 


051002 

005066 

000022 


25S: 

CLR 

051006 

012703 

177777 



MOV 

051012 

005067 

143004 



CLR 

051016 

104422 



26$: 

TRAP 

051020 

005203 




INC 

051022 

012766 

177400 

000020 


MOV 

051030 

012746 

177400 



MOV 

051034 

010366 

000030 



MOV 

051040 

010346 




MOV 

051042 

012701 

014022 



MOV 

051046 

010146 




MOV 

051050 

004767 

156102 



JSR 

051054 

032777 

040000 

144362 


BIT 

051062 

001402 




BED 

051064 

005266 

000030 



INC 

051070 

062706 

000006 


27$: 

ADD 

051074 

020367 

142714 



CMP 

051100 

001346 




BNE 

051102 

026627 

000022 

000177 


CMP 

051110 

003416 




BLE 

051112 

104455 




TRAP 

051114 

000101 




.WORD 

051116 

012706 




.WORD 

051120 

026302 




.WORD 

051122 

012746 

005470 



NOV 

051126 

012746 

010240 



MOV 

051132 

012746 

000002 



MOV 

051136 

010600 




MOV 

051140 

104414 




TRAP 

051142 

062706 

000006 



ADD 

051146 

062706 

000012 


28$: 

ADD 

051152 

104467 




TRAP 

051154 

006000 




ROR 

051156 

103002 




BHIS 

051160 

000167 

176766 



JMP 

051164 

062706 

000006 


29$: 

ADD 

051170 

062706 

000012 


30$: 

ADD 

051174 

000207 




RTS 


TEST CODE SECTION 

22(SP) 

I-1.R3 
10. BUT 
22 
R3 

#-400,20(SP) 

#-400, -CSP) 
R3,30(SP) 

R3.-CSP) 

fI0.BUF.R1 

RI.-(SP) 

PC.WRT.CHK.TRANSFE 
#40000, BML.REG+40 
271 
30CSP) 

#6,SP 

R3.LST.BLK 

26 i 

22CSP) .#177 
28S 
55 
101 
ASYNC 
DUMPER 

#NO.INIT,-(SP) 

#ONE.FNT,-(SP) 

#2,-<SP> 

SP.RO 

14 

06. SP 
#12.SP 
67 
RO 

I$* 

06.SP 
#12. SP 
PC 


; Routine Size: 429 words, 

; Maximum stack depth per invocation: 


.S8TTL T21 TEST CODE SECTION 


; WCE.CNT 
; *, DSA.CNT 


; DSA.CNT 
; *,SI2E 


DSA.CNT. DST 
DSA.CNT,* 
*,SRC 
SRC,* 


; WCE.CNT 
; DSA.CNT,* 
; WCE.CNT.* 


; SP.* 


29 words 


SEO 0303 

29-Mar- 1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

6694 

6695 

6696 
6699 

6701 

6702 


6704 


6699 

6710 

6712 

6715 


6716 


6714 

6562 

6717 


6486 

6437 



CZNLADO NL-11 LOGIC TEST 
T21 TEST COOE SECTION 


H 8 

MACRO Nil 13 30-NAR-82 11:18 PAGE 321 


S£0 0304 


13989 

13990 

13991 

13995 051176 

13996 051176 

13997 051202 

13998 051 204 

13999 051206 

14000 051210 

14001 
H002 
14003 

14008 

14009 

14010 ; 


004767 

104466 

006000 

103773 

000207 


6723 


176242 


!<BLF/PAGE> 


:«L4AD 

• 


TEST COOE SECTION 

T21 : : 

18: 

JSR 

PC,$T21 


TRAP 

66 


ROR 

RO 


BLO 

IS 


RTS 

PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


TOPS 
PA : < 

6720 



CZMLADO ML-11 LOGIC TEST 
T21 TEST COOE SECTION 
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W 


SEO 0305 


KOI 2 
14013 
KOK 
HOT 5 
KOI 6 
K017 
KOI 8 
14019 
K020 
K021 

14022 

14023 

14024 
K025 
K026 
K027 
K028 
K029 
14030 
K031 

14032 

14033 

14034 

14035 

14036 

14037 

14038 

14039 

14040 

14041 

14042 

14043 

14044 

14045 

14046 

14047 

14048 

14049 

14050 

14051 

14052 

14053 

14054 

14055 

14056 

14057 

14058 

14059 

14060 

14061 

14062 

14063 

14064 

14065 

14066 


NL4AD 


6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 


TEST COOE SECTION 


BGNTST; 

♦♦ 

TEST NUMBER: TST 22 

TEST NAME: ILLEGAL FUNCTION TEST 

TEST DESCRIPTION: 

TEST THE DETECTION OF ILLEGAL 
FUNCTIONS WRITTEN TO MLCS1 
BY: 

WRITING ALL POSSIBLE ILLEGAL 
FUNCTIONS TO MLCS1. THEN 
TEST GO AND ERROR BITS CLEARED. 


local 

BAD.BITS, 

BAD.FUNC; 

CLR THRESHOLD; 

BAD.BITS = ZEROES; 

incr CNT.1 from 0 to 2 do 
begin 

BAD.BITS = .BAD.BITS ♦ Xo*2*; 

incr CNT.2 from Xo'1' to Xo*71* by Xo'10* 
begin 
BGNSUB; 

CLR.MBUS; 

BAD FUNC = .CNT 2 ♦ .BAD.BITS; 
FIRST.BLK XFER T); 

HLCS1 = .0AD.FUNC; 

if .ILF IS.SET 
then 

begin 

if .GO IS.SET 
then 

begin 

CMP THRESHOLD; 

ERR0F (66, ASYNC, DUMPER); 
PRINTS (FIV FMT, WRD 1, PHR 2 
PRINTS (FMT 12, .BAD FUNC); 
end; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bli$S-16 Vc (212) 
PA:<NEALE>ML4AD.8LI.4 (74) 


‘STORES A COUNT TO GENERATE BAD FUNCTIONS 
‘STORES GENERATED BAD FUNCTION 

.'CLEAR ERROR PRINT THRESHOLD 
! CLEAR BAD BITS 

! REPEAT LOOP 3 TIMES 

!ADD 2 TO BAD.BITS 

do .‘REPEAT LOOP GENERATING 'GOOD' FUNCTIONS 


!ADD BAD.BITS TO CNT 2 GENERATING BAD FUNCTIONS 

.'SET UP l FIRST BLOCK XFERR 

.'LOAD MLCS1 WITH TWO BAD FUNCTIONS 

I SEE IF ILF IS SET 


! IF ILF IS SET THEN SEE IF GO IS SET 


.'COMPARE ERROR PRINT THRESHOLD 
‘ERROR IF GO SET WITH BAD FUNCTION 
, WRD 11, FNC 12, WRD 19); 



CZMLADO ML-11 LOGIC TEST 
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J 6 
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SEQ 0306 


14068 

14069 

14070 

14071 

14072 

14073 

14074 

14075 

14076 

14077 

14078 

14079 

14080 

14081 

14082 

14083 

14084 

14085 

14086 

14087 

14088 

14089 

14090 

14091 

14092 

14093 

14094 

14095 

14099 

14100 

14104 

14105 

14106 

14107 

14108 

14109 

14110 

14111 

14112 

14113 

14114 

14115 

14116 

14117 

14118 
K119 

14120 

14121 

14122 


;ML4AD 


051212 

051216 

051222 

051224 

051226 

051232 

051236 

051240 

051242 

051244 

051252 

051256 

051262 

051270 

051274 

051276 

051302 

051506 

051314 


TEST CODE SECTION 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 8USS-16 V2(212> 
PA:<NEALE>NL4AD.8LI.4 (74) 


6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 


004167 

005067 

005004 

005001 

062704 

012702 

010405 

060205 

104402 

152777 

016700 

042700 

142777 

150077 

010503 

004767 

010377 

132777 

001446 


else 


end 


bed In 

CMP THRESHOLD; ! COMPARE ERROR PRINT THRESHOLD 

ERROF (67. ASYNC, DUMPER); ! ERROR BAD FUNCTION DON’T CAUSE ILF 

PRINTS (FIV FMT. WRD 3. PHRJ . WRD.11, FNC.12, WRD.19); 

PRINTS (FM02, .8AD”FUNC); 
end; 

if .OPI IS.SET ! SEE IF OPI IS SET 

then 

CM? 1 THRESHOLD; ! COMPARE ERROR PRINT THRESHOLD 

ERRUF (68. ASYNC. DUMPER); r JERROR IF SET 

PRINTS (FIV FMT. WRD 4. PHR.5, WRD.12, FNC.12. WRD.19); 

PRINTS (FMT”12, .BAD.FUNC); 
end; 

ENDSUB; 

end; 


end; 


ENDTST; 



.S8TTL 

$T22 TEST CODE SECTION 


133374 


ST22: 

JSR 

R1.SSAVE5 


144154 



CLR 

P.CNT 

BAD. SITS 



CLR 

* 




CLR 


CNT.1 

000002 


1$: 

ADD 

' ' t 

*.BAD.8ITS 

000001 



MOV 

# . .,<2 

♦.CNT.2 


2S: 

MOV 

R4.R5 

BAD. SITS.* 



ADD 

R2.R5 

CNT.2,* 



3$: 

TRAP 

2 


000040 

144172 


81 SB 

#40.SML.REG+40 


144554 

177770 



MOV 

BIC 

ml.dut.ro 

f177776.R0 


000007 

144154 


BIC6 

#7.aHL.REGH0 

R0.8ML.REG+40 


144150 



BISS 

♦.BAD.FUNC 



MOV 

R5.R3 

146760 



JSR 

PC.FIRST.BLK.XFER 

BAD.FUNC,* 

144076 



MOV 

R3.3ML.REG 

000001 

144150 


BITS 

#1.aML.REG+60 




BEG 

4S 



6722 

6747 

6750 

6752 

6754 

6756 
6760 

6757 

6758 


6760 

6761 

6762 
6764 


i 
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14124 

14125 

14126 

14127 

14128 

14129 

14130 

14131 

14132 

14133 

14134 

14135 

14136 

14137 

14138 

14139 

14140 

14141 

14142 

14143 

14144 

14145 

14146 

14147 

14148 

14149 

14150 

14151 

14152 

14153 

14154 

14155 

14156 

14157 

14158 

14159 

14160 

14161 

14162 

14163 

14164 

14165 

14166 

14167 

14168 

14169 

14170 

14171 

14172 

14173 

14174 

14175 

14176 

14177 

14178 


; ML A AD 


051316 

051324 

051326 

051332 

051340 

051342 

051344 

051346 

051350 

051352 

051356 

051362 

051366 

051372 

051376 

051402 

051406 

051410 

051412 

051414 

051420 

051424 

051426 

051430 

051432 

051436 

051444 

051446 

051450 

051452 

051454 

051456 

051462 

051466 

051472 

051476 

051502 


051512 

051514 

051516 

051520 

051524 

051530 

051532 

051534 

051540 

051546 

051550 

051554 


51564 


132777 
001505 
005267 
026767 
003153 
104455 
000102 
012706 
026302 
012746 
012746 
Cl 2746 
012746 
012746 
012746 
012746 
010600 
104414 
010316 
012746 
012746 
010600 
104414 
00 H41 
005267 
026767 
003111 
104455 
000103 
012706 
026302 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
010316 
012746 
012746 
010600 
104414 
062706 
032777 
001443 
005267 
026767 
003042 
104455 


000001 144060 


144044 

144040 


010730 

012322 

010640 

011626 

010520 

010304 

000006 


007224 

000002 


143740 

143734 


010730 

012322 

010640 

011610 

010536 

010304 

000006 


007224 

000002 


000022 

020000 

143622 

143616 


144040 


143734 


143716 


143616 


BITS 

BEQ 

INC 

CMP 

BGT 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

TRAP 

BR 

INC 

CMP 

BGT 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BIT 

BEQ 

INC 

CMP 

BGT 

TRAP 


TEST CODE SECTION 

#1 .dML.REG 

6 $ 

P.CNT 

P.CNT.LIMIT 

8S 

55 

102 

ASYNC 

DUMPER 

fWRD.19,-(SP) 

#FNC.12.-<$P) 

fURD.11 ,-(SP) 

#PHR.2.-(SP) 

fWRD.I.-(SP) 

fFIV.FMT.-(SP) 

#6,-<SP) 

SP.RO 

14 

R3.(SP) 

#FMT.12.-(SP) 

f2.-(SP) 

SP.RO 

14 

5$ 

P.CNT 

P.CNT.LIMIT 

8 $ 

55 

103 

ASYNC 

DUMPER 

fURD.19,-(SP) 

#FNC.12.-<SP) 

fURD.11 ,-(SP) 

fPHR.I.-(SP) 

fURD.3.-(SP) 

fFIV.FMT.-(SP) 

f6.-(SP) 

SP.RO 

14 

R3,(SP) 

fF^T.12,-(SP) 

f2.-<SP) 

SP.RO 

14 

f22.SP 

f 20000, 8ML.REG+60 

7 % 

P.CNT 

P.CNT.LIMIT 


SEQ 0307 


29-Mar- 1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

6768 

6770 

6772 

; 6773 

; SP,* 


BAD.FUNC,* 

6774 

SP,* 

6770 

6779 


6781 


6782 


SP.* 


BAD.FUNC.* 

6783 

SP.* 

6779 


6786 


6788 


6790 




CZMLADO ML-11 LOGIC TFST 
ST22 TEST CODE SECTION 


14180 

14181 

14182 

14183 

14184 

14185 

14186 

14187 

14188 

14189 

14190 

14191 

14192 

14193 

14194 

14195 

14196 

14197 

14198 

14199 

14200 

14201 

14202 

14203 

14204 

14205 

14206 

14207 

14208 

14209 

14210 

14211 

14212 

14213 

14214 

14215 

14216 

14221 

14222 

14226 

14227 

14231 

14232 

14233 

14234 
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V»* 


SEQ 0308 


051724 

051724 

051730 

051732 


004767 177262 
104466 
006000 


;ML4AD 


051566 

000104 



.WORD 

051570 

012706 



.WORD 

051572 

026302 



.WORD 

051574 

012746 

010730 


MOV 

051600 

012746 

012322 


MOV 

051604 

012746 

010650 


MOV 

051610 

012746 

011714 


MOV 

051614 

012746 

010544 


MOV 

051620 

012746 

010304 


MOV 

051624 

012746 

000006 


MOV 

051630 

010600 



MOV 

051632 

104414 



TRAP 

051634 

010316 



MOV 

051636 

012746 

007224 


MOV 

051642 

012746 

000002 


MOV 

051646 

010600 



MOV 

051650 

104414 



TRAP 

051652 

062706 

000022 


ADD 

051656 

104467 


7S: 

TRAP 

051660 

006000 



ROR 

051662 

103002 



BHIS 

051664 

000167 

177352 


JMP 

051670 

062702 

000010 

8S: 

ADD 

051674 

020227 

000071 


CMP 

051700 

003002 



BGT 

051702 

000167 

177330 


JMP 

051706 

005201 


9S: 

INC 

051710 

020127 

000002 


CMP 

051714 

003002 



BGT 

051716 

000167 

177304 


JMP 

051722 

000207 


10S: 

RTS 


TEST CODE SECTION 

104 

ASYNC 

DUMPER 

#WRD.19,-(SP> 

#FNC.12,-(SP> 

#WRD.12,-(SP> 

#PHR.5,-(SP) 

#WRD.4,-(SP) 

#FIV.FM T # -(SP) 

#6,-<SP> 

SP,RO 

14 

R3, (SP) 

#FMT.12,-(SP> 

#2,-<SP) 

SP,RO 

14 

#22, SP 
67 
RO 
8 $ 

3$ 

#10, R2 

R2.#71 

9S 

2S 

R1 

R 1,#2 

ioi 

15 
PC 


Routine Size: 165 words 
Maximum stack depth per invocation: 


29-Har-1982 16:23:04 
29-Nar-1982 16:21:03 


TOPS 

PA : < 


6791 


; SP,* 

; BAD.FUNC,* 
; SP,* 


; *,CNT.2 
; CNT.2,* 


; CNT.1 
; CNT.1,* 


6792 


6788 

6793 


6756 

6752 

6722 


15 words 


T22: : 

IS: 


.S8TTL T 22 TEST CODE SECTION 


J SR 
TRAP 
RO R 


PC,ST22 

66 

RO 


6798 


CZMLADO ML-11 LOGIC TEST 
T22 TEST CODE SECTION 


m 8 

MACRO nil 15 30-MAR-82 11:18 PAGE 326 


SEQ 0309 


14236 

14237 

14238 

14239 

14240 

14241 

14242 

14243 

14248 

14249 

14250 


051734 103773 

051736 000207 


6801 


!<8LF/PAGE> 


;ML4AD 


BLO 

RTS 


TEST CODE SECTION 

1 $ 

PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


i 



N 8 



CZMLADO HL-11 
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SEQ 0310 

T22 TEST 

CODE 

SECTION 



14252 

.•ML 4 AD 


29-Mar-1982 16:23:04 

TOPS-20 Bliss-16 V2(212> 

14253 

14254 

• 


TEST CODE SECTION 

29-Mar-1982 16:21:03 

PA : <NE ALE >ML4 AD . BL 1 . 4 (75) 

14255 


6802 

i 



14256 


6803 

i 



14257 


6804 

BGMTST; 



14258 


6805 




14259 


6806 




14260 


6807 

! TEST NUMBER: TST 23 



14261 


6808 

i 



14262 


6809 

! TEST NAME: REGISTER MODIFICATION REFUSED TEST 


14263 


6810 

» 



14264 


6811 

! TEST DESCRIPTION: 

i 


14265 


6812 

• 



14266 


6813 

.■ TEST THE DETECTION OF A 



14267 


6814 

! REGISTER MODIFICATION REFUSED 



14268 


6815 

! BY: 

• 


14269 


6816 

i 

! 1. WRITTING TO MLCSl. MLDA 



14270 


6817 



14271 


6818 

! AND MLER WHILE THE DRIVE 



14272 


6819 

» IS BUSY AND TEST RMR 



14273 


6820 

! BIT SET. 



14274 


6821 

i 



14275 


6822 

« ALSO SEE IF THE DRIVE ASSERTED 



14276 


6823 

! EXCEPTION BY TESTING THE TRE BIT SET. 



14277 


6824 

! 



14278 


6825 

1 — 



14279 


6826 


•REPEAT LOOP 3 TIMES 


14280 


6827 

incr CNT from 0 to 2 do 


14281 

14282 

14283 

14284 

14285 

14286 


6828 

6829 

6830 

6831 

6832 

6833 

begin 

BGNSUB; 

CLRMBUS; 

MLCSl = write; 

•DO A WRITE FUNCTION 



case .CNT from 0 to 2 of 

•WRITE TO SELECTED REGISTERS FORCING RMR 

14287 


6834 

set 



14288 


6835 




14289 


6836 

£03 : 



14290 


6837 

MLCSl = Xo* 000000'; 



14291 


6838 




14292 


6839 

£13 : 



14293 


6840 

MLDA = ONES; 



14294 


6841 




14295 


6842 

£23 : 



14296 


6843 

MLER = ONES 



14297 


6844 

tes; 



14298 


6845 




14299 


6846 

DELAY (FRTY.US); 



14300 


6847 

•SEE IF RMR GOT SET 


14301 


6848 

if .RMR IS.NOT.SET 


14302 


6849 

then 



14303 

14304 


6850 

6851 

begin 

ERRDF (69. ASYNC. DUMPER); 

! ERROR IF NOT SET 


14305 


6852 

PRINTB (FOR FMT. URD 21. PHR 1. WRDJ1. 

WRD.21); 


14306 


6853 

end; 
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T22 TEST CODE SECTION 
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SEQ 0311 


14308 

14309 

14310 

14311 

14312 

14313 

14314 

14315 

14316 

14317 

14318 

14319 

14320 

14321 

14322 

14326 

14327 

14331 

14332 

14333 

14334 

14335 

14336 

14337 

14338 

14339 

14340 

14341 

14342 

14343 

14344 

14345 

14346 

14347 

14348 

14349 

14350 

14351 

14352 

14353 

14354 

14355 

14356 

14357 

14358 

14359 

14360 

14361 

14362 


;HL4A0 


051740 

051744 

051746 

051750 

051752 

051760 

051764 

051770 

051776 

052002 

052010 

052012 

052014 

052020 

052022 

052024 

052026 

052032 

052034 

052042 

052044 

052052 

052056 

052060 

052064 

052066 

052070 

052072 

052074 

052076 

052100 

052106 


6854 

6855 

6856 

6857 

6858 

6859 

6860 
6861 
6862 

6863 

6864 

6865 


004167 

005746 

005002 

104402 

152777 

016701 

042701 

142777 

150177 

012777 

010201 

006301 

066107 

000006 

000014 

000024 

005077 

000407 

012777 

000403 

012777 

012700 

001410 

016701 

001403 

005016 

005301 

001375 

005300 

000767 

132777 

001024 


TEST CODE SECTION 


29-H»r-1982 16:23:04 T0PS-20 Bliss-16 V2C212) 

29-Ha r-1 982 16:21:03 PA:<NEALE>HL4AD.BLI .4 (75) 


if .TRE IS NOT SET !SEE IE DRIVE ASSERTED EXCEPTION PY TESTING T RE 

then 


end; 


ErUdE (117, SYNC. DUHPER) ; 
PRINTS (EOR EHT. URD 20. PHR 1 


URD 11. URD 21) 


ENDSUB; 

end; 


ENDTST; 



.SSTTL 

ST23 TEST CODE SECTION 



132574 


$T23: 

JSR 

R1.SSAVE2 

• 

# 




TST 

-<S P> 


CNT 




CLR 

R2 

9 



IS: 

TRAP 

2 

9 


000040 

143464 


BISS 

#40,8HL.REG+40 

* 

t 


144046 



HOV 

HL.DUT.R1 
#1 77776, R1 



177770 



BIC 



000007 

143446 


BICB 

#7,8HL.REG+40 



143442 


BISS 

R1 .8HL.REG+40 
f61.8HL.REG 



000061 

143374 


HOV 

• 

CNT,* 



HOV 

R2.R1 

• 

# 




ASL 

R1 



052020 



ADD 

2$(RD,PC 




2$: 

.WORD 

3S-2S 






.WORD 

4S-2S 






.WORD 

5S-2S 



143352 


3$: 

CLR 

8HL.REG 

• 

0 





BR 

6$ 

0 


177777 

143372 

4$: 

HOV 

#-1 ,8HL.REG+30 

• 

0 





BR 

6$ 

• 

0 


177777 

143412 

5$: 

HOV 

f-1 .8HL.REG+60 

• 

0 

*,$$THP2 

000050 

6$: 

HOV 

#50, RO 

0 


7$: 

BEO 

10$ 


*,$$THP1 

130032 


HOV 

L$DLY,R1 

0 



BEO 

9$ 


$$THP 



8$: 

CLR 

(SP) 

0 



DEC 

R1 

0 

$$THP1 




BNE 

8$ 


$$THP2 



9$: 

DEC 

RO 

0 




BR 

7$ 



000004 

143356 

10$: 

BITS 

#4.8NL.REG*60 

ni 

• 

0 




BNE 




6800 

6827 

6828 
6829 


6831 

6833 


6837 

6833 

6840 

6833 

6843 

6846 


6848 


CZMLADO Ml-11 LOGIC TEST 
ST23 TEST CODE SECTION 


14364 

14365 

14366 

14367 

14368 

14369 

14370 

14371 

14372 

14373 

14374 

14375 

14376 

14377 

14378 

14379 

14380 

14381 

14382 

14383 

14384 

14385 

14386 

14387 

14388 

14389 

14390 

14391 

14392 

14393 

14394 

14395 

14396 

14397 

14398 

14399 

14400 

14401 

14402 

14403 

14404 

14405 

14410 

14411 

14415 

14416 
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;Ml4AD 


SEQ 0312 


052110 

052112 

052114 

052116 

052120 

052124 

052130 

052134 

052140 

052144 

052150 

052152 

052154 

052160 

052166 

052170 

052172 

052174 

052176 

052200 

052204 

052210 

052214 

052220 

052224 

052230 

052232 

052234 

052240 

052242 

052244 

052246 

052250 

052254 

052256 

052260 


104455 

000105 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

032777 

001024 

104455 

000165 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103641 

005202 

020227 

003635 

005726 

000207 


010744 

010640 

011610 

010744 

010270 

000005 


000014 

040000 143216 


010744 

010640 

011610 

010736 

010270 

000005 


000014 


000002 



TEST CODE SECTION 


TRAP 

55 

f 

.WORD 

105 


.WORD 

ASYNC 


.WORD 

DUMPER 


MOV 

#WRD.21,-<$P> 

* 

9 

MOV 

fWRD.11 ,-<SP) 


MOV 

fPHR.I.-(SP) 

#WRD.21,-(SP> 


MOV 


MOV 

#FOR.FHT,-(SP> 


MOV 

#5,-(SP) 


MOV 

SP,RO 

9 

TRAP 

14 


ADD 

BIT 

#14,SP 

#40000, 8ML. REG 

9 

• 

f 

8NE 

12$ 


TRAP 

55 

• 

9 

.WORD 

165 


.WORD 

SYNC 


.WORD 

DUMPER 


MOV 

#WRD.21.-(SP> 

9 

MOV 

fWRD.11 ,-(SP) 


MOV 

fPHR.I.-CSP) 

#WRD.20,«(SP> 


MOV 


MOV 

#FOR.FMT,-(SP) 


MOV 

#5.-($P) 


MOV 

SP.RO 

• 

9 

TRAP 

14 


ADD 

#14, SP 

9 

TRAP 

67 

l 

ROR 

RO 


BLO 

1$ 


INC 

R2 

• 

e 

CMP 

R2,#2 

9 

BLE 

1$ 


TST 

(SP)+ 

9 

RTS 

PC 



29-Mar-198? 16:23:04 
29-Mar»198t 16:21:03 


; SP,* 


; SP.* 


6857 

6860 


; Routine Size: 105 words 
; Maxinw* stack depth per invocation: 


.S8TTL T23 TEST CODE SECTION 


10 words 


0, 9 
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T23 TEST CODE SECTION 




14424 052262 

14425 052262 

004767 

177452 

T23: : 

IS: JSR 

PC.ST23 

1 14426 052266 

104466 


TRAP 

66 

14427 052270 

006000 

103773 


ROR 

RO 

14428 052272 


BLO 

IS 

14429 052274 

14430 

14431 

14432 

14437 

14438 

14439 ; 

000207 


RTS 

PC 

6866 

! OLE /PAGE > 

; Routine Size: 

; Maximum stack 

6 words « 
depth per invocation: 0 words 


SEQ 0313 
6863 



CZMLADO ML -11 LOGIC TEST 
T 23 TEST CODE SECTION 


MACRO Ml 113 30-MAA-82 11:18 PAGE 


14441 ;ML4AD 

14442 ; 

14443 

14444 ; 6867 

14445 ; 6868 

14446 ; 6869 

14447 ; 6870 

14448 ; 6871 

14449 ; 6872 

14450 ; 6873 

14451 ; 6874 

14452 ; 6875 

14453 ; 6876 

14454 ; 6877 

14455 ; 6878 

14456 ; 6879 

14457 ; 6880 

14458 ; 6881 

14459 ; 6882 

14460 ; 6883 

14461 ; 6884 

14462 ; 6885 

14463 ; 6886 

14464 ; 6887 

14465 ; 6888 

14466 ; 6889 

14467 ; 6890 

14468 ; 6891 

14469 ; 6892 

14470 ; 6893 

14471 ; 6894 

14472 ; 6895 

14473 ; 6896 

14474 ; 6897 

14475 ; 6898 

14476 ; 6899 

14477 ; 6900 

14478 ; 6901 

14479 ; 6902 

14480 ; 6903 

14481 ; 6904 

14482 ; 6905 

14483 ; 6906 

14484 ; 6907 

14485 ; 6908 

14486 ; 6909 

14487 ; 6910 

14488 ; 6911 

14489 ; 6912 

14490 ; 6913 

14491 ; 6914 

14492 ; 6915 

14493 ; 6916 

14494 ; 6917 

14495 ; 6918 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 24 

TEST NAME : initial PROM TEST 

TEST DESCRIPTION: 

TEST THE MEMORY ARRAYS* PROM 
TIMING AND CONTROL LOGIC FOR 
INITIAL PROM READS BY: 

1. READING 14 PROM LOCATIONS 
AND TESTING FOR: 

A. CHECK SUM ERRORS AT 
EACH ROW COLUMN ADRS 

B. SUM OF EACH PROM BIT SET 
<9,0> GTR 14. 


OFF SET CNT : vector CIO. byte3, 
ROW'ORElJ.COL : bitvector C163, 

R C’SAV : bitvector C163, 

PROM ADRS . 

CHK.SUM, 

CHK SUM.ERR, 

BAD.NI8.CNT, 

CNT 14 Bad, 

DODO FtG. 

ERR.FLG; 

CLR. THRESHOLD; 

CLR MBUS; 

DODO FLG = ZERO; 

PROM DIS = ONE; 

CHK.3UM.ERR = ZEROES; 

incr CNT from 0 to 9 do 

OFF.SET.CNT C.CNT3 = ZEROES; 

incr ADRS CNT from 0 to 14 do 
begin 

ROW ORED COL = ZEROES; 

PR0M.ADR5 = . ADRS. CNT; 


SEQ 0314 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar- 1982 16:21:03 PA:<NEALE>ML4AD.BL1.4 (76) 


•COUNTS EACH NIBBLE OFFSET 

• SAVES ROW DATA OR' ED WITH COL DATA 

!TEMP LOCATION TOR ROW COL DATA 

!PROM ADDRESS 

•CHECK SUM DATA 

•CHECK SUM ERROR 

•COUNTS BAD NIBBLES 

•COUNTS BAD NIBBLE POSITION EQL 14 

IDROP UNIT FLAG 

! ERROR FLAG 

•CLEAR ERROR PRINT THRESHOLD 


! SET PROM DISABLE MODE 


! CLEAR OFFSET COUNTS 


.•READ PROM DATA FROM 15 ARRAY WORDS 

•CLEAR ROW ORED COL SAVE LOCATION 
•GET COPY OF ADRS.CNT 


CZMLADO ML-11 LOGIC TEST 
T23 TEST CODE SECTION 
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SEO 0315 


14497 

14498 

14499 

14500 

14501 

14502 

14503 

14504 

14505 

14506 

14507 

14508 

14509 

14510 

14511 

14512 

14513 

14514 

14515 

14516 

14517 

14518 

14519 

14520 

14521 

14522 

14523 

14524 

14525 

14526 

14527 

14528 

14529 

14530 

14531 

14532 

14533 

14534 
V535 

14536 

14537 

14538 

14539 

14540 

14541 

14542 

14543 

14544 

14545 

14546 

14547 

14548 

14549 

14550 

14551 


ML 4 AO 


6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 


6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 


TEST CODE SECTION 

incr TWICE from 0 to 1 do 
begin 

BAD NI8.CNT = ZEROES; 
ERR’FLG = ZERO; 

NLP* = .PROW ADRS; 
DELAY (ONE.US); 
R.C.SAV = .MLPD; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<2 12) 
PA:<NEALE>NL4AD.BLI .4 (76) 


•READ ROW AND COL DATA FOR THIS ARRAY WORD 


•LOADING MLPA INITIATES PROW READ 
•GET THE ROW OR COL DATA 
•COUNT NUMBER BITS SET IN <9:0> 


incr BIT.CNT from 0 to 9 do .'COUNT NUMBER BITS SET IN <9:0: 

if .R.C.SAV C.BIT.CNT3 IS.SET then BAD.NIB.CNT = .BAD.NIB.CNT ♦ 1; 
CHK.SUM = .R.C.SAV<10, 3>; .'GET THE CHECK SUM BITS 


if .R.C.SAV Cl 33 IS.SET then CHK.SUM = .CHK.SUM ♦ 1; 

if .R.C.SAV C143 IS.SET then CHK.SUM = .CHK.SUM ♦ 1; 

if .R.C.SAV Cl 53 IS.SET then CHK.SUM = .CHK.SUM ♦ 1; 

if .R.C.SAV Cl 53 IS.SET !IS BIT 15 SET 

then 

begin 


•ADD IN BIT 13 
•ADD IN BIT 14 
•ADD IN BIT 15 


if .BAD.t.^B.CNT Iss .CHK.SUM then ERR.FLG = ONE; !SET ERROR FLG IF CHECK SUM ERROR 
end 

I 

begin 

if .BAD.NIB.CNT neq .CHK.SUM then ERR.FLG = ONE; ! SET ERROR FLG IF CHECK SUM ERROR 


if .ERR.FLG IS.SET 
then 

begin 


begin 

CMP THRESHOLD; 

ERRDF (70, INTER. DUMPER); 


•WAS THERE A CHECK SUM ERROR 

•REPORT INTERMEDIATE ERROR IF YES 
•COMPARE ERROR PRINT THRESHOLD 


PRINTS (SIX FMT. FNC.21, WRD.10. WRD.12, WRD.45, WRD.35, FNC.6); 

PRINTS (FMT'10. .CHK.SUM, .R.C.SAV); 

DODU.FLG = ONE; 
end; 

ROW ORED COL = (.ROW.ORED.COL) or ( .R C.SAV); .'OR ROW AND COLUMN DATA 

PROM.ADRS = (.PROM.ADRS) or (Xo*2000'T; ! GET COLUMN DATA 

end;” 

incr index from 0 to 9 do ‘GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS 

if .ROW.ORED.COL C.index3 IS.SET then OFF.SET.CNT C.index3 = .OFF.SET.CNT C. index! ♦ 1; 


CZMLADO ML-11 LOGIC TEST 
T23 TEST CODE SECTION 
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SEQ 0316 


14553 

14554 

14555 

14556 

14557 

14558 

14559 

14560 

14561 

14562 

14563 

14564 

14565 

14566 

14567 

14568 

14569 

14570 

14571 

14572 

14573 

14574 

14575 

14576 

14577 

14578 

14579 

14580 

14581 

14582 

14583 

14584 

14585 

14586 

14587 

14588 

14589 

14590 

14591 

14592 

14593 
14597 


ML 4 AD 


TEST CODE SECTION 


29-Mer-1982 16:23:04 
29-Mer-1982 16:21:03 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD .BLI .4 <7o) 


CNT.14.BAD = ZEROES; 

incr CNT from 0 to 9 do ! COUNT HOU MANY OFFSET COUNTS GEQ 14 

if .OFF.SET.CNT C.CNTJ geq 14 then CNT.14.BAD = .CNT.14.BAD ♦ 1; 

if .CNT.14.BAD neq ZERO !WAS ANY OFF-SET COUNTS GTR ZERO 

then 


6971 end 

6972 

6973 CNTJ4J 

6974 

6975 incr CN 

6976 

6977 if 

6978 

6979 if .CNT 

6980 then 

6981 begin 

6982 ERRDF 

6983 

6984 if 

6985 the 

6986 

6987 els 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 DOD 

6999 end 

7000 

7001 if .DOD 

7002 then 

7003 beg 

7004 DOD 

7005 DOC 

7006 end 

7007 

7008 ENDTST; 


F (71. ARR.DAT, DUMPER); 


! ERROR IF YES 

[WERE ALL 10 NIBBLE OFFSETS GEO 14 


if .CNT.14.BAD eql 10 !WERE ALL 10 NIBBLE OFFS 

T, m * n mxjm ‘ urd - 55 ' * D -“* 


• ' i jf Ro then Print uhIch ones ume 

PR?NTB (FOR.FMT, WRD.46, URD.47, WRD.42, WRD.40); [PRINT MESSAGE 


[ERROR IF YES 


PRINTS (FOR.FMT, WRD.46, WRD.47, WRD.42, WRD.40); .'PRINT MESSAGE 

incr CNT from 0 to 9 do .'FIND OFFSETS GEO 14 

if .OFF.SET.CNT C.CNT3 geq 14 then PRINTS (FMT.13, .CNT, (.OFF.SET.CNT C.CNT3)); 

.‘PRINT NIBBLE POSITION AND COUNT 


DODU.FLG = ONE; 
end; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 


[DROP THIS UNIT IF DODU.FLG SET 


14598 

14602 052276 004167 132310 

14603 052302 162706 000030 

14604 052306 005067 143064 

14605 052312 152777 000040 143124 

14606 052320 016705 143506 

14607 052324 042705 177770 


ST24: 


.S8TTL $T24 TEST CODE SECTION 

JSR R1.SSAVE5 

SUB #30, SP 

CLR P.CNT 

BISS #40,BHL.REG+40 

MOV HL.DUT.R5 

BIC #1 77770. R5 


6865 

6903 

6905 


CZMLADO ML-11 LOGIC TEST 
ST24 TEST CODE SECTION 


14609 

14610 

14611 

14612 052330 

14613 052336 

14614 052342 

14615 052346 

14616 052354 

14617 052356 

14618 052362 

14619 052364 

14620 052366 

14621 0523^0 

14622 052372 

14623 052376 

14624 052400 

14625 052402 

14626 052406 

14627 052412 

14628 052414 

14629 052420 
146^ 052422 

14631 052430 

14632 052434 

14633 052436 

14634 052442 

14635 052444 

14636 052450 

14637 052452 
1463a 052454 

14639 052456 

14640 052460 

14641 052466 

14642 052470 

14643 052472 

14644 052474 

14645 052476 

14646 052500 

14647 052504 

14648 052506 

14649 052510 

14650 052512 

14651 052514 
•520 
•524 




14652 05 

14653 05 

14654 05! 

14655 05; 

14656 05; 

14657 05; 

14658 052542 

14659 052546 

14660 052550 

14661 052554 

14662 052556 

14663 052562 


142777 
150577 
005066 
152777 
005002 
012701 
060601 
060201 
105011 
005202 
020227 
003767 
005005 
005066 
010566 
005004 
005066 
005016 
016677 
012701 
001411 
016702 
001404 
005066 
005302 
001374 
005301 
000766 
017766 
005002 
010201 
006201 
006201 
006201 
012700 
060600 
060001 
010146 
010246 
042716 
012746 
005046 
004767 
062706 
005300 
001002 
005 266 
005202 
020227 
003745 
016603 
006203 


H 9 
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; ML 4 AD 

; TEST CODE SECTION 


000007 

143106 


01 CB 

#7,8ML.REG*40 

143102 


MSB 

R5.8ML .REG+40 

000002 



CLR 

2(SP) 

000040 

143150 


BISB 

#40.8ML.REG+120 



CLR 

R2 

000016 


IS: 

MOV 

#16. R1 



ADD 

SP.R1 




ADD 

R2.R1 




CLRB 

(R1) 




INC 

R2 

000011 



CMP 

R2.#11 



BLE 

IS 




CLR 

R5 

000010 


2$: 

CLR 

10CSP) 

000006 



MOV 

R5.6CSP) 



CLR 

R4 

000004 


3S: 

CLR 

4(SP) 



CLR 

(SP) 

000006 

143054 


MOV 

6(SP).BML.REG*100 

000001 



MOV 

#1,R1 


4$: 

BED 

7S 

127454 



MOV 

LSDLY.R2 




BEQ 

6S 

000014 


5$: 

CLR 

14(SP) 



DEC 

R2 




BNE 

5S 



6$: 

DEC 

R1 




BR 

4$ 

143150 

000012 

7S: 

MOV 

8ML.REG*230.12(SP) 




CLR 

R2 



8$: 

MOV 

R2.R1 




ASR 

R1 




ASR 

R1 




ASR 

R1 

000012 



MOV 

#12. RO 




ADD 

SP.RO 




ADD 

R0.R1 




MOV 

R1. -(SP) 

177770 



MOV 

BIC 

R2.-(SP) 

#1^7770. (SP) 

#i.-;sp) 

000001 



MOV 




CLR 

-(SP> 

131102 



JSR 

PC.BLSGT2 

000010 



ADD 

#10.SP 




DEC 

RO 




BNE 

9S 

000004 



INC 

4(SP) 


9$: 

INC 

R2 

000011 



CMP 

R2.#11 




BLE 

8S 

000012 



MOV 

12(SP).R3 




ASR 

R3 


SEQ 0317 

29-Mjr-1982 16:23:04 TOPS 
29-M*r-1982 16:21:03 PA:< 


; DODU.FIG 

6907 


6908 

; CHK.SUM.ERR 

6909 


6912 

; OFF. SET. CNT.* 


; CNT,* 


; CNT 

6911 

; CNT.* 


; ADRS.CNT 

6914 

; ROV.ORED.COL 

6916 

; ADRS.CNT. PROM. ADRS 

6917 

; TWICE 

6919 

; BAD. NIB. CNT 

6921 

; ERR.FLG 

6922 

; PROM. ADRS.* 

6923 

; *,SSTMP2 

6924 

; *.SSTMP1 


; SSTMP 


; SSTMP1 


; SSTMP2 


; *,R.C.SAV 

6925 

; BIT. CNT 

6927 

; BIT. CNT.* 

6929 

; R.C.SAV.* 


; BIT. CNT.* 



BAD. NIB. CNT 


BIT. CNT 

6927 

BIT. CNT.* 


R.C.SAV.CHK.SUM 

6931 

CHK.SUM 




, CZMLADO ML-11 LOGIC TEST 
i»T?4 TEST CODE SECTION 


14665 

14666 

14667 
H668 

14669 

14670 

14671 

14672 

14673 

14674 

14675 

14676 

14677 

14678 

14679 

14680 

14681 

14682 

14683 

14684 

14685 

14686 

14687 

14688 

14689 

14690 

14691 

14692 

14693 

14694 

14695 

14696 

14697 

14698 

14699 

14700 

14701 

14702 

14703 

14704 

14705 

14706 

14707 

14708 

14709 

14710 

14711 

14712 

14713 

14714 

14715 

14716 

14717 
14r18 
14719 


052564 

052566 

052570 

052574 

052602 

052604 

052606 

052614 

052616 

052620 

052622 

052626 

052630 

052632 

052634 

052636 

052640 

052644 

052646 

052650 

052654 

052656 

052662 

052666 

052670 

052674 

052702 

052704 

052706 

052710 

052712 

052714 

052720 

052724 

052730 

052734 

052740 

052744 

052750 

052754 

052756 

052760 

052764 

052766 

052772 

052776 

053000 

053002 

053010 

053014 

053022 

053030 


006203 

000303 

042703 

132766 

001401 

005203 

132766 

001401 

005203 

005002 

105766 

100002 

005202 

005203 

006002 

103004 

026603 

002006 

000403 

026603 

001402 

012716 

021627 

001052 

005267 

026767 

003060 

104455 

000106 

013114 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

016616 

010346 

012746 

012746 

010600 

104414 

012766 

062706 

056666 

052766 

005204 
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*ACR0 *1113 
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;*L4AD 



• 


TCST CODE SECTION 



ASR 

R3 



SWAB 

R3 

177770 


81 C 

#1 77770, R3 

000040 

000013 

BITS 

#40.13(SP) 


BEG 

10$ 



INC 

R3 

000100 

000013 10$: 

BITS 

#100.13(SP) 


BEG 

11$ 



INC 

R3 


11$: 

CLR 

R2 

000013 


TSTB 

13(SP) 


BPL 

12$ 



INC 

R2 



INC 

R3 


12$: 

ROR 

R2 



BCC 

13$ 

000004 


C*P 

4(SP) ,R3 


BGE 

15$ 



BR 

14$ 

000004 

13$: 

C*P 

4(SP) ,R3 


BEQ 

15$ 

000001 

14$: 

NOV 

#1,(SP) 

000001 

15$: 

CMP 

(SP),# 1 


BNE 

16$ 

142502 


INC 

P.CNT 

142476 

142476 

C*P 

P.CNT.LIM1T 

BGT 

17$ 



TRAP 

55 



.WORD 

106 



.WORD 

INTER 



.WORD 

DUMPER 

012226 


MOV 

#FNC.6.-(SP) 

#WRD.3$,-(SP) 

011110 


MOV 

011214 


NOV 

#WRD.45.-(SP) 

010650 


MOV 

#WRD.12,-(SP) 

010630 


MOV 

#WRD.10.-(SP) 

012440 


MOV 

#FNC.21.-(SP) 

010322 


MOV 

fSIX.FMT.-(SP) 

000007 


MOV 

#7.-(SP) 


MOV 

SP.RO 



TRAP 

14 

000032 


MOV 

32(SP),(SP) 


MOV 

R3,-(SP) 

007116 


MOV 

#FMT.10,-(SP> 

#3,-(SP5 

0C0003 


MOV 


MOV 

SP.RO 



TRAP 

14 

000001 

000030 

*OV 

#1 ,30(SP) 

#2$.SP 

000026 


ADD 

000012 

000010 16$: 

BIS 

12(SP),10(SP> 

002000 

000006 

BIS 

#2000, 6 (SP) 



INC 

R4 


SEO 0318 

29-M*r-1982 16:23:04 TOPS 
29-M«r-1982 16:21:03 PA:< 


; CHK.SUN 
; CHK.SU* 

; *, CHK.SU* 

; *,R.C.SAV*1 


6933 


; CHK.SU* 

; «,R.C.SAV*1 


6935 


; CHK.SU* 

; R.C.SAV*1 


6937 


; CHK.SU* 

; BAD.NI8.CNT.CHK.SUN 


6939 

6943 


; 8AD.NIB.CNT.CHK.su* 

; *,ERR.FLG 
; ERR.FLG.* 


6949 

6953 

6955 

6957 


6958 


; SP,* 

; R.C.SAV,* 6959 

; CHK.SU*.* 


; SP,* 

; *.D0DU.FLG 

; R.C.SAV.ROU.OAED.COL 
; *,PR0N.ADRS 
; TWICE 


6960 

6955 

6963 

6964 
6919 


CZMLADO ML-11 LOGIC TEST 
$T24 TEST CODE SECTION 


J 9 
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14721 

14722 

14723 

14724 

14725 

14726 

14727 

14728 

14729 

14730 

14731 

14732 

14733 

14734 

14735 

14736 

14737 

14738 

14739 

14740 

14741 

14742 

14743 

14744 

14745 

14746 

14747 

14748 

14749 

14750 

14751 

14752 

14753 

14754 

14755 
14/56 

14757 

14758 

14759 

14760 

14761 

14762 

14763 

14764 

14765 

14766 

14767 

14768 

14769 

14770 

14771 

14772 

14773 

14774 

14775 


; ML 4 AD 


053032 
053036 
053040 
053044 
053046 
053050 
053052 
053054 
053056 
053062 
053064 
053066 
053070 
053072 
053076 
053102 
053104 
053110 
053114 
053116 
053120 
053124 
053126 
053130 
053132 
053134 
053140 
053142 
053144 
053150 
053152 
053156 
053160 
053162 
053166 
053170 
053172 
053176 
053200 
053202 
053204 
053210 
053212 
053214 
053216 
053220 
22 
53224 
053226 
053232 
053234 
053240 


020427 

003002 

000167 

005002 

010201 

006201 

006201 

006201 

012700 

060600 

060001 

010146 

010246 

042716 

012746 

005046 

004767 

062706 

005300 

001005 

012701 

060601 

060201 

105211 

005202 

020227 

003742 

005205 

020527 

003002 

000167 

005000 

005001 

012702 

060602 

060102 

121227 

103401 

005200 

005201 

« 7 

005700 

001505 

104455 

000107 

013012 

026302 

020027 

001024 

012746 

012746 


000001 

177350 


000010 


177770 

000001 

130524 

000010 


000016 


000011 


000016 

177224 


000016 


000016 


000011 


000012 

011150 

011170 


TEST CODE SECTION 

CMP R4,#1 

86 T 17i 

JMP 3$ 

CLR R2 

MOV R2.R1 

ASR R1 

ASR R1 

ASR R1 

MOV #10, RO 

ADD SP,R 0 

ADD R0,A1 

MOV R1,-(SP> 

MOV R2.-CSP) 

BIC #1*7770.<SP> 

MOV #1,-<SP) 

CLR -<SP) 

JSR PC.8LSGT2 

ADD #10, SP 

DEC RO 

BNE 19$ 

MOV #16, R1 

ADD SP,R1 

ADD R2,R1 

1NCB (R1) 

INC R2 

CMP R2.#11 

BLE 18i 

INC R5 

CMP R5,#16 

B6T 20$ 

JMP 2$ 

CLR RO 

CLR R1 

MOV #16,R2 

ADD SP,R2 

ADD R1.R2 

CMPB (R2),#16 

BLO 22$ 

INC RO 

INC R1 

CMP R1 ,#11 

BLE 21 ft 

TST RO 

BEO 27$ 

TRAP 55 

.WORD 107 

.WORD ARR.DAT 

.WORD DUMPER 

CMP R0.#12 

BNE 23ft 

MOV #WRD.40,-(SP> 

MOV #URD.42,-(SP) 


SEO 0319 


29-Mar-1982 16:23:04 TOPS 
29-Mar- 1982 16:21:03 PA:< 

; TWICE,* 


; INDEX 

6967 

; INDEX,* 

6969 

; ROU.ORED.COL,* 


; INDEX,* 



; OFF.SET.CNT.* 

; INDEX,* 


; INDEX 
; INDEX,* 

6967 

; ADRS.CNT 
; ADRS.CNT,* 

6914 

; CNT.14.BAD 

6973 

; CNT 

6975 

6977 

; OFF.SET.CNT,* 

; CNT,* 


; CNT. 14. BAD 
; CNT 
; CNT,* 

6975 


; CNT. 14. BAD 

6979 

# 

6982 

; CNT. 14. BAD,* 

6984 

• 

• 

6986 


K 9 
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ST24 TEST CODE SECTION 


14777 





;HL4AD 




14778 





0 


TEST CODE SECTION 


14779 









14780 

053244 

012746 

011276 



nov 

#WRD.51 ,-(SP) 


14781 

053250 

012746 

011226 



nov 

#yRD.46,-(SP) 


14782 

053254 

012746 

011326 



HOV 

#WRD.54,-(SP) 


14783 

053260 

012746 

011336 



nov 

#WRD.55.-(SP) 


14784 

053264 

012746 

010322 



nov 

#SIX.FnT.-(SP> 


14785 

053270 

012746 

000007 



nov 

#7.-(SP) 


14786 

053274 

010600 




nov 

SP.RO 

0 

14787 

053276 

104414 




TRAP 

14 


14788 

053300 

022626 




cnp 

(SP)MSPH 


14789 

053302 

000445 




BR 

26$ 

0 

14790 

053304 

012746 

011150 


23$: 

nov 

#WRD.40,-(SP) 

0 

14791 

053310 

012746 

011170 



nov 

#WRD.42.-(SP) 


14792 

053314 

012746 

011240 



nov 

#«RD.47.-<SP> 


14793 

053320 

012746 

011226 



nov 

#WRD.46.-(SP> 


14794 

053324 

012746 

010270 



nov 

#F0R.FHT.-(SP) 


14795 

053330 

012746 

000005 



nov 

#5.-(SP) 


14796 

053334 

010600 




nov 

SP.RO 

0 

14797 

053336 

104414 




TRAP 

14 


14798 

053340 

005002 




CLR 

R2 

• 

0 

14799 

053342 

012701 

000032 


24$: 

nov 

#32. R1 

0 

14800 

053346 

060601 




ADO 

SP.R1 

• 

0 

14801 

053350 

060201 




ADD 

R2.R1 

• 

0 

14802 

053352 

121127 

000016 



CHP8 

(R1).#16 


14803 

053356 

103413 




BLO 

25$ 


14804 

053360 

005046 




CLR 

-(SP) 


14805 

053362 

111116 




NOVB 

(RI).(SP) 


14806 

053364 

010246 




nov 

R2.-CSP) 

0 

14807 

053366 

012746 

007254 



nov 

#FHT.13.-<SP> 


14808 

053372 

012746 

000003 



nov 

#3.-<SP> 


14809 

053376 

010600 




nov 

SP.RO 

• 

0 

14810 

053400 

104414 




TRAP 

14 


14811 

053402 

062706 

000010 



ADD 

#10. SP 


14812 

053406 

005202 



25$: 

INC 

R2 

0 

14813 

053410 

020227 

000011 



cnp 

R2.#1 1 

0 

14814 

053414 

003752 




BLE 

24* 


14815 

053416 

012766 

000001 

000016 

26$: 

nov 

#1 . 16(SP) 

0 

14816 

053424 

062706 

000014 



ADD 

#14. SP 

• 

0 

14817 

053430 

026627 

000002 

000001 

27$: 

cnp 

2<SP).#1 

0 

14818 

053436 

001004 




BNE 

28$ 


14819 

053440 

016700 

142364 



nov 

NL.LUN,RO 

0 

14820 

053444 

104451 




TRAP 

51 


14821 

053446 

104444 




TRAP 

44 


14822 

053450 

062706 

000030 


28$: 

ADD 

#30. SP 

0 

14823 

1 / OO/ 

053454 

000207 




RTS 

PC 


1 HOC* 

14825 





; Routine Size: 

312 words 


14826 





; Haximum stack depth per invocation: 

29 words 


SEC 0320 

29-Har-1982 16:23:04 TOPS 

29-Har-1982 16:21:03 PA:< 


SP,* 


6984 

6989 


SP.* 

CNT 

OFF. SET. CNT,* 
CNT.* 


6991 

6993 


CNT.* 

SP.* 

CNT 

CNT.* 

*.D0DU.FLG 

DODU.FLG.* 


6991 


6998 

6981 

7001 


7004 


6865 
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SEQ 0321 


14838 

14839 

14843 

14844 

14845 

14846 

14847 

14848 

14849 

14850 

14851 

14856 

14857 

14858 


053456 

053456 004767 176614 
053462 104466 
053464 006000 
053466 103773 
053470 000207 


7009 !<BlF/PAGE> 


.S8TTL T24 TEST CODE SECTION 

T24* • 

1$:’* JSR PC.ST24 

TRAP 66 

ROR RO 

BLO II 

RTS PC 

; Routine Si 2 e: 6 words 

; Maximum stack depth per invocation: 0 wo»*ds 



CZMLADO ML-11 LOGIC TEST 
T24 TEST CODE SECTION 
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14860 

14861 

14862 

14863 

14864 

14865 

14866 

14867 

14868 

14869 

14870 

14871 

14872 

14873 

14874 

14875 

14876 

14877 

14878 

14879 

14880 

14881 

14882 

14883 

14884 

14885 

14886 

14887 

14888 

14889 

14890 

14891 

14892 

14893 

14894 

14895 

14896 

14897 
1489a 

14899 

14900 

14901 

14902 

14903 

14904 

14905 

14906 

14907 

14908 

14909 

14910 

14911 

14912 

14913 

14914 


ML4AD 


7010 

7011 

7012 

7013 

7014 

7015 

7016 

7017 

7018 

7019 

7020 

7021 

7022 

7023 

7024 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 25 


TEST NAME : 


PROM OR FUNCTION TEST 


TEST DESCRIPTION: 

TEST THE HARDWARE ORING OF 

THE MEMORY ARRAYS' PROM 

ROW COLUMN DATA BY: 

1. READING AND STORING 128 
HARDWARE ORED ROW COLUMN 
DATA. 

2. THEN IN PROM DISABLE MODE 
AND VIA SOFTWARE CONTROL, 
READ AND OR PROM ROW 
COLUMN DATA AND COMPARE 
AGAINST THE RESPECTIVE 
STORED HARDWARE ORED DATA. 


local 

R BITS, 

C BITS. 

SO.ORED, 

HW SAVE , 

DO0U.FLG; 

BGNSUB; 

CLR. THRESHOLD; 

CL RAMBUS; 

DOD0.FLG = ZERO; 

DAT DM = ONE; 

FIR5T.BLK.XFER (>; 

ML.FUflC = write; 

incr PROM.ADRS from 0 to 127 do 
begin 

DECAY (ONE US); 

HW.0R.T8L r.PROM.ADRSj = .MLPD; 

DAT.CCK = ONE; 

end; 

CLR.MBUS; 

PR0M_DJS = ONE; 


SEQ 0322 


29-Mar-1982 16:23:04 T0PS-2C Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI.4 (77) 


‘PROM ROW DATA 
!PROM COL DATA 

.‘SOFTWARE CALCULATED PROM ORED DATA 
.‘SOFTWARE PROM ORED DATA 
!DROP UNIT FLAG 


! CLEAR ERROR PRINT THRESHOLD 


.‘SET UP A FIRST BLOCK XFER 
•DO A WRITE FUNCTION 

‘READ AND STORE 128 HARDWARE PROM ORED DATA 


!READ HARDWARE PROM ORED DATA 
! CLOCK NEXT ONE OUT 


•SET PROM DISABLE MODE 


CZMLADO ML-11 LOGIC TEST 
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SEQ 0323 


K916 

14917 

14918 

14919 

14920 

14921 

14922 

14923 

14924 

14925 

14926 

14927 

14928 

14929 

14930 

14931 

14932 

14933 

14934 

14935 

14936 

14937 

14938 

14939 

14940 

14941 

14942 

14943 

14944 

14945 

14946 

14947 

14948 

14949 

14950 

14951 

14952 

14956 

14957 

14961 

14962 

14963 

14964 

14965 

14966 

14967 

14968 

14969 

14970 


ML 4 AD 


053472 

053476 

053502 

053504 

053510 

053516 

053522 

053526 

053534 

053540 


7062 

7063 

7064 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 

7073 

7074 

7075 

7076 

7077 

7078 

7079 

7080 

7081 

7082 

7083 

7084 

7085 

7086 

7087 

7088 

7089 

7090 

7091 

7092 

7093 

7094 

7095 


004167 

162706 

104402 

005067 

152777 

016705 

042705 

142777 

150577 

005016 


TEST CODE SECTION 

incr PROM ADRS from 0 to 127 do 
begin" 

HLPA = .PROM ADRS; 

DELAY (ONE U3); 

R BITS = .«LPD; 

MCPA = .PROM ADRS or Xo'2000'; 

DELAY (ONE US); 

C BITS = JLPD; 

SO ORED = .R BITS or .C BITS; „ 

HVTSAVE - .H0_0R_TBL C.PRQM.ADRSJ; 

if (.HW SAVE<0, 9» neq (.SW.0RED<0. 9» 
then 

begin 

CMP_ THRESHOLD; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI .4 (77) 


! CALCULATE 128 SW ORED DATA 8 COMPARE TO HW TABLE 

! LOADING MLPA INITIATES A PROM READ 

JSAVE ROW DATA 
.‘ENABLE COLUMN DATA ADRS 

‘SAVE COL DATA 
! CALCULATE SOFTWARE ORED 
•GET RESPECTIVE HARDWARE ORED 

! COMPARE SW ft HW ORED 

•IF NEQ THEN ERROR 

.•COMPARE ERROR PRINT THRESHOLD 


CMP THRESHOLD; 'COMPARE ERROR PRINT THRESHOLD 

ERRUF (76. ARR DAT. DUMPER); 

PRINTS (FOR.FMT, WRD 35. WRD 36. WRD 19. PHR.4); . . 

PRINTS (FMT 2, .SW 0PED<0. 95. .HW.S*VE<0, 9>. (.SW.0RED<0. 9> xor .HW.SAVE<0, 9»); 
DODU FLG = ONE; " 


ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


•DROP THIS UNIT IF DODU FLG IS.SET 


131114 

000010 

141666 

000040 141726 

142310 

177770 

000007 141710 
141704 


ST25: 


•SBTTL ST25 TEST CODE SECTION 

JSR R1.SSAVE5 

SUB #10. SP 

TRAP 2 

CLR P.CNT 

81 SB #40,8ML.REG+40 

MOV ML.DUT.R5 

BIC #177770.R5 

BICB #7.9ML.REG+40 

8ISB R5.8ML.REG+40 

CLR (SP) 


; DODU. FLG 


. CZHLAOO NL-11 LOGIC TEST 
|$T25 TEST CODE SECTION 

14972 

14973 

14974 

14975 053542 152777 000010 

14976 053550 004767 144506 

14977 053554 142777 000077 

14978 053562 152777 000061 

14979 053570 005004 

14980 053572 012703 000001 

14981 053576 001411 

14982 053600 016705 126312 

14983 053604 001404 

14984 053606 005066 000006 

14985 053612 005305 

14986 053614 001374 

14987 053616 005303 

14988 053620 000766 

14989 053622 010405 

14990 053624 006305 

14991 053626 017765 142002 

14992 053634 152777 000020 

14993 053642 005204 

i*«994 053644 020427 000177 

14995 053650 003750 

14996 053652 152777 000040 

14997 053660 016705 142146 

14998 053664 042705 177770 

14999 053670 142777 000007 

15000 053676 150577 141542 

15001 053702 152777 000040 

15002 053710 005003 

15003 053712 010377 141566 

15004 053716 012704 000001 

15005 C53722 001411 

15006 053724 016705 126166 

15007 053730 001404 

15008 053732 005066 000006 

15009 053736 005305 

15010 053740 001374 

15011 053742 005304 

15012 053744 000766 

15013 053746 017766 141662 

15014 053754 010305 

15015 053756 052705 002000 

15016 053762 010577 141516 

15017 053766 012704 000001 

15018 053772 001411 

15019 053774 016705 126116 

15020 054000 001404 

15021 054002 005066 000006 

15022 054006 005305 

15023 054010 001374 

15024 054012 005304 

15025 054014 000766 

15026 054016 017766 141612 


B 10 
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;*UAD 




• 


TEST CODE SECTION 

141754 


B1SB 

#10,iNL.REG+120 



JSR 

PC.FIRST.BLK.XFER 

141622 


B1CB 

#77,8NL.REG 

141614 


B1SB 

#61 odNL.REG 



CLR 

R4 


2$: 

NOV 

#1,R3 


3$: 

BEO 

6$ 



NOV 

L$DLY,R5 



BEO 

5$ 


4$: 

CLR 

6CSP) 



DEC 

R5 



8NE 

4$ 


5$: 

DEC 

R3 



BR 

3$ 


6$: 

NOV 

R4.R5 



ASL 

R5 

013402 


NOV 

8NL.REG*230,HW.0R.TBL(R5) 

141662 


B1S6 

#20,BNL.REG*120 



INC 

R4 



CNP 

R4,#177 



BLE 

2$ 

141564 


BIS6 

#40,3NL.REG+40 



NOV 

NL.DUT.R5 



BIC 

#177776,R5 

141546 


BICB 

#7,BNL.REG+40 



BISB 

R5.BNL.REG+40 

141614 


81 SB 

#40,3NL.REG+120 



CLR 

R3 


7 $: 

NOV 

R3,8NL.REG+100 



NOV 

#1 ,R4 


8$: 

BEO 

ni 



NOV 

L$DLY,R5 



BEO 

10$ 


9$: 

CLR 

6(SP) 



DEC 

R5 



BNE 

9$ 


10$: 

DEC 

R4 



8R 

8$ 

000004 

11$: 

NOV 

8NL. REG+230, 4 (SPJ 



NOV 

R3,R5 



BIS 

#2000, R5 



NOV 

R5,BNL.REG+100 



NOV 

#1,R4 


12$: 

BEO 

15$ 



NOV 

L$DLY,R5 



BEO 

14$ 


13$: 

CLR 

6(SP) 



DEC 

R5 



BNE 

13$ 


14$: 

DEC 

R4 



BR 

12$ 

000002 

15$: 

NOV 

aNL.REG*230,2(SP> 


SEO 0324 

29-N*r-1982 16:23:04 TOPS 
29-Nar-1982 16:21:03 PA:< 


7049 

7050 

7051 


; PRON.ADRS 

7053 

. *,$$TNP2 

7055 

; *,$$TNP1 


; $$TNP 


; $$TNP1 


; $$TNP2 


; PRON.ADRS,* 

7056 


7057 

; PRON.ADRS 

7053 

; PRON.ADRS,* 


# 

7058 



7061 

PRON.ADRS 

7063 

PRON.ADRS,* 

7065 

*,$$TNP2 

7066 

*,$$TNP1 


$$TNP 


$$TNP1 


$$TNP2 


*,R.BITS 

7067 

PRON.ADRS,* 

7068 

*,$$TNP2 

7069 

*,$$TNP1 


$$TNP 


$$TNP1 


$$TNP2 


*,C.BITS 

7070 


J 



CZMLADO ML-11 LOGIC TEST 
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C 10 

MACRO Ml 113 30-MAR-82 11:18 PAGE 342 


SEQ 0325 


15028 

15029 

15030 

15031 

054024 

016601 

000004 


15032 

054030 

056601 

000002 


15033 

054034 

010305 



15034 

054036 

006305 

013402 


15035 

054040 

016502 


15036 

054044 

010104 

177000 


15037 

054046 

042704 


15038 

054052 

010205 

177000 


15039 

054054 

042705 


15040 

054060 

020504 



15041 

054062 

001457 

141306 


15042 

054064 

005267 

141302 

15043 

054070 

026767 

141302 

15044 

054076 

003055 



15045 

054100 

104455 



15046 

054102 

000114 



15047 

054104 

013012 



15048 

054106 

026302 

011676 


15049 

054110 

012746 


15050 

054114 

012746 

010730 


15051 

054120 

012746 

011116 


15052 

054124 

012746 

011110 


15053 

054130 

012746 

010270 


15054 

054134 

012746 

000005 


15055 

054140 

010600 



15056 

054142 

104414 



15057 

054144 

010205 



15058 

054146 

010116 



15059 

054150 

010504 



15060 

054152 

040104 



15061 

054154 

040516 



15062 

054156 

050416 



15063 

054160 

010246 

177000 


15064 

054162 

042716 


15065 

054166 

010146 

177000 


15066 

054170 

042716 


15067 

054174 

012746 

006506 


15068 

054200 

012746 

000004 


15069 

054204 

010600 



15070 

054206 

104414 



15071 

054210 

012766 

000001 

000024 

]WA 

054216 

062706 

000024 


054222 

005203 

000177 


15074 

054224 

020327 


15075 

054230 

003630 



15076 

054232 

104467 



15077 

15078 

054234 

054236 

006000 

103002 

000167 

177236 


15079 

054240 


15080 

054244 

021627 

000001 


15081 

054250 

001004 



15082 

054252 

016700 

141552 



;NL4AD 



# 


TEST CODE SECTIOJ 


MOV 

4(SP) ,R1 


81S 

2(SP).R1 


MOV 

R3.R5 


ASL 

R5 


NOV 

HW.0R.TBL(R5) ,R2 


NOV 

BIC 

R1.R4 

#1^7000, R4 


NOV 

BIC 

R2.R5 

#1*7000,R5 


CNP 

R5.R4 


BEQ 

16* 


INC 

P.CNT 


CNP 

P.CNT.LINIT 


BGT 

17$ 


TRAP 

55 


.WORD 

114 


.WORD 

ARR.DAT 


.WORD 

DUMPER 


NOV 

#PHR.4,-(SP) 


NOV 

#WRD.19,-(SP) 


NOV 

#WRD.36.-(SP) 


NOV 

#WRD.35,-(SP) 


NOV 

#FOR.FNT,-(SP) 


NOV 

#5.-<SP> 


NOV 

SP.RO 


TRAP 

14 


NOV 

R2.R5 


NOV 

RI.(SP) 


NOV 

R5.R4 


BIC 

R1.R4 


BIC 

R5.(SP) 


BIS 

R4, (SP) 


NOV 

BIC 

R2.-(SP) 

#1^7000. (SP) 


NOV 

BIC 

RI.-(SP) 

#1*7000, (SP) 


NOV 

#FNT.2,*(SP) 


NOV 

#4,-(SP> 


NOV 

SP.RO 


TRAP 

14 


NOV 

#1,24(SP) 


ADD 

#24, SP 

16$: 

INC 

R3 


CNP 

R3.#177 


BLE 

7$ 

17$: 

TRAP 

67 


ROR 

RO 


8HIS 

18$ 


JNP 

1$ 

18$: 

CNP 

(SP).#1 


BNE 

19$ 


NOV 

NL.LUN.RO 


29-Mar-1982 16:23:04 
29-Nar-1982 16:21:03 


; R.8ITS.SW.0RED 
; C.BITS.SW.ORED 
; PRON.ADRS,* 

; *,HW.SAVE 
; SW.ORED,* 

; HW. SAVE , * 


; SP,* 

; HW.SAVE,* 
; SW.ORED.* 


; HW.SAVE,* 

; SW.ORED.* 

; SP.* 

; *.DODU.FLG 

; PRON.ADRS 
; PRON.ADRS,* 


; DODU.FLG.* 


TOPS 

PA:< 

7071 

7072 

7074 


7076 

7078 

7079 


7080 


7081 

7076 

7063 

7084 

7088 

7091 



SEO 0326 


D 10 

C2MLAD0 ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 343 

ST25 TEST CODE SECTION 


15084 

15085 

15086 

15087 

15088 

15089 

15090 

15091 

15092 

15093 

15098 

15099 

15103 

15104 

15108 

15109 

15110 

15111 

15112 

15113 

15114 

15115 

15116 
15121 


054256 

054260 

054262 

054266 


104451 
1 04444 

062706 000010 
000207 


054270 

054270 

054274 

054276 

054300 

054302 


004767 177176 
104466 
006000 
103773 
000207 


15122 

15123 ; 


7096 !<8LF/PAGE> 


;ML4AD 

• 


TEST CODE SECTION 


TRAP 

51 


TRAP 

44 

19S: 

ADD 

#10.SP 


RTS 

PC 


; Routine Size: 191 words 

; Maxim** stack depth per invocation: 20 words 


.S8TTL T25 TEST CODE SECTION 

T25: : 

1$: JSR PC,$T25 

TRAP 66 

ROR RO 

BLO IS 

RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


29-Mar-198r 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


7008 


7093 ! 


i 


CZNLADO WL-11 LOGIC TEST 
T25 TEST CODE SECTION 


MACRO NIT 13 30-MAR-82 11:18 PAGE 


15125 

15126 

15127 

15128 

15129 

15130 

15131 

15132 

15133 

15134 

15135 

15136 

15137 

15138 

15139 

15140 

15141 

15142 

15143 

15144 

15145 

15146 

15147 

15148 

15149 

15150 

15151 

15152 

15153 

15154 

15155 

15156 

15157 

15158 

15159 

15160 

15161 

15162 
15165 

15164 

15165 

15166 

15167 

15168 

15169 

15170 

15171 

15172 

15173 

15174 

15175 

15176 

15177 

15178 

15179 


;NL4AD 


7097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 


TEST CODE SECTION 


BGNT ST.- 


TEST NUMBER: TST 26 


TEST NAME: 


UV ADRS ERROR TEST 


TEST DESCRIPTION: 

TEST THE DETECTION Of UV ADRS 
ERRORS BY: 

1. GENERATING PROM DATA PATTERN 
FROM 0 TO XO* 177777' AND 
DETERMINE WHETHER RESPECTIVE 
PATTERN IS GOOD/OR BAD 

PROM DATA. 

2. VIA DAT DM AND PROM R/W 
NODES PRESENT GENERATED 
PROM DATA TO THE UV ADRS 
ERR PRON. 

3. TEST ERROR CONDITIONS FOR 
CORRECT RESPONCE TO GOOD/ 

OR BAD PRON DATA. 


bitvector [16J. 


local 

HIGH.CNT, 
PRON DATA : 
LOW fNT. 

TEN P. 

ERR.FLG, 

GTR.FLG; 

CLR THRESHOLD; 
PRON.DATA * -1; 


begin 

PRON DATA = .PRON.DATA ♦ 1, 
BGNSOB; 

CLR.NBUS; 

ERR.FLG = ZERO; 

LOW CNT = ZEROES; 

HIGR.CNT = ZEROES; 

GTR 716 = ZERO; 


L_ 


SEO 0327 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA:<NEALE>NL4AD.BLI .4 (78) 


.'STORES PRON DATA CHECK SUN BITS 
! STORES PRON DATA 

« STORES SUN OF PRON DATA BITS <9:0> 

J TEMPORARY STORAGE 
! ERROR FLAG 

•SETS WHEN PRON DATA BIT 15 IS A ONE 
! CLEAR ERROR PRINT THRESHOLD 


! TEST ALL POSSIBLE PROM DATA COMBINATIONS 
•INCREMENT PROM.DATA 



CZMLADO ML-11 LOGIC TEST 
T25 TEST COOE SECTION 


MACRO Mill 3 30-MAR-82 11:18 


f 10 

RAGE 345 


SEO 0328 


15181 ;ML4AD 

15182 ; 


29-Mar- 1982 16:23-04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (78) 


7149 

7150 

7151 

7152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 
7788 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 


TEST CODE SECTION 

incr 8IT.CNT fro« 0 to 9 do ! COUNT PROM DATA BITS <9:0> 

If .PROM.DATA C.BIT.CNT3 IS.SET then LOW.CNT = .LOW.CNT ♦ 1; 

HIGH.CNT = ,PR0M.DATA<10, 3>; !6ET PROM DATA CHECK SUM BITS 

if .PROM.DATA C133 IS.SET then HIGH.CNT = .HIGH.CNT ♦ 1; !ADD IN BIT 13 IF SET 

If .PROM.DATA C143 IS.SET then HIGH.CNT = .HIGH.CNT ♦ 1; .'ADD IN BIT 14 IF SET 

If .PROM.DATA Cl 53 IS.SET then HIGH.CNT = .HIGH.CNT ♦ 1; 'ADD IN BIT 15 IF SET 

ff .PROM.DATA C153 IS.SET then GTR.FLG = ONE; 'SET FLAG IF BIT 15 IS SET 


DAT DM XFER <); 

PROM.RO = ONE; 

MLPD = .PROM.DATA; 
MLCS1 = write; 

DAT.CLK = ONE; 

If .UNS IS.SET 
then 

begin 

If .GTR FLG IS.SET 
then 

begin 
TEMP = . 


.... - .PROM.DATA; 

TEMP = .TEMP end Xo*162000*; 

if .TEMP eql Xo* 162000* 
then 

begin 

if .LOW.CNT geq .HIGH.CNT 
then 


.'SET UP A DATA DIAG MODE XFERR 
I SET PROM READ WRITE 
ILOAD MLPD WITH PROM DATA 
•DO A WRITE FUNCTION 
! CLOCK PROM DATA INTO UV PROM 

•SEE IF PROM DATA CAUSED A UV ERROR 


!UNS IS.SET. SEE IF GTR FLG IS SET 


.'LOAD TEMP WITH PROM DATA 

!SEE IF THESE BITS ARE SET IN PROM DATA 

.'THESE BITS SET AUTOMATICALLY CAUSE A UNS 


•L0W<9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GTR FLG IS SET 


begin 

CMP THRESHOLD: 


TERROR IF L0W<9:0> IS GEQ HI6H<15:10> 
v- ! COMPARE ERROR PRINT THRESHOLD 

ERRDF (72, ARR DAT, DUMPER); 

PRINTB (SIX FMT, WRD 34. PHR.5, WRD.32, WRD.6, WRD.33, WRD.24); 

ERR.FLG - OWE; 

end; 


end; 


else 


end 


begin 

if .LOW.CNT eql .HIGH.CNT 
then 


.'GTR FLG IS NOT SET 


!L0W<9:0> SHOULD BE NEQ HIGH<15:10> 



iCZHLADO Mt-11 LOGIC TEST 
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SEO 0329 


15237 

15238 

15239 

15240 

15241 

15242 

15243 

15244 

15245 

15246 

15247 

15248 

15249 

15250 

15251 

15252 

15253 

15254 

15255 

15256 

15257 

15258 

15259 

15260 

15261 

15262 

15263 

15264 

15265 

15266 

15267 

15268 

15269 

15270 

15271 

15272 

15273 

15274 

15275 

15276 

15277 

15278 

15279 

15280 

15281 

15282 

15283 

15284 

15285 

15286 

15287 

15288 

15289 

15290 

15291 


RL4A0 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(2 12) 
PA:<NEALE>ML4AD.BLI.4 (78) 


7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

7252 


begin 

CMP THRESHOLD; 


1 ERROR IF EOL 

'.COMPARE ERROR PRINT THRESHOLD 
ERRDF <73. ARR DAT. DUMPER); M „ 

PRINTS (SIX FMT. WRD.34, PHR.5, WRD.32, WRD.6, WRD.33, WRD.24); 

ERR.FLG = OKE; 

end; 


end 


else 


end 


begin 

if .GTR.FLG IS.SET 
then 

begin 
TEMP = . 


JUNS WAS NOT SET 
.'SEE IF GTR FLG IS.SET 


TEMP = .PROM.DATA; _ 

TEMP = .TEMP and io' 162000'; 

if .TEMP neq Xo' 162000* 
then 

begin 

CMP THRESHOLD; 

ERRDF (74, ARR DAT, DUMPER); 

PRINTS (SIX FMT, WRD 34. PHR.1, WRD.32, WRD.5, WRD.33. WRD.24); 
ERR.FLG = ORE; 

else*^ IBITS 162000 ARE NOT SET 

begin 


!LOAD TEMP WITH PROM DATA 
* SEE IF THESE BITS ARE SET IN PROM DATA 

! IF THESE BITS ARE SET THEN UNS SHOULD BE SET 

•ERROR UNS IS NOT SET 
! COMPARE ERROR PRINT THRESHOLD 


if . LOW.CNT Iss .HIGH.CNT IL0W<9:0> SHOULD BE GEO HIGH<15:10> 

the °begin ! ERROR IF LSS 

CMP THRESHOLD; ‘COMPARE ERROR PRINT THRESHOLD 

ERRDF (75, ARR DAT, DUMPER); „ ^ , ,, _ 

PRINTS (SIX FMT, WRD.34 , PHR.1, WRD.32, WRD.5, WRD.33, WRD.24); 
ERR.FLG = OWE; 
end; 


end 


else 


end 


begin 

if .LOW.CNT neq .HIGH.CNT 
then 

CM? 1 *” 


! GTR.FLG IS NOT SET 

!L0W<9:0> SHOULD EOL HIGH<15:10> 
•ERROR IF NEO 

•COMPARE ERROR PRINT THRESHOLD 


TUOPCMHI ft • 

ERROF (108, ARR.DAT, DUMPER); 

PRINT8 (SIX FMT. WRD 34, PHR.1, WRD.32, WRD.5, WRD.33, WRD.24); 
ERR FLG = OflE; 
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SEO 033C 


15293 

15294 

15295 

15296 

15297 

15298 

15299 

15300 

15301 

15302 

15303 

15304 

15305 

15306 

15307 

15308 

15309 

15310 

15311 

15312 

15316 

15317 

15321 

15322 

15323 

15324 

15325 

15326 

15327 

15328 

15329 

15330 

15331 

15332 

15333 

15334 

15335 

15336 

15337 

15338 

15339 

15340 

15341 

15342 

15343 

15344 

15345 

15346 

15347 


ML 4 AD 


054304 

054310 

054314 

054320 

054326 

054332 

054334 

054342 

054346 

054352 

054360 

054364 

054366 

054372 

054374 

054400 

054402 

054404 

054406 

054410 

054412 

054416 

054420 

054422 

054424 

054426 

054432 


7253 

7254 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 

7264 

7265 

7266 

7267 

7268 

7269 


004167 

162706 

005067 

012766 

005266 

104402 

152777 

016705 

042705 

142777 

150577 

005001 

005066 

005002 

005066 

005005 

010504 

006204 

006204 

006204 

012703 

060603 

060304 

010446 

010546 

042716 

012746 


29-Mar-1982 16:23:04 T0PS-20 BUss-16 V2(212> 

TEST CODE SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (78) 

end 
end 

end; 

If .ERR.FLG IS.SET .'SEE IF ERROR FLG GOT SET 

th *°beafn 'PRINT FAILING PROM.DATA AND SET DODU.FLG 

PRINTB (FMT.7, .PROM.DATA); 
end; 


ENDSUB; 

end 

until .PROM.DATA eql Xo* 177777*; 
ENDTST; 


.SBTTL 

130302 8T26: JSR 

000010 SUB 

141056 CLR 

177777 000006 MOV 

000006 1$: INC 

2$: TRAP 

000040 141102 BIS8 

141464 MOV 

177770 BIC 

000007 141064 BICB 

141060 BIS8 

CLR 

000002 CLR 

CLR 

000004 CLR 

CLR 

3$: MOV 

ASR 
ASR 
ASR 

000006 MOV 


ADD 

ADD 

MOV 

MOV 

177770 BIC 

000001 MOV 


•TRY ALL BIT COMBINATIONS 


ST26 TEST CODE SECTION 


R1.SSAVE5 

• 

#10, SP 


P.CNT 

• 

#-1,6(SP> 

; *, PROM. DATA 

6CSP) 

; PROM. DATA 

2 

#40.9HL.REG+40 

# 


ML.DUT.R5 

#177776.R5 

#7,8ML.REG+40 


R5,BML.REG+40 


R1 

; ERR.FLG 

2(SP) 

; LOW.CNT 

R2 

; HIGH.CNT 

4(SP) 

; GTR.FLG 

R5 

; BIT.CNT 

R5,R4 

; BIT.CNT. 


R4 


R4 

R4 

#6,R3 


SP.R3 

R3.R4 

R4,-(SP) 

; PROM. DATA.* 

R5.-(SP) 

#1^7770, (SP) 

#1,-(SP> 

; BIT.CNT,* 


7095 

7134 

7137 

7141 

7142 


7144 

7H5 

7146 

7147 
7149 
7151 



CZHIADO Ml-11 LOGIC TEST 
$T26 TEST CODE SECTION 
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15349 

15350 

15351 

15352 

15353 

15354 

15355 

15356 

15357 

15358 

15359 

15360 

15361 

15362 

15363 

15364 

15365 

15366 

15367 

15368 

15369 

15370 

15371 

15372 

15373 

15374 

15375 

15376 

15377 

15378 

15379 

15380 

15381 

15382 

15383 

15384 

15385 

15386 

15387 

15388 

15389 

15390 

15391 

15392 

15393 

15394 

15395 

15396 

15397 

15398 

15399 

15400 

15401 

15402 

15403 


;NL4AD 


054436 

054440 

054444 

054450 

054452 

054454 

054460 

054462 

054466 

054470 

054474 

054476 

054500 

054502 

054506 

054514 

054516 

054520 

054526 

054530 

054532 

054534 

054540 

054542 

054544 

054546 

054550 

054552 

054560 

054564 

054572 

054576 

054602 

054610 

054616 

054624 

054626 

G54634 

054636 

054640 

054644 

054650 

054652 

054656 

054660 

054664 

054670 

054676 

054700 

054702 

0547C4 

054706 


005046 

004767 

062706 

005300 

001002 

005266 

005205 

020527 

003745 

016602 

006202 

006202 

000302 

042702 

132766 

001401 

005202 

132766 

001401 

005202 

005005 

105766 

100002 

005205 

005202 

006005 

103003 

012766 

004767 

152777 

016605 

010577 

012777 

152777 

032777 

001514 

026627 

001050 

010516 

042716 

021627 

001003 

026602 

002002 

000167 

005267 

026767 

003146 

104455 

000110 

013012 

026302 


127170 

000010 


000002 

000011 

000006 


177770 

000040 


000007 


000100 000007 5$: 


000007 


000001 

141626 

000100 

000006 

141032 

000061 

000020 

040000 


000004 

140732 


140574 

140706 

140640 


000004 000001 


015777 

162000 


000002 

000516 

140506 

140502 


140502 


TEST CODE SECTION 

CLR -<SP) 

JSR PC.BLSGT2 

ADD #10. SP 

DEC RO 

BNE 4$ 

INC 2<SP) 

INC R5 

CMP R5.#11 

BLE 3$ 

MOV 6(SP).R2 

ASR R2 

ASR R 2 

SWAB R 2 

81 C #1 77770. R2 

BITS #40.7(SP) 

BEO 5$ 

INC R2 

BITS #100,7(SP) 

BEO 6$ 

INC R2 

CLR R5 

TSTB 7(SP) 

BPl 7$ 

INC R5 

INC R2 

ROR R5 

BCC 8$ 

NOV #1 ,4(SP) 

JSR PC.DAT.DN.XFER 

B1S8 #100.8NL.REG + 120 

NOV 6 CSP5 ,R5 

NOV R5.9NL.REG+230 

NOV #61 .3ML.REG 

BISB #20.aNL.REG*120 

BIT #40000, 9ML.REG+60 

BEO 12$ 

CMP 4(SP) ,#1 

BNE 11$ 

NOV R5.(SP) 

SIC #1$777,<SP) 

CNP (SP).#- 16000 

BNE 9$ 

CNP 2<SP).R 2 

BGE 10$ 

JNP 19$ 

INC P.CNT 

CNP P.CNT. UNIT 

BGT 14$ 

TRAP 55 

.WORD 110 

.WORD ARR.DAT 

.WORD DUMPER 


SEO 0331 


29-M«r-1982 16:23:04 TOPS 

29-N*r-l982 16:21:03 PA:< 


LOW.CNT 

BIT.CNT 

BIT. CNT,* 

7149 

PROM. DATA. HIGH. CNT 

HIGH.CNT 

HIGH. CNT 

HIGH.CNT 

♦.HIGH.CNT 

♦.PROM.DATA+1 

7153 

7155 

HIGH.CNT 
♦.PROM. DATA* 1 

7157 

HIGH.CNT 

PROH.DATAO 

7159 

HIGH.CNT 

7161 

♦.GTR.FLG 

PROM. DATA,* 

7163 

7164 

7165 


7166 

7167 
7169 

GTR.FLG,* 

7173 

♦.TEMP 

♦.TEMP 

TEMP,* 

7176 

7177 
7179 

LOW. CNT, HIGH. CNT 

7183 


7186 


7188 



CZMLADO Ml-11 LOGIC TE$ T 
$T?6 TEST CODE SECTION 


MACRO HI 113 30-HAR-82 11:18 


J 10 

PALE 349 


15405 




;HL4AD 


15406 

15407 

15408 054710 

012746 

010774 


• 

HOV 

15409 054714 

012/46 

011076 



MOV 

15410 054720 

012746 

010560 



MOV 

15411 054724 

012746 

011070 



HOV 

15412 054730 

012746 

011714 



HOV 

15413 054734 

012746 

011102 



MOV 

15414 054740 

012746 

010322 



HOV 

15415 054744 

012746 

000007 



HOV 

15416 054750 

010600 




HOV 

15417 054752 

104414 




TRAP 

15418 054754 

000546 

000002 


11$: 

BR 

15419 054756 

026602 


CMP 

15420 054762 

001336 




BNE 

15421 054764 

005267 

140406 

140402 


INC 

15422 054770 

026767 

140402 


CMP 

15423 054776 

003146 




BGT 

15424 055000 

104455 




TRAP 

15425 055002 

000111 




.WORD 

15426 055004 

013012 




.WORD 

15427 055006 

026302 




.WORD 

15428 055010 

012746 

010774 



HOV 

15429 055014 

012746 

011076 



MOV 

15430 055020 

012746 

010560 



MOV 

15431 055024 

012746 

011070 



HOV 

15432 055030 

012746 

011714 



HOV 

15433 055034 

012746 

011102 



HOV 

15434 055040 

012746 

010322 



HOV 

15435 055044 

012746 

000007 



HOV 

15436 055050 

010600 




HOV 

15437 055052 

104414 




TRAP 

15438 055054 

000546 


000001 

12$: 

BR 

15439 055056 

026627 

000004 

CHP 

15440 055064 

001103 




BNE 

15441 055066 

010516 

015777 



HOV 

15442 055070 

042716 



BIC 

15443 055074 

021627 

162000 



CHP 

15444 055100 

001435 




BED 

15445 055102 

15446 055106 

005267 

026767 

140270 

140264 

140264 


INC 

CHP 

15447 055114 

003153 




BGT 

15448 055116 

104455 

000112 




TRAP 

15449 055120 




.WORD 

15450 055122 

013012 




.WORD 

15451 055124 

026302 

010774 



.WORD 

15452 055126 

012746 



HOV 

15453 055132 

012746 

011076 



HOV 

15454 055136 

012746 

010552 



HOV 

15455 055142 

012746 

011070 



HOV 

15456 055146 

15457 055152 

012746 

012746 

011610 

011102 



HOV 

NOV 

15458 055156 

012746 

010322 



HOV 

15459 055162 

012746 

000007 



HOV 


TEST CODE SECTION 

#WRD.24,-(SP) 

#WRD.33.-(SP) 

#WRD.6,-(SP) 

#WRD.32.-(SP) 

#PHR.5 f -(SP) 

#WRD.34.-(SP> 

#SIX.FHT.-(SP> 

#7,-<SP> 

SP.RO 

14 

15 $ 

2<SP).R2 

9$ 

P.CNT 

p.cnt.lihit 

17$ 

55 

111 

ARR.DAT 

DUMPER 

#WRD.24,-(SP> 

#WRD.33,-(SP) 

#WRD.6.-(SP) 

#WRD.32.-(SP) 

#PHR.5.-(SP) 

#WRD.34,-(SP) 

#SIX. FMT.-CSP) 

#7,-(SP) 

SP.RO 

14 

18$ 

4<SP).#1 

16$ 

R5.(SP) 

#1$777,<SP) 

(SP) .#-16000 
13$ 

P.CNT 

P.CNT.LIHIT 

21 $ 

55 

112 

ARR.DAT 

DUHPER 

#WRD.24.-(SP) 

#WRD.33.-(SP) 

#WRD.5.-(SP) 

#WRD.32.-(SP> 

#PHR.1.-(SP) 

#WRD.34,-(SP) 

#SIX.FHT.-(SP) 

#7,-(SP) 


Sc'Q 0332 

29-Ha r- 1982 16:23:04 TOPS 
29-Har-1982 16:21:03 PA:< 

7189 


; SP.* 

; LOW. CNT. HIGH. CNT 


7190 

7199 

7201 I 
7203 | 


7204 


SP.* 


GTR.FLG,* 


*,TEHP 

*.TEHP 

TEHP.* 


7205 

7214 


7222 


7224 


7225 



a*LADO ML-11 LOGIC TEST 
ST26 TEST CODE SECTION 


K 10 

MACRO M1113 30-MAR-82 11:18 PAGE 350 


SEG 0333 


15461 




; ML 4 AD 



29-Har-1982 

16:23:04 

TOPS 

15462 




0 


TEST CODE SECTION 

29-Mar-19f? 

16:21:03 

PA: < 

15463 










15464 055166 

01060c 




MOV 

SP.RO 

; SP.* 



15465 055170 

104414 




TRAP 

14 




15466 055172 

000477 




BR 

18$ 

♦ 


7226 

15467 055174 

026602 

000002 


13$: 

CMP 

2(SP) ,R2 

; LOW. CNT. HIGH. CNT 


7231 

15468 055200 

002100 




BGE 

19$ 




15469 055202 

005267 

140170 



INC 

P.CNT 

• 


7233 

15470 055206 

026767 

140164 

140164 


CMP 

P.CNT. LIMIT 




15471 055214 

003113 



14$: 

BGT 

21$ 




15472 055216 

104455 




TRAP 

55 

! 


7235 

15473 055220 

000113 




.WORD 

113 




15474 055222 

013012 




.WORD 

ARR.DAT 




15475 055224 

026302 




.WORD 

DUMPER 




15476 055226 

012746 

010774 



MOV 

#WRD.24.-(SP) 

• 

w 


7236 

15477 055232 

012746 

011076 



MOV 

#WRD.33,-(SP) 




15478 055236 

012746 

010552 



MOV 

#WRD.5.-(SP) 




15479 055242 

012746 

011070 



MOV 

#WRD.32.-(SP) 




15480 055246 

012746 

011610 



MOV 

fPHR.I f -(SP) 




15481 055252 

012746 

011102 



MOV 

#WRD.34.-(SP> 




15482 055256 

012746 

010322 



MOV 

#SIX.FMT,-<SP> 




15483 055262 

012746 

000007 



MOV 

#7.-($P> 




15484 055266 

010600 




MOV 

SP.RO 

; SP.* 



15485 055270 

104414 




TRAP 

14 




15486 055272 

000437 



15$: 

BR 

18$ 

• 

• 


7237 

15487 055274 

026602 

000002 


16$: 

CMP 

2(SP) ,R2 

; LOW. CNT. HIGH. CNT 


7246 

15488 055300 

001440 




BEG 

19$ 




15489 055302 

005267 

140070 



INC 

P.CNT 

• 

0 


7248 

15490 055306 

026767 

140064 

140064 


CMP 

P.CNT. LIMIT 




15491 055314 

003053 



17$: 

BGT 

21$ 




15492 055316 

104455 




TRAP 

55 

0 


7250 

15493 055320 

000154 




.WORD 

154 




15494 055322 

013012 




.WORD 

ARR.DAT 




15495 055324 

026302 




.WORD 

DUMPER 




15496 055326 

012746 

010774 



MOV 

#WRD.24.-(SP) 

0 


7251 

15497 055332 

012746 

011076 



MOV 

#WRD.33.-(SP> 




15498 055336 

012746 

010552 



MOV 

#WRD.5.-(SP) 




15499 055342 

012746 

011070 



MOV 

#WRD.32.-(SP> 




15500 055346 

012746 

011610 



MOV 

fPHR.I.-(SP) 




15501 055352 

012746 

011102 



MOV 

*WRD.34,-(SP> 




15502 055356 

012746 

010322 



MOV 

#SIX.FMT.-(SP> 




15503 055362 

012746 

000007 



MOV 

#7,~(SP) 




15504 055366 

010600 




MOV 

SP.RO 

; SP.* 



15505 055370 

104414 




TRAP 

14 




15506 055372 

012701 

000001 


18$: 

MOV 

#1.R1 

; *.ERR.FLG 


7252 

15507 055376 

062706 

000020 



ADD 

# 26 . SP 

• 


7248 

15508 055402 

020127 

000001 


19$: 

CMP 

R1./T1 

; ERR.FLG.* 


7259 

15509 055406 

001011 




ONE 

20i 




15510 055410 

010546 




MOV 

R5,-(SP> 

• 

0 


7262 

15511 055412 

012746 

007002 



MOV 

#FMT.7,-(SP> 




15512 055416 

012746 

000002 



MOV 

#2.-(SP> 




15513 055422 

010600 




MOV 

SP.RO 

; SP,* 



15514 055424 

104414 




TRAP 

14 




15515 055426 

062706 

000006 



ADD 

#6.SP 

0 


7261 



CZMLADO ML-11 LOGIC TEST 
$T26 TEST CODE SECTION 
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SEO 0334 


15517 



;M14AD 




15518 



s 


TEST CODE SECTION 


15519 







15520 0^5432 

104467 


20$: 

TRAP 

67 


15521 055434 

006000 



ROR 

RO 


15522 055436 

103002 



BHIS 

21$ 


15523 055440 

000167 

176666 


JMP 

2$ 


15524 055444 

026627 

000006 177777 

21$: 

CMP 

6(SP),#-1 


15525 055452 

001402 



BEQ 

22$ 


15526 055454 

000167 

176646 


JMP 

1$ 


15527 055460 

062706 

000010 

22$: 

ADD 

#10, SP 


15528 055464 

000207 



RTS 

PC 


15529 







15530 



; Routine Size: 

313 words 


15531 



; Maximum stack 

depth per invocation: 

18 words 

15536 







15537 

1 cc/ 1 







15542 




•S8TTL 

T26 TEST CODE SECTION 


15546 055466 



T26: : 




15547 055466 

004767 

176612 

1$: 

JSR 

PC,$T26 


15548 055472 

104466 



TRAP 

66 


15549 055474 

006000 



ROR 

RO 


15550 055476 

103773 



BLO 

1$ 


15551 C55500 

000207 



RTS 

PC 


15552 







15553 



; Routine Size: 

6 words 


15554 



; Maximum stack 

depth per invocation: 

0 words 

15559 







15560 







15561 ; 

7270 

.'<8LF/PAGE> 






PROM. DATA,* 


29-Mar -1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA: < 

7263 

7267 
7095 I 


7267 



CZMLADO ML- 11 LOGIC TEST 
T26 TEST CODE SECTION 


M 10 
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SEO 0335 


15563 

15564 

15565 

15566 

15567 

15568 

15569 

15570 

15571 

15572 

15573 

15574 

15575 

15576 

15577 

15578 

15579 

15580 

15581 

15582 

15583 

15584 

15585 

15586 

15587 

15588 

15589 

15590 

15591 

15592 

15593 

15594 

15595 

15596 

15597 

15598 

15599 

15600 

15601 

15602 

15603 

15604 

15605 

15606 

15607 

15608 

15609 

15610 

15611 

15612 

15613 

15614 

15615 

15616 

15617 


;ML4AD 


7271 

7272 

7273 

7274 

7275 

7276 

7277 

7278 

7279 

7280 

7281 

7282 

7283 

7284 

7285 

7286 

7287 

7288 

7289 

7290 

7291 

7292 

7293 

7294 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 27 

TEST NAME: INITIAL ARRAY TEST 

TEST DESCRIPTION: 

DUE TO THE NATURE OF THE DEVICE 
THERE EXISTS KNOWN BAD ARRAY 
DATA LOCATIONS. 

THEREFORE TO INITIALLY TEST THE ARRAYS* 
TIMING AND CONTROL LOGIC A BAD 
NIBBLE THRESHOLD OF 36 BAD NIBBLES 
OUT OF 100 NIBBLES TESTED WILL BE 
TOLERATED BEFORE DETERMINING CONTROL 
LOGIC TO BE IN ERROR. 

THE ARRAYS* ARE INITIALLY TESTED BY: 

1. VIA DAT DM MOD WRITE DATA PATTERNS 

of i*s And o*s to 5 array 

WORDS. 

2. TEST EACH NIBBLE (4 BITS) FOR 
I'S AND O'S AND COUNT EACH BAD 
NIBBLE ENCOUNTERED. 

3. IF ACCUMULATED BAD NIBBLES 
EXCEED 36 THEN REPORT AN ERROR. 


local 

TST.PAT, 

BAD NIB CNT, 

ERRlFLG; 

TST PAT = ONES; 
BAD.NIB.CNT * ZEROES; 

fncr TWICE from 0 to 1 do 
begin 
BGNSUB; 

CLR.MBUS; 

MLDT = .TST PAT; 

MLD2 = .TST PAT; 

MLE2 = .TSrPAT; 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21-03 


TOPS-20 Bliss-16 V21212) 
PA: <NEALE>ML4AD.8LI .4 (79) 


‘TEST PATTERN 

{NUMBER OF BAD NIBBLES FOUND 
{ERROR FLAG 


{REPEAT LOOP TWICE 


{LOAD TEST PATTERN INTO DIAG REGISTERS 


C2MLAD0 
T 26 m 

15619 

15620 

15621 

15622 

15623 

15624 

15625 

15626 

15627 

15628 

15629 

15630 

15631 

15632 

15633 

15634 

15635 

15636 

15637 

15638 

15639 

15640 

15641 

15642 

15643 

15644 

15645 

15646 

15647 

15648 

15649 

15650 

15651 

15652 

15653 

15654 

15655 

15656 

15657 

15658 

15659 

15660 

15661 

15662 

15663 

15664 

15665 

15666 

15667 

15668 

15672 

15673 


ML-11 LOGIC TEST 
’ CODE SECTION 


MACRO Ml 113 30-MAR-82 11:18 


N 10 
PAGE 353 


SEQ 0336 


;ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2I212) 

PA : <NE ALE >ML4 AD .8L 1 . 4 (79) 


7323 DAT DM = ONE; 

7324 FIR3T.BLK.XFER <>; 

7325 MLCS1 = write; 

7326 

7327 incr CNT from 0 to 4 do 

7328 begin 

7329 DECAY (ONE US); 

7330 DAT.CLK = ONE; 

7331 end; 

7332 

7333 CLR.MBUS; 

7334 DAT DM = ONE; 

7335 FIfi3T.BLK.XFER (); 

7336 MLCS1 = read; 

7337 DELAY (ONE.US); 

7338 

7339 incr ARR.WRD from 0 to 4 do 

7340 begin 

7341 DAT.CLK = ONE; 

7342 DELAY (ONE.US); 

7343 RD.LNG.WRD; 

7344 

7345 incr NIB.PTR from 0 to 9 do 

7346 begin 

7347 TST LNG.WRD (.NIB.PTR, . 

7348 

7349 if .ERR FLG IS.SET then 

7350 

7351 

7352 end; 

7353 

7354 end; 

7355 

7356 TST PAT = not . TST.PAT; 

7357 ENDSUB; 

7358 end; 

7359 

7360 if .8AD.NIB.CNT gtr 36 

7361 then 

7362 begin 

7363 ERRDF (77, ASYNC, DUMPER); 

7364 PRINTS (FIV FMT, WRD.22, PHR.4, 

7365 DODU (.ML.LON); 

7366 DOCLN; 

7367 end; 


‘SET DATA DIAG MODE 
‘SET UP A FIRST BLK XFERR 
‘DO A MBUS WRITE FUNCTION 

‘CLOCK 5 WORDS INTO MEMORY 


TST.PAT = not .TST.PAT; 

ENDSUB; 

end; 


7362 beg 

7363 ERRI 

7364 PRII 

7365 DODI 

7366 DOCi 

7367 end 

7368 

7369 ENDTST; 


•SET DATA DIAG MODE 
! SET UP A FIRST BLK XFERR 
•DO A READ FUNCTION 


•READ THE 5 WORD IN MEMORY 
‘CLOCK OUT A WORD INTO THE DIAG REGS 
•READ THE DIAG REGISTERS 
•READ THE 10 NIBBLES IN THE WORD 
TST.PAT, ERR.FLG); ! COMPARE TST PAT TO NIBBLE UNDER TEST 
BAD.N1B.CNT = .BAD.NIB.CNT ♦ 1; 

•INCREMENT BAD .NIBBLE COUNT IFERR.FLG SET 


! REPEAT WITH COMPLIMENT TST PAT 


‘SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD 
! ERROR IF GTR 36 
WRD.12, WRD.45, FNC.14); 


SBTTL ST27 TEST CODE SECTION 


B 11 
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ST27 TEST CODE SECTION 


15675 




; ML 4 AD 





15676 




m 


TEST CODE SECTION 



15677 

15681 055502 

004167 

127104 


$127: 

J SR 

R1.SSAVE5 

0 


15682 055506 

15683 055510 

oo 

rsj.r* 

2* 

-*o> 

177777 



CMP 

MOV 

-(SP).-(SP) 

#-1 ,R1 

• 

*, TST.PAT 

15684 055514 

005046 




CLR 

-(SP) 

• 

BAD.NIB.CNT 

15685 055516 

005005 




CLR 

R5 

• 

TWICE 

15686 055520 

15687 055522 

m 

000040 

137714 

IS: 

TRAP 

BISS 

2 

#40.aML.REG+40 

• 

0 


15688 055530 

016704 

140276 



MOV 

ML.SUT.R4 
#1 77776, R4 



15689 055534 

042704 

177770 



BIC 



15690 055540 

142777 

000007 

137676 


B1C8 

#7,iML.REG+40 



15691 055546 

150477 

137672 



BISB 

R4,aML.REG+40 



15692 055552 

010177 

140016 



MOV 

R1,BML.REG+170 

0 

TST.PAT,* 

15693 055556 

010177 

140022 



MOV 

R1 ,3ML.REG+200 

• 

• 

TST.PAT,* 

15694 055562 

010177 

137776 



MOV 

R1.aML.REG* 160 
#l6,BML.REG+120 

• 

• 

TST.PAT,* 

15695 055566 

152777 

000010 

137730 


BJS6 

• 


15696 055574 

004767 

142462 



JSR 

PC.FIRST.BLK.XFER 

#61,BML.REG 

• 

0 


15697 055600 

012777 

000061 

137576 


MOV 

• 

# 


15698 055606 

005002 




CLR 

R 2 

• 

CNT 

15699 055610 

012703 

000001 


2$: 

MOV 

n,R3 

• 

m 

*,$$TMP2 

15700 055614 

001411 



3S: 

BEQ 

6$ 


*,$STMP1 

15701 055616 

016704 

124274 



MOV 

LSDLV.R4 

9 

15702 055622 

001404 




BEQ 

5$ 


SSTMP 

15703 055624 

005066 

000004 


4$: 

CLR 

4 (SP) 

0 

15704 055630 

005304 




DEC 

R4 

• 

• 

SSTMP1 

15705 055632 

001374 




BNE 

4$ 


SSTMP2 

15706 055634 

005303 



5$: 

DEC 

R3 

• 

15707 055636 

000766 




BR 

3$ 



15708 055640 

152777 

000020 

137656 

6$: 

BISB 

#20,aHL.REG*120 

• 

9 


15709 055646 

005202 




INC 

R2 

9 

CNT 

15710 055650 

020227 

000004 



CMP 

R2,f4 

9 

CNT.* 

15711 055654 

003755 




BLE 

2$ 



15712 055656 

152777 

000040 

137560 


BISB 

#40,aML.REG*40 

• 

9 


15713 055664 

016704 

140142 



MOV 

ML.DUT.R4 



15714 055670 

042704 

177770 



BIC 

#1 77776, R4 



15715 055674 

142777 

000007 

137542 


BIC6 

#7,BML.REG+40 



15716 055702 

150477 

137536 



BISB 

R4,aML.REG*40 



15717 055706 

152777 

000010 

137610 


8IS8 

#l6,aML.REG*120 



15718 055714 

004767 

142342 



JSR 

PC-FIRST.BLK.XFER 



15719 055720 

012777 

000071 

137456 


MOV 

f71.aML.REG 


*.S$TMP2 

15720 055726 

012703 

000001 



MOV 

#1 ,R3 


15721 055732 

001411 



7$: 

BEQ 

10S 


*.S$TMP1 

15722 055734 

016704 

124156 



MOV 

LSDLT.R4 


15723 055740 

001404 




BEQ 

9$ 



15724 055742 

005066 

000004 


8$: 

CLR 

4(SP) 


SSTMP 

15725 055746 

005304 




DEC 

R4 


SSTMP1 

15726 055750 

001374 




BNE 

8$ 


SSTMP2 

15727 055752 

005303 



9$: 

DEC 

R3 


15728 055754 

000766 




BR 

7$ 



15729 055756 

005002 



10$: 

CLR 

R2 


ARR.WRD 


SEO 0337 

29-M*r-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


7269 


7313 

7314 

7316 

7317 

7318 


7320 

7321 

7322 

7323 

7324 

7325 
7327 
7329 


7330 

7327 


7331 


7334 

7335 

7336 

7337 


7339 



CZMLADO HL-11 LOGIC TEST 
$T27 TEST CODE SECTION 
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15731 

15732 

15733 

15734 

15735 

15736 

15737 

15738 

15739 

15740 

15741 

15742 

15743 

15744 

15745 

15746 

15747 

15748 

15749 

15750 

15751 

15752 

15753 

15754 

15755 

15756 

15757 

15758 

15759 

15760 

15761 

15762 

15763 

15764 

15765 

15766 

15767 

15768 

15769 

15770 

15771 

15772 

15773 

15774 

15775 

15776 

15777 

15778 

15779 
15760 

15781 

15782 

15783 

15784 

15785 


;ML4AD 


055760 

055766 

055772 

055774 

056000 

056002 

056006 

056010 

056012 

056014 

056016 

056024 

056032 

056040 

056042 

056044 

056046 

056052 

056054 

056060 

056066 

056070 

056074 

056100 

056102 

056106 

056110 

056112 

056116 

056120 

056122 

056124 

056126 

056130 

056134 

056136 

056142 

056144 

056150 

056152 

056154 

056156 

056160 

056162 

056166 

056172 

056176 

056202 

056206 

056212 

056216 

056220 


152777 

012703 

001411 

016704 

001404 

005066 

005304 

001374 

005303 

000766 

017767 

017767 

017767 

005004 

010446 

010146 

012746 

060616 

004767 

026627 

001002 

005266 

062706 

0C5204 

020427 

003755 

005202 

020227 

003720 

005101 

104467 

006000 

103002 

000167 

005205 

020527 

003772 

021627 

003432 

104455 

000115 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 


000020 137536 
000001 

124116 

000004 


137552 135350 
137554 135344 
137526 135340 


000010 

142316 

000010 000001 

000006 

000006 

000011 


000004 


177364 

000001 

000044 


012344 

011214 

010650 

011676 

010752 

010304 

000006 


TEST CODE SECTION 

BIS8 #20,am..REG+120 
MOV #I,R3 

BEO 15* 

MOV LSDl.y,R4 

BEQ 14$ 

CLR 4(SP) 

DEC R4 

BNE 13$ 

DEC R3 

BR 12$ 

MOV BML.REG+170,D1.TEMP 

MOV aML.REG+200,D2.TEMP 

MOV aMl.REG*160,E2.TEMP 

CLR R4 

MOV R4,-(SP) 

MOV Rl ,-(SP) 

MOV #10,-(SP> 

ADD SP,<SP> 

JSR PC.TST.LNG.WRD 

CMP 10(SP>,#1 

BNE 17$ 

INC 6(SP) 

ADD #6,SP 

INC R4 

CMP R4.#11 

BLE 16i 

INC R2 

CMP R2,#4 

BLE 11$ 

COM Rl 

TRAP 67 

ROR RO 

BHIS 19$ 

JMP 1$ 

INC R5 

CMP R5,#1 

BLE 18$ 

CMP <SP),# 44 

BLE 20$ 

TRAP 55 

.WORD 115 

.WORD ASYNC 

.WORD DUMPER 

MOV #FNC.14,-(SP) 

MOV #WRD.45,-(SP> 

MOV #WRD.12,-(SP) 

MOV #PHR.4.-(SP) 

MOV #WRD.22,-<SP) 

MOV #FIV.FMT,-($P) 

MOV #6,-(SP> 

MOV SP,RO 

TRAP 14 


SEO 0338 




CZHLADO HL-11 LOGIC TEST 
$T 27 TEST CODE SECTION 


0 11 
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SEQ 0339 


15787 

15788 

15789 

15790 

15791 

15792 

15793 

15794 

15795 

15796 

15797 

15798 

15803 

15804 

15808 

15809 

15813 

15814 

15815 

15816 

15817 

15818 

15819 

15820 

15821 

15826 

15827 

15828 





; Ml 4 AD 

9 


TEST CODE SECTION 

056222 

056226 

056230 

056232 

056236 

056242 

016700 

104451 

104444 

062706 

062706 

000207 

137602 

000016 

000006 

20 %: 

MOV 

TRAP 

TRAP 

ADD 

ADD 

RTS 

ML.LUN.RO 

51 

44 

#16. SP 
#6,SP 

PC 




; Routine Size: 

; Maximus stack 

177 words 

depth per invocation: 

056244 

056244 

056250 

056252 

056254 

056256 

004767 

104466 

006000 

103773 

000207 

177232 

T27: : 
IS: 

.S8TTL 

JSR 

TRAP 

ROR 

BIO 

RTS 

T27 TEST CODE SECTION 

PC.ST27 

66 

RO 

IS 

PC 




; Routine Size: 
; Maximus stack 

6 words 

depth per invocation: 

• 

7370 

!<8LF/PAGE> 





16 words 


0 words 


29-Mar- 1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

7365 


7362 

7269 


7367 


CZMLADO ML — 11 LOGIC TEST 
T 27 TEST CODE SECTION 


MACRO Ml 11 3 30-MAR-82 11:18 PAGE 




SEO 0340 


15830 

15831 

15832 

15833 

15834 

15835 

15836 

15837 

15838 

15839 

15840 

15841 

15842 

15843 

15844 

15845 

15846 

15847 

15848 

15849 

15850 

15851 

15852 

15853 

15854 

15855 

15856 

15857 

15858 

15859 

15860 

15861 

15862 

15863 

15864 

15865 

15866 

15867 

15868 

15869 

15870 

15871 

15872 

15873 

15874 

15875 

15876 

15877 

15878 

15879 

15880 

15881 

15882 

15883 

15884 


HI 4 AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212) 
PA:<NEALE>ML4AD.8LI.4 (80) 


7371 

7372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 

7380 

7381 

7382 

7383 

7384 

7385 

7386 

7387 

7388 

7389 

7390 

7391 

7392 

7393 

7394 

7395 

7396 

7397 

7398 

7399 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

7422 


BGNTST; 


*T£ST NUMBER: 
TEST NAME: 


TST 28 

PROM SELECTION TEST 


TEST DESCRIPTION: „ 

DUE TO THE NATURE OF THE DEVICE 
AND OF THE ARRAY MODULES' UV 
PROMS, ONLY PROM READS ARE 
ALLOWED DURING DIAG TESTING. 

THEREFORE THE ARRAY NODULE UV PROMS 
ARE TESTED FOR UNIQUE SELECTION BY: 

1. AT EACH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1'S/O'S PATTERN. 

2. READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF 
THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD NIBBLES 
INDICATES INCORRECT MASKING). COUNT EACH BAD NIBBLE ENCOUNTERED AT AN 
ARRAY MODULE. 

3. ALLOW A THRESHOLD OF 5 BAD NIBBLES AT ANY ARRAY MODULE. 

4. REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE 
THRESHOLD IS EXCEEDED. 

IMPLICIT INPUTS: 

PD TEMP: 

A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 

10 BUF 

a Vector of 256 words where 

DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 

DODU FLG, 
ERRjLG. 
TSTlPAT. 
ERR.CNT; 

DODU FLG s ZERO; 
TST.PAT = ONES; 


FLG 


.'DROP UNIT 
! ERROR FLG 
! TEST PATTERN 
•ERROR COUNT 



CZMLADO Ml-11 LOGIC TEST 
127 TEST CODE SECTION 


F 11 
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SEO 0341 


15886 

15887 

15888 

15889 

15890 

15891 

15892 

15893 

15894 

15895 

15896 

15897 

15898 

15899 

15900 

15901 

15902 

15903 

15904 

15905 

15906 

15907 

15908 

15909 

15910 

15911 

15912 

15913 

15914 

15915 

15916 

15917 

15918 

15919 

15920 

15921 

15922 

15923 

15924 

15925 

15926 

15927 

15928 

15929 

15930 

15931 

15932 

15933 

15934 

15935 

15936 

15937 

15938 

15939 

15940 


Ml 4 AD 


7423 

7424 

7425 

7426 

7427 

7428 

7429 

7430 

7 431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 

7465 

7466 

7467 

7468 

7469 

7470 

7471 

7472 

7473 

7474 


TEST CODE SECTION 
! VER CZMtAD CHANGED TEST TO UNSIGNED TEST 

I 

incrU A RR SEL from 0 to .LST.ARR by .ARR_INC do 
begin” 

ERR CNT = ZERO; 

BGN5U8; 

Incr TWICE fro* 0 to 1 do 
begin 
CLR MBUS; 

MLOT = .TST.PAT; 

RLD2 = .TST.PAT; 

MLE2 = .TST PAT; 

DAT DM = ONE: 

MLWt = not 255; 

ML8A = 10 BUF; 

MLDA = .ARP SEL; 

MLCS1 = write; 

incr CNT fro* 0 to 127 do 
begin 

DELAY (ONE _US>; 

DAT.CLK = ONE; 
end; 

CLR.MBUS; 

DAT DM = ONE; 

MLWl = not 255; 

MLBA = 10 BUF; 

MLDA * .APR SEL; 

MLCS1 = read: 

DELAY (ONE.US); 

incr WD.CNT from 0 to 127 do 
begin 

PD.TEMP = .MLPD; 

DA? CLK = ONE: 

DELXY (ONE.US); 

RDJ.NG.WRD; 

incr NIB.PTR fro* 0 to 9 do 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 

PA : <NE ALE >ML4 AD. BL I. 4 (80) 


f TEST ALL PRESENT ARRAYS 

.'REPEAT LOOP TWICE 

•LOAD DATA DIAG REGISTERS WITH TST.PAT 


.'SET DATA DIAG MODE 
.'LOAD WORD COUNT 
.'LOAD UBUS ADRS 
•LOAD SECTOR 
IDO A WRITE FUNCTION 

! CLOCK IN 127 WORDS 


‘SET DATA DIAG MODE 
•LOAD WORD COUNT 
•LOAD UBUS ADRS 
•LOAD SECTOR 
IDO A READ FUNCTION 


•READ THE 10 WORDS 

•GET PROM DATA FOR THIS WORD 
•CLOCK THIS WORD INTO DIAG REG 


•READ DIAG REG FOR THIS WORD 
I LOOK AT ALL 10 NIBBLE 

‘FIND GOOD NIBBLES 


if .PD.TEMP C.NIB.PTR3 IS.NOT.SET 
then 

^CnG.WRD (.NIB.PTR, .TST.PAT. ERR.FLG); .'COMPARE NIBBLE TO TST.PAT 
if .ERR.FLG IS.SET then ERR.CNT = .ERR.CNT ♦ 1; 

•INCREMENT ERROR COUNT IF ERROR FLG IS SET 

end; 



CZHLADO HI -11 LOGIC TEST 
T 27 TEST CODE SECTION 
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SEO 0342 


15942 

15943 

15944 

15945 

15946 

15947 

15948 

15949 

15950 

15951 

15952 

15953 

15954 

15955 

15956 

15957 

15958 

15959 

15960 

15961 

15962 

15963 

15964 

15965 

15966 

15967 

15968 

15969 

15970 

15974 

15975 

15979 

15980 

15981 

15982 

15983 

15984 

15985 

15986 

15987 

15988 

15989 

15990 

15991 

15992 

15993 

15994 

15995 

15996 


;ML4AD 


056260 

056264 

056270 

056274 

056300 

056306 

056314 

056316 

056322 

056326 

056330 

056332 

056340 

056344 

056350 

056356 

056362 

056366 


7475 

7476 

7477 

7478 

7479 

7480 

7481 

7482 

7483 

7484 

7485 

7486 

7487 
748$ 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 


004167 
162706 
005066 
012702 
016766 
016766 
005001 
000167 
D05066 
104402 
C05016 
1 >2777 
016/05 
042705 
142777 
150577 
010277 
010277 


TEST CODE SECTION 
end; 


29-Har-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<212> 
PA:<NEALE>ML4AD.8LI.4 (80) 


TST PAT = not .TSTJ>AT; 
end? 


.'REPEAT UITH COMPLIMENT DATA 


if .ERR.CNT gtr 5 
then 

begin 

ERkDF (78, ARR DAT, DUMPER); 

PRINTS (THR FHT, WRD 35. WRD.37, WRD.10); 
PRINTS (FMT~9. .ARRjEL); 

DODU.FLG = ONE; 
end; 


! ALLOW 5 ERROR BEFORE ERRORING 
! ERROR IF GTR 5 


END SUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 


IDROP THIS UNIT IF DODU.FLG IS SET 


end; 

ENDTST; 


126326 

000016 

000010 

177777 


000666 

000002 


137466 

177770 

000007 

137062 

137206 

137212 


.SBTTL 



ST28: 

JSR 

SUB 

CLR 

MOV 

000006 


MOV 

000004 


MOV 

CLR 

JMP 


IS: 

CLR 


2$: 

TRAP 

CLR 

137104 

3$: 

BISB 

MOV 

B1C 

137066 


BICB 

BISB 

MOV 

MOV 


ST28 TEST CODE SECTION 

R1 ,SSAVE5 

f16,SP 

10(SP) 

f-1,R 2 

LST.ARR,6<SP> 

ARR. INC, 4 (SP) 

R1 

25$ 

2(SP) 

2 

(SP) 

#40.3ML.REG*40 

ML.DUT.R5 

#1 77776, R5 

#7,m.REGH0 

R5.BML.REG+40 

R2,BHL.REG*170 

R2.8ML.REG+200 


DODU.FLG 
*, TST. PAT 


ARR.SEL 

ERR.CNT 

TWICE 


; TST. PAT.* 
, TST. PAT,* 


7369 

7419 

7420 
7425 


7427 

7430 

7431 


7433 

7434 


H 11 
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CZNLADC Nl-11 LOGIC TEST 


$T28 TEST CODE SECTION 

15998 

15999 

16000 

16001 056372 010277 137166 

16002 056376 152777 000010 137120 

16003 056404 012777 177400 137002 

16004 056412 012777 014022 137004 

16005 056420 010177 137010 

16006 056424 012777 000061 136752 

16007 056432 005003 

16008 056434 012704 000001 

16009 056440 001411 

16010 056442 016705 123450 

16011 056446 001404 

1601 2 056450 005066 000014 

16013 056454 005305 

16014 056456 001374 

16015 056460 005304 

16016 056462 C00766 

16017 056464 ',5c 777 000020 137032 

16018 056472 005203 

16019 056474 020327 000177 

16020 056500 003755 

16021 056502 152777 000040 136734 

16022 056510 016705 137316 
16C23 056514 042705 177770 

16024 056520 142777 000007 136716 

16025 056526 150577 136712 

16026 056532 152777 000010 136764 

16027 056540 012777 177400 136646 

16028 056546 012777 014022 136650 

16029 056554 010177 136654 

16030 056560 012777 000071 136616 

16031 056566 012704 000001 

16032 056572 001411 

16033 056574 016705 123316 

16034 056600 001404 

16035 056602 005066 000014 

16036 056606 005305 

16037 056610 001374 

16038 056612 005304 

16039 056614 000766 

16040 056616 005003 

16041 056620 017767 137010 136514 

16042 056626 152777 000020 136670 

16043 056634 012704 000001 

16044 056640 001411 

16045 C56642 016705 123250 

16046 056646 001404 

16047 056650 005066 000014 

16048 056654 005305 

16049 056656 001374 

16050 056660 005304 

16051 056662 000766 

16052 056664 017767 136704 134502 




•M 4 AD 

; TEST CODE SECTION 



NOV 

R2.aNL.REG+160 


BISS 

fl6.3NL.REG+120 


NOV 

#-400 ,9NL. REG*10 


NOV 

#10. BUT .3NL.REG+20 


NOV 

R1.8NL.REG+30 


NOV 

#61 .8NL.REG 


CLR 

R3 

4$: 

NOV 

#1 ,R4 

5$: 

BEQ 

8$ 


NOV 

LSDLV.R5 


BEQ 

7$ 

6$: 

CLR 

14CSP) 


DEC 

R5 


BNE 

6$ 

7$: 

DEC 

R4 


BP 

5$ 

8$: 

BISB 

#2C,SNL.REG+120 


INC 

R3 


CMP 

R3,#177 


BLE 

4$ 


BISB 

#40,BNL.REG+40 


NOV 

BIC 

NL.DUT.R5 
#1 77776. R5 


BICB 

#7,3NL.REG+40 


BISB 

R5.9NL.REG+40 


BISB 

#10,BNL.REG*120 


NOV 

#-460. 8NL. REGGIO 


NOV 

#10.BUF,aNL.REG+20 


NOV 

R1.9NL.REG+30 


NOV 

#71,8NL.REG 


NOV 

#1 «R4 

9$: 

BEQ 

12$ 


NOV 

LSDLV.R5 


BEQ 

11$ 

10$: 

CLR 

14CSP) 


DEC 

R5 


BNE 

10$ 

11$: 

DEC 

R4 


8R 

9$ 

12$: 

CLR 

R3 

13$: 

NOV 

3NL.REG+230.PD.TENP 


BISB 

#20,8NL.REG+120 


NOV 

#1 t R4 

14$: 

BEQ 

1 7$ 


NOV 

L$DLV,R5 


BEQ 

16$ 

15$: 

CLR 

14 <SP) 


DEC 

R5 


BNE 

15$ 

16$: 

DEC 

R4 


BR 

14$ 

17$: 

NOV 

8NL.REG+170.D1 .TENP 


SEQ 0343 



ARR.SEL.* 

*.$$TNP2 

*,$$TNP1 

$$TNP 

$$TNP1 

$$TNP2 

UD.CNT 

*.$$T NP2 

*.$$TNP1 

$$TNP 

$$TNP1 


29-*Ar-1982 16:23:04 
29-N«r-1982 16:21:03 


7435 

7436 

7437 

7438 

7439 

7440 
7442 
7444 


$$TNP2 


kZNLADO ML-11 LOGIC TEST 
I ST 28 TEST COOE SECTION 


MACRO MIT 13 30-MAR-8? 11:18 PAGE 


16054 

16055 

16056 

16057 

16058 

16059 

16060 
16061 
16062 

16063 

16064 

16065 

16066 

16067 

16068 

16069 

16070 

16071 

16072 

16073 

16074 

16075 

16076 

16077 

16078 

16079 

16080 
16081 
16082 

16083 

16084 

16085 

16086 

16087 

16088 

16089 

16090 

16091 

16092 

16093 

16094 

16095 

16096 

16097 

16098 

16099 

16100 
16101 
16102 

16103 

16104 

16105 

16106 

16107 

16108 


;ML4AD 


056672 

056700 


056710 

056712 

056714 

056716 

056720 

056724 

056726 

056730 

056734 

056740 

056742 

056746 

056752 

056754 

056756 

056760 

056762 

056766 

056770 

056774 

057002 

057004 

057010 

057014 

057016 

057022 

057024 

057026 

057032 

057034 

057036 

057040 

057044 

057046 

057052 

057060 

057062 

057064 

057066 

057070 

057072 

057076 

057102 

057106 

057112 

057116 

057120 

057122 

057124 


017767 

017767 

005004 

010405 

006205 

006205 

006205 

062705 

010546 

010446 

042716 

012746 

005046 

004767 

062706 

005700 

001017 

010446 

010246 

012746 

060616 

004767 

026627 

001002 

005266 

062706 

005204 

020427 

003732 

005203 

020327 

003672 

005102 

005216 

021627 

003002 

000167 

026627 

003434 

104455 

000116 

013012 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010116 

012746 


136706 

136660 


015342 


177770 

000001 

124666 

000010 


000020 

141402 

000020 

000010 

000006 

000011 


000177 


000001 

177260 

000002 


010630 

011122 

011110 

010256 

000004 


007064 


134476 

134472 


000001 


000005 21$: 


TEST CODE SECTION 

MOV aML.REG*200,D2.TEMP 

MOV aML.REG*160,E2,TEMP 

CLR R4 

MOV R4.R5 

ASR R5 

ASR R5 

ASR R5 

ADD #PD.TEMP,R5 

MOV R5,-(SP) 

MOV R4,-(SP) 

BIC #1 77770, (SP) 

MOV #1,-(SP) 

CLR -(SP) 

JSR PC.8L$GT2 

ADD #10, SP 

TST RO 

BNE 20$ 

MOV R4,-(SP) 

MOV R2.-(SP) 

MOV #20.- (SP) 

ADD SP,(SP) 

JSR PC.TST.LNG.WRD 

CMP 20(SP) ,#1 

BNE 19$ 

INC 10(SP) 

ADD #6,SP 

INC R4 

CMP R4,#11 

BLE 18$ 

INC R3 

CMP R3,#177 

BLE 13$ 

COM R2 

INC (SP) 

CMP (SP) ,#1 

BGT 21$ 

JMP 3$ 

CMP 2(SP),#5 

BLE 22$ 

TRAP 55 

.WORD 116 

.WORD ARR.DAT 

.WORD DUMPER 

MOV #WRD.10,-(SP) 

MOV #WRD.37,-(SP) 

MOV #WRD.35,-(SP) 

MOV #THR.EMT,-(SP) 

MOV #4,-(SP> 

MOV SP.RO 

TRAP 14 

MOV R1,(SP) 

MOV #EMT.9,-(SP) 


SEO 0344 


29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 


; NIB.PTR 7463 

; NIB.PTR,* 7465 


; NIB.PTR,* 


NIB.PTR,* 

7468 

TST. PAT,* 


ERR.FLG.* 


ERR.ELG,* 

7470 

ERR.CNT 



7467 

NIB.PTR 

7463 

NIB.PTR,* 


WD.CNT 

7456 

WD.CNT,* 


TST. PAT 

7477 

TWICE 

7430 

TWICE,* 


; ERR.CNT,* 

7480 

• 

• 

7483 

• 

0 

7484 


; SP,* 

; ARR.SEL,* 


7485 



CZMLADO ML-11 (.GblC TEST 
ST 28 TEST CODE SECTION 


J 11 
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SEO 0345 


16110 




;ML4AD 





16111 




* 


TEST CODE SECTION 



lol 1 c 

16113 057130 

012746 

000002 



MOV 

#2,-(SP> 



16114 057134 

010600 




MOV 

SP.RO 

e 

SP,* 

16115 057136 

104414 




TRAP 

14 



16116 057140 

012766 

000001 

000026 


MOV 

#1,26(SP> 

• 

• 

•.DODU.FLG 

16117 057146 

062706 

000016 



ADD 

#16, SP 

e 


16113 057152 

104467 



22S : 

TRAP 

67 

9 


16119 057154 

006000 




ROR 

RO 



16120 057156 

103002 




BHIS 

23$ 



16121 057160 

000167 

177142 



JMP 

2$ 



16122 057164 

026627 

000010 

000001 

23$: 

CMP 

10<SP),#1 

l 

dodu.flg,* 

16123 057172 

001004 




BNE 

24$ 



16124 057174 

016700 

136630 



MOV 

ML.LUN,R0 

• 

• 


16125 057200 

104451 




TRAP 

51 



16126 057202 

104444 




TRAP 

44 



16127 057204 

066601 

000004 


24$: 

ADD 

4(SP) ,R1 

e 

*,ARR.SEL 

16128 057210 

020166 

000006 


25 S: 

CMP 

R1.6CSP) 

e 

ARR.SEL,* 

16129 057214 

101002 




BH1 

26$ 



16130 057216 

000167 

177100 



JMP 

1$ 



16131 057222 

062706 

000016 


26$: 

ADD 

#16, SP 

• 

9 


16132 057226 

000207 




RTS 

PC 



16133 









16134 




; Routine Size: 

244 words 



16135 




; Maximum stack depth per invocation: 

20 words 


16140 









16141 









10 1*0 

16146 





.S8TTL 

T28 TEST CODE SECTION 



16150 057230 




T28: : 





16151 057230 

004767 

177024 


1$: 

JSR 

PC.ST28 

9 


16152 057234 

104466 




TRAP 

66 



16153 057236 

006000 




ROR 

RO 



16154 057240 

103773 




8L0 

1$ 



16155 057242 

000207 




RTS 

PC 



16156 









16157 




; Routine Size: 

6 words 



16158 




; Maximum stack depth per invocation: 

0 words 


16163 









16164 ; 

7501 

!<BlF/PAGE> 







29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


7486 
7482 

7487 


7491 

7494 


7425 


7369 


7498 



CZMLADO Ml-11 LOGIC TEST 
T 28 TEST CODE SECTION 


MACRO N1 1 13 30-MAR-82 11:18 PAGE 363 


SEO 0346 


16166 

16167 

16168 

16169 

16170 

16171 

16172 

16173 

16174 

16175 

16176 

16177 

16178 

16179 

16180 
16181 
16182 

16183 

16184 

16185 

16186 

16187 

16188 

16189 

16190 

16191 

16192 

16193 

16194 

16195 

16196 

16197 

16198 

16199 

16200 
16201 
1620 2 

16203 

16204 

16205 

16206 

16207 

16208 

16209 

16210 
16211 
16212 

16213 

16214 

16215 

16216 

16217 

16218 

16219 

16220 


ML 4 AO 


7 502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 

7538 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7548 

7549 

7550 

7551 

7552 

7553 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 29 


29-War- 1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<212> 
PA:<NEAIE>M14AD.8LI.4 (81) 


TEST NAME: 


READ WRITE ARRAYS WITH PROM DATA 


TEST DESCRIPTION: 

COMBINE THE READING OF ARRAY 

NODULE DATA WITH ARRAY MODULE UV PROM DATA AND 

FIND A GOOD BLOCK WHERE FURTHER 

TESTING WILL BE PERFORMED PY: 

1. STARTING AT BLOCK 0 WRITE THE BLOCK WITH SELECTED DATA PATTERNS 
AND READ THE BLOCK AVOIDING ANY BAD NIBBLES POINTED TO BY THE 
PROM DATA. 

SET ERROR FUG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK. 

2. REPEAT WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED 
OR THE ERROR FLAG IS SET. 

3. IF ALL PATTERN HAVE BEEN TESTED AND THE ERROR FLAG IS NOT SET 
THEN SAVE THIS BLOCK ADDRESS AS THE GOOD BLOCK ADRS AND EXIT TEST. 

4. ELSE IF THE ERROR FLG HAS SET THEN REPEAT TEST AT THE NEXT ROW. 
REPEAT UNTIL A GOOD BLOCK IS FOUND OR LAST ROW IS REACHED. 

5. IF NO GOOD BLOCK IS FOUND BY LAST ROW THEN REPORT ERROR AND 
EXIT TEST. 

IMPLICIT INPUTS: 

RAS INC 

LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS 
INCREMENT VALUE FOR THIS DRIVE. 

PD TEMP: 

A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
ACCESSED FROM. 

10 BUF: 

A VECTOR OF 2 56 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION 
ARE FOUND. 


local 

WRD CNT, 
NIB’PTR. 


.'WORD COUNT 
.'NIBBLE POINTER 


LZMLADO HL-11 LOGIC TEST 
T28 TEST CODE SECTION 


L 11 
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SEQ 0347 


16222 

ML 4 AD 

16223 

16224 

16225 

7554 

16226 

7555 

16227 

7556 

16228 

7557 

16229 

7558 

16230 

7559 

16231 

7560 

16232 

7561 

16233 

7562 

16234 

7563 

16235 

7564 

16236 

7565 

16237 

7566 

16238 

7567 

16239 

7568 

16240 

7569 

16241 

7570 

16242 

7571 

16243 

7572 

16244 

7573 

16245 

7574 

16246 

7575 

16247 

7576 

16248 

7577 

16249 

7578 

16250 

7579 

16251 

7580 

16252 

7581 

16253 

7582 

16254 

7583 

16255 

7584 

16256 

7585 

16257 

7586 

16258 

7587 

16259 

7588 

16260 

7589 

16261 

7590 

16262 

7591 

16263 

7592 

16264 

7593 

16265 

7594 

16266 

7595 

16267 

7596 

16268 

7597 

16269 

7598 

16270 

7599 

16271 

7600 

16272 

7601 

16273 

7602 

16274 

7603 

16275 

7604 

16276 

7605 


TEST CODE SECTION 

PASS CNT, 

NIB PAT, 

DONE J LG, 

ERR PLG, 
SECTOR.NO; 

BGNSUB; 

PASS CNT = -1; 
SECTOR NO = ZEROES; 
DONE.FCG = ZERO; 


do 


begin 
do 


begin 

PASS CNT = .PASS.CNT ♦ 1; 

CLR.WBUS; 

DAT DM = ONE; 

MLD* = .SECTOR.NO; 

MLWC = not 255; 

ML8A = I0.8UF; 

case .PASS CNT from 0 to 3 of 
set 

C03 : 

NI8.PAT = *o’ 000000*; 

Cl J : 

NIB.PAT s Xo'17*; 

C23 : 

NIB.PAT = Xo*12'; 

C33 : 

NIB.PAT = Xo*15* 

tes; 

incr LD CNT from 0 to 9 do 

LD.CNG.WRD (.LD.CNT, .NI8.PAT); 

URT LNG URD; 

MLCSl = write; 

incr WRT CNT from 0 to 127 do 
begin 

DELAY (ONE US); 

DAT.CLK = ONE; 
end; 

CLR.MBUS; 


29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2C212) 

29-Mar-1982 16:21:03 PA: <NEAL£>ML4AD.8LI .4 (81) 

.'PASS COUNT 
.'NIBBLE PATTERN 
•DONE FLAG 
.'ERROR FLAG 
.'SECTOR NUMBER 


* THIS LOOP DETERMINES UHEN TO STOP 

! THIS LOOP RUNS THE PATTERNS 

•INCREMENT THE PASS COUNT 

! SET DATA DIAG MODE 
•LOAD SECTOR NUMBER IN DSA 
•LOAD WORD COUNT 
•LOAD UBUS ADRS 

! SELECT A NIBBLE PATTERN 

! ZEROES 
•ONES 

JALTERNATING ONE’S, ZEROES 

! COMPLIMENT ONE’S, ZEROES 

.•LOAD NIBBLE PATTERN INTO NIBBLE SAVE 

!LOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE 
•DO A WRITE FUNCTION 

•WRITE PATTERN INTO THIS BLOCK 


CZMLADO ML-11 LOGIC TEST 
T28 T EST CODE SECTION 
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SEQ 0348 


16278 

16279 

16280 
16281 
16282 

16283 

16284 

16285 

16286 

16287 

16288 

16289 

16290 

16291 

16292 

16293 

16294 

16295 

16296 

16297 

16298 

16299 

16300 

16301 

16302 

16303 

16304 

16305 

16306 

16307 

16308 

16309 

16310 

16311 

16312 

16313 

16314 

16315 

16316 

16317 

16318 

16319 

16320 

16321 

16322 

16323 

16324 

16325 

16326 

16327 

16328 

16329 

16330 

16331 

16332 


ML4AD 


TEST CODE SECTION 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BU .4 (81) 


7606 

7607 

7608 

7609 

7610 

7611 

7612 

7613 

7614 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

7624 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

7634 

7635 

7636 

7637 

7638 

7639 

7640 

7641 

7642 

7643 

7644 

7645 

7646 

7647 

7648 

7649 

7650 

7651 

7652 

7653 

7654 

7655 


DAT DM = ONE; 

MIDI = .SECTOR.NO; 
MLWC = not 255; 
MLBA = IO.BUF; 
MLCS1 = read; 

DELAY (CNE.US); 

URD CNT = -1; 


begin 

WRD CNT = .URD CNT ♦ 1; 

pd Temp = .mlpB; 

DAT CLK = ONE; 

DEL*Y (ONE.US); 

RD LNG WRD; 

NlB.PTR = -1; 


begin 

NlS.PTR = .NIB.PTR ♦ 1; 


if .PD.TEMP C.NI8.PTR3 IS.NOT.SET ! TEST 
then TST.LNG.WRD (.NIB.PTR, .NI8.PAT, ERR.FLG); 
end 

until (.ERR.FLG) or (.NIB.PTR eql 9); 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 

•SET DATA DIAG MODE 
! LOAD SECTOR NUMBER 
•LOAD WORD COUNT 
.•LOAD U6US ADRS 
•DO A READ FUNCTION 

! RESET THE WORD COUNT 


! TEST ONE BLOCK FOR NIBBLE PATTERN 
!GET PROM DATA 

•CLOCK DATA WORD INTO DIAG REG 

i 

! READ DIAG REGISTERS 
! RESET THE NIBBLE POINTER 


•SEARCH FOR GOOD NIBBLES 
•INCREMENT NIBBLE POINTER 

IT ! TEST THIS NIB IF PROM FLAG NOT SET 


until (.ERR.FLG) or (.WRD.CNT eql 127); 
end 

until (.PASS.CNT eql 3) or (.ERR.FLG IS.SET ); 


if C.PASS.CNT eql 3) and (.ERR.FLG IS.NOT.SET ) 
then . „ 

begin ; Y| 

DONE.FLG = ONE; SE 

G00D.8LK = .SECTOR.NO; i GO 

end 

else . . 


{REPEAT UNTIL ALL PAT TESTED OR ERROR FLG GETS SET 
•WAS THIS A GOOD BLOCK? 


; YES 

!SET DONE FLAG 

{GOOD BLOCK GETS THIS SECTOR NO 


begin 

SECTOR NO = .SECTOR.NO ♦ .RAS.INC; 

PASS.CRT = -1; 

end; 


VER CZMLAD CHANGED TEST TO UNSIGNED TEST 


!N0 

•INCREMENT ROU NO 
•RESET PASS COUNT 


7656 until (.DONE FL6 IS SET ) or (.SECTOR.NO eqlU .LST.ARR ♦ .ARR.INC) ; 

7657 


CZMLADO ML— 1 1 LOGIC TEST 
T28 TEST CODE SECTION 
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SEQ 0349 


16334 

16335 

16336 

16337 

16338 

16339 

16340 

16341 

16342 

16343 

16344 

16345 

16346 

16347 

16348 

16349 

16350 

16351 

16352 

16356 

16357 

16361 

16362 

16363 

16364 

16365 

16366 

16367 

16368 

16369 

16370 

16371 

16372 

16373 

16374 

16375 

16376 

16377 

16378 

16379 

16380 

16381 

16382 

16383 

16384 

16385 

16386 

16387 

16388 


;ML4AD 


057244 

057250 

057254 

057256 

057264 

057266 

057272 

057276 

057304 

057310 

057314 

057322 

057326 

057334 

057340 

057346 

057354 

057360 

057362 

057366 

057370 

057372 

057374 

057376 

057400 

057402 

057406 

057410 


7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 


004167 

162706 

104402 

012766 

005002 

005066 

005266 

152777 

016705 

042705 

142777 

150577 

152777 

010277 

012777 

012777 

016605 

006305 

066507 

000010 

000014 

000022 

000030 

005001 

000410 

012701 

000405 

012701 


TEST CODE SECTION 


ENDSUB; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2( 212) 
PA:<NEALE>ML4AD.BLI.4 (81) 


iVER CZMLAD CHANGED TEST TO UNSIGNED TEST 
» 

if .SECTOR.NO eqlU .LST.ARR + .ARR.INC 
then 

ErSdF (79. INTER. DUMPER); 

PRINTS (THR FMT, URDJ4. PHRJO, FNC.15); 
DODU ( .ML.LQn) ; 

DOCLN; 

end; 


! REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW 


i SEE IF WE’RE AT THE LAST BLOCK 

!A GOOD BLK NOT FOUND BEFORE LAST BLK 
! ERROR AND DROP UNIT 


ENDTST; 


125342 

000014 

177777 000002 

000004 

000002 

000040 136140 

136522 

177770 

000007 136122 
136116 

000010 136170 
136074 

177400 136046 
014022 136050 
000002 

057366 


ST29: 


000017 

000012 


.SBTTL $T29 TEST CODE SECTION 


JSR 

SUB 

TRAP 

MOV 

CLR 

CLR 

INC 

BISB 

MOV 

BIC 

BICB 

BISB 

BISB 

MOV 

MOV 

MOV 

MOV 

ASL 

ADD 


3$: 

.WORD 


.WORD 


.WORD 


.WORD 

4$: 

CLR 

5$: 

BR 

MOV 


BR 

6S: 

MOV 


R1 .SSAVE5 
#14, SP 

#-1.2(SP) 

R2 

4(SP) 

2(SP) 

#40,BML.REG+40 

ML.DUT.R5 

#1 77776. R5 

#7.BML.REG*40 

R5.9ML.REG+40 

#l6.8ML.REG*120 

R2.BML.REG+30 

#-400,iML.REG+10 

#10. BUF ,9ML . RE G+20 

2(SP),R5 

R5 

3$(R5),PC 

4S-3S 

5S-3S 

6$-3$ 

7S-3S 

R1 

8 $ 

#17, R1 

8 $ 

#12, R1 


*, PASS.CNT 
SECTOR.NO 
DONE.FLG 
PASS.CNT 


SECTOR.NO.* 


PASS.CNT.* 


NIB. PAT 
*, NIB. PAT 
♦.NIB.PAT 


CIMLADO NL-11 LOGIC TEST 
ST29 TEST CODE SECTION 

16390 

16391 

16392 

16393 057414 000402 

16394 057416 012701 000015 

16395 057422 005005 

16396 057424 010546 

16397 057426 010146 

16398 057430 004767 141720 

16399 057434 022626 

16400 057436 005205 

16401 057440 020527 000011 

16402 057444 003767 

16403 057446 016777 133722 

16404 057454 016777 133716 

16405 057462 016777 133712 

16406 057470 012777 000061 

16407 057476 005003 

16408 057500 012704 000001 

16409 057504 001411 

16410 057506 016705 122404 

16411 057512 001404 

16412 057514 005066 000012 

16413 057520 005305 

16414 057522 001374 

16415 057524 005304 

16416 057526 000766 

16417 057530 152777 000020 

16418 057536 005203 

16419 057540 020327 000177 

16420 057544 003755 

16421 057546 152777 000040 

16422 057554 016705 136252 

16423 057560 042705 177770 

16424 057564 142777 000007 

16425 057572 150577 135646 

16426 057576 152777 000010 

16427 057604 010277 135524 

16428 057610 012777 177400 

16429 057616 012777 014022 

16430 057624 012777 000071 

16431 057632 012704 000001 

16432 057636 001411 

16433 057640 016705 122252 

16434 057644 001404 

16435 057646 005066 000012 

16436 057652 005305 

16437 057654 001374 

16438 057656 005304 

16439 057660 000766 

16440 057662 012766 177777 

16441 057670 005266 000006 

16442 057674 017767 135734 

16443 057702 152777 000020 

16444 057710 012704 000001 


B 12 

HACPO Nil 13 30-NAR-82 11:18 PAGE 367 

SEO 0350 



;NL4AD 



29-N»r-1982 16:23:04 

TOPS 


0 


TEST CODE SECTION 

29-Nar-1982 16:21:03 

PA: < 



BP 

8$ 


7577 


7$: 

NOV 

#15,R1 

; *, NIB. PAT 

7590 


8S: 

CLP 

R5 

; LD.CNT 

7593 


9$: 

NOV 

R5.-CSP) 

; LD.CNT.* 

7594 



NOV 

RI.-(SP) 

; NIB. PAT.* 




JSR 

PC,LD.LNG.WRD 





CNP 

<SP)+,(SP)+ 





INC 

R5 

; LD.CNT 

7593 



CNP 

R5,#1 1 

; LD.CNT.* 




BLE 

9$ 



136120 


NOV 

D1.TENP.9NL.REG+170 

• 

0 

7594 

136122 


NOV 

D2.TENP,BNL.REG*200 



136074 


NOV 

E2.TENP.8NL.REG+160 



135706 


NOV 

#61 .8NL.REG 


7597 



CLP 

R3 

; WRT.CNT 

7599 


10$: 

NOV 

#1 ,P4 

; *.$$TNP2 

7601 


11$: 

BEO 

14$ 





NOV 

L$DLY,R5 

; *,$$TNP1 




BEO 

13$ 




12$: 

CLP 

12(SP) 

; $$TNP 




DEC 

R5 

; $$TNP1 




BNE 

12$ 




13$: 

DEC 

R4 

; $$TNP2 




BP 

11$ 



135766 

14$: 

BISB 

#20,BNL.REG+120 


7602 



INC 

R3 

; WRT.CNT 

7599 



CNP 

R3,#177 

; WRT.CNT.* 




BLE 

10$ 



135670 


BISS 

#40.BNL.REG*40 


7603 



NOV 

NL.DUT.R5 





BIC 

#177776,R5 



135652 


BICB 

#7,aNL.REG+40 





BISB 

R5.BW..RE6+40 



135720 


BISB 

#l6,BNL.REG*120 

• 

• 

7606 



NOV 

R2.9NL.REG+30 

; SECTOR.NO,* 

7607 

135576 


NOV 

#-400,aNL.REG+10 

• 

7608 

135600 


NOV 

flO.BUF .BNL.REG+20 

0 

7609 

135552 


NOV 

#71 .BNL.REG 

• 

0 

7610 



NOV 

#1.R4 

; *,$$TNP2 

7611 


15$: 

BEO 

18i 





NOV 

L$DLY.R5 

; *,$$TNP1 




BEO 

17$ 




16$: 

CLR 

12(SP) 

; $$TNP 




DEC 

R5 

; $$TNP1 




BNE 

16$ 




17$: 

DEC 

R4 

; $$TNP2 




BP 

15$ 



000006 

18$: 

NOV 

#-1.6(SP> 

; *,WRD.CNT 

7612 


19$: 

INC 

6<SP> 

; WRD.CNT 

7616 

135440 


NOV 

3NL. REG+230. PD. TENP 

0 

7617 

135614 


BISB 

#20.3NL.REG*120 


7618 



NOV 

#1,R4 

; *.$STNP2 

7619 


UNLADO NL-11 LOGIC TEST 
ST29 TEST CODE SECTION 


C 12 
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SEQ 0351 


16446 




;NL4A0 




16447 




• 

# 


TEST CODE SECTION 


16448 

16449 057714 

001411 



20$: 

BEQ 

23$ 

; *,$$THP1 

16450 057716 

016705 

122174 



NOV 

L$DLY.R5 

16451 057722 

001404 




BEQ 

22$ 

; $$THP 

16452 057724 

005066 

000012 


21$: 

CLR 

12ISP) 

16453 057730 

005305 




DEC 

R5 

; $$THP1 

16454 057732 

001374 




BNE 

21$ 

; $$T NP2 

16455 057734 

005304 



22$: 

DEC 

R4 

16456 057736 

000766 




BR 

20$ 


16457 057740 

017767 

135630 

133426 

23$: 

NOV 

iNL.REG+170,D1.TEHP 


16458 057746 

017767 

135632 

133422 


NOV 

iNL.REG+200,D2.TEHP 


16459 057754 

017767 

135604 

133416 


NOV 

SNL.KEG+160,E2. TEHP 


16460 057762 

012716 

177777 



NOV 

#-1.(SP) 

(SP) 

; *,NIB.PTR 

16461 057766 

005216 



24$: 

INC 

; NIB.PTR 

16462 057770 

011605 




NOV 

(SP), R5 

; NIB.PTR,* 

16463 057772 

006205 




ASR 

R5 


16464 057774 

006205 




ASR 

R5 


16465 057776 

006205 




ASR 

R5 


16466 060000 

062705 

015342 



ADD 

#PD.TEHP,R5 


16467 060004 

010546 




NOV 

R5, -(SP) 


16468 060006 

016646 

000002 



NOV 

2(SP),-(SP) 

#1777?0,(SP) 

#1.-(SP) 

; NIB.PTR,* 

16469 060012 

042716 

177770 



BIC 


16470 060016 

012746 

000001 



NOV 


16471 060022 

005046 




CLR 

-(SP) 


16472 060024 

004767 

123604 



JSR 

PC.8LSGT2 
#10, SP 


16473 060030 

062706 

000010 



ADD 


16474 060034 

005700 




TST 

RO 


16475 060036 

001011 




BNE 

25$ 


16476 060040 

011646 




NOV 

(SP), -(SP) 

; NIB.PTR,* 

16477 060042 

010146 




NOV 

R1,-(SP> 

; NIB. PAT,* 

16478 060044 

012746 

000016 



NOV 

#16, -(SP) 


16479 060050 

060616 




ADD 

SP,(SP> 

; ERR.FLG,* 

16480 060052 

004767 

140320 



JSR 

PC,TST.LNG.WRD 


16481 060056 

062706 

000006 



ADD 

#6,SP 


16482 060062 

016605 

000010 


25$: 

NOV 

10(SP) ,R5 

; ERR.ELG.* 

16483 060066 

032705 

000001 



BIT 

#1 ,R5 

26i 


16484 060072 

001012 




BNE 


16485 060074 

021627 

000011 



CHP 

(SP) .#11 

; NIB.PTR,* 

16486 060100 

001332 




BNE 

24$ 


16487 060102 

032705 

000001 



BIT 

#1 ,R5 

26 i 

0 

16488 060106 

001004 




BNE 


16489 060110 

026627 

000006 

000177 


CHP 

6(SP) ,#177 

; WRD.CNT,* 

16490 060116 

001264 




BNE 

19$ 


16491 060120 

005004 



26$: 

CLR 

R4 

0 

16492 060122 

16493 060130 

026627 

001002 

000002 

000003 


CNP 

BNE 

2(SP),#3 

27$ 

; PASS.CNT,* 

16494 060132 

005204 




INC 

R4 


16495 060134 

000403 




BR 

28$ 


16496 060136 

16497 060142 

020527 

001030 

000001 


27$: 

CNP 

BNE 

R5,#1 

3ii 


16498 060144 

006004 



28$: 

ROR 

R4 

0 

16499 060146 

103010 




8CC 

29$ 


16500 060150 

005705 




TST 

R5 



29-Nar-1982 16:23:04 
29-Har-1982 16:21:03 


TOPS 

PA:< 


7621 

7625 

7627 


7629 


7632 

7635 

7630 

7640 


CZMLADO ML-11 LOGIC TEST 
$T29 TEST CODE SECTION 


0 12 

MACRO Mil 13 30-MAR-82 11:18 PAGE 369 


SEO 0352 


16502 




16503 




16504 




16505 060152 

001006 



16506 060154 

012766 

000001 

000004 

16507 060162 

010267 

133620 


16508 060166 

000405 



16509 060170 

066702 

135152 


16510 060174 

012766 

177777 

000002 

16511 060202 

026627 

000004 

000001 

16512 060210 

001410 



16513 060212 

016705 

133602 


16514 060216 

066705 

133562 


16515 060222 

020205 



16516 060224 

001402 



16517 06022o 

000167 

177040 


16518 060232 

104467 



16519 060234 

006000 



16520 060236 

103002 



16521 060240 

000167 

177010 


16522 060244 

016705 

133550 


16523 060250 

066705 

133530 


16524 060254 

020205 



16525 060256 

001026 



16526 060260 

104455 



16527 060262 

000117 



16528 060264 

013114 



16529 060266 

026302 



16530 060270 

012746 

012360 


16531 060274 

012746 

012006 


16532 060300 

012746 

010664 


16533 060304 

012746 

010256 


16534 060310 

012746 

000004 


16535 060314 

010600 



16536 060316 

104414 



16537 060320 

016700 

135504 


16538 060324 

104451 



16539 060326 

104444 



16540 060330 

062706 

000012 


16541 060334 

062706 

000014 


16542 060340 

000207 



16543 




16544 




16545 




16550 




16551 




16555 




16556 





; ML 4 AO 

0 


TEST CODE SECTION 


BNE 

29$ 


MOV 

#1.4(SP) 


MOV 

R2.GOOD.BLK 


BR 

30$ 

29 $: 

ADD 

RAS.INC.R2 

MOV 

#-1 ,2(SP) 

30 $: 

CMP 

4CSP) ,#1 


BEQ 

32$ 


MOV 

LST.ARR.R5 


ADD 

ARR.INC.R5 


CMP 

R2.R5 

31$: 

BEQ 

32§ 


JMP 

2$ 

32$: 

TRAP 

67 


ROR 

RO 


BHJS 

33$ 


JMP 

1$ 

33$: 

MOV 

LST.ARR.R5 


ADD 

ARR.INC.R5 


CMP 

R2.R5 


BNE 

34§ 


TRAP 

55 


.WORD 

117 


.WORD 

INTER 


.WORD 

DUMPER 


MOV 

#FNC. 15. -(SP) 


MOV 

#PHR.10.-(SP) 


MOV 

#URD.14,-(SP) 

#THR.FNT,-(SP) 


MOV 


NOV 

#4,-(SP) 


MOV 

SP.RO 


TRAP 

14 


MOV 

ML.LUN.RO 


TRAP 

51 


TRAP 

44 


ADD 

#12.SP 

34$: 

ADD 

#14, SP 


RTS 

PC 


; Routine Size: 287 words 
; Maximum stack depth per invocation: 

.S8TTL T29 TEST CODE SECTION 


♦.DONE.fLG 

SECTOR.NO.* 

*, SECTOR. NO 

•.PASS.CNT 

DONE.TLG,* 


; SECTOR.NO.* 


SEC TOR. NO.* 


SP.* 


17 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 



7648 

7649 
7656 


7664 

7667 

7668 


7669 


7666 

7500 


CZMLADO ML-11 LOGIC TEST MACRO H1 113 30-MAR-82 11:18 PAGE §70* 

T 29 TEST CODE SECTION SEQ 0353 


‘6558 



;*L4AD 


29-Mar- 1982 

16:23:04 

TOPS 

16559 



• 

TEST CODE SECTION 

29-Nar-1982 

16:21:03 

PA:< 

16560 








16564 060342 



T29: : 





16565 060342 

004767 

176676 

IS: JSft 

PC.ST29 



7671 

16566 060346 

104466 


TRAP 

66 




16567 060350 

006000 


ROR 

RO 




16568 060352 

103773 


BIO 

IS 




16569 060354 

000207 


RTS 

PC 




16570 








16571 



; Routine Size: 

6 words 




16572 



; Maximum stack depth per invocation: 0 words 




16577 








16578 








16579 ; 

7674 

!<8LF/PAGE> 







CZRLADO HL-11 LOGIC TEST 
T29 TEST CODE SECTION 
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16581 

16582 

16583 

16584 

16585 

16586 

16587 

16588 

16589 

16590 

16591 

16592 

16593 

16594 

16595 

16596 

16597 

16598 

16599 

16600 
16601 
16602 

16603 

16604 

16605 

16606 

16607 

16608 

16609 

16610 
16611 
16612 

16613 

16614 

16615 

16616 

16617 

16618 

16619 

16620 
16621 
16622 

16623 

16624 

16625 

16626 

16627 

16628 

16629 

16630 

16631 

16632 

16633 

16634 

16635 


RL4AD 


7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 

7690 

7691 

7692 

7693 

7694 

7695 

7696 

7697 

7698 

7699 

7700 

7701 

7702 

7703 

7704 

7705 

7706 

7707 

7708 

7709 

7710 

7711 

7712 

7713 

7714 

7715 

7716 

7717 

7718 

7719 

7720 

7721 

7722 

7723 

7724 

7725 

7726 


TEST CODE SECTION 


BGNTST; 


TEST NUNBER: TST 30 

TEST NAME ; REFRESH TIRING TEST 

TEST DESCRIPTION: 

TEST THE RERORY ARRAY RODULES 
REFRESH TIRING AND CONTROL LOGIC 
REG BY: 

1. WRITING ALL ONES INTO THE 
GOOD BLOCK. 

2. DELAY FOR 2 RS 

3. READ THE GOOD 8L0CK FOR ONES. 
KEEP COUNT OF BAD NIBBLES 
ENCOUNTERED 

4. ALLOW A BAD NIBBLE THRESHOLD 
OF 20 BAD NIBBLES OUT OF THE 
1280 NIBBLES TESTED. 

5. IF THRESHOLD IS EXCEEDED THEN 
REPORT ERROR AND DROP THE UNIT 

IRPLICIT INPUTS: 

PD TERP: 

a Sit vector of i 6 bits where 

THE READ PROR DATA IS STORED 
AND ACCESSED FROR. 


local 

TST.PAT. 

ERR CNT. 
ERRlFLG; 

BGNSUB; 
CLR.RBUS; 
ERRlCNT = ZERO; 
TST PAT = ONES; 
RLDT = .TST.PAT 
RLD2 = .TST.PAT 
RLE 2 = .TSrpAT 


SEO 0354 


29-Rar 1982 16:23:04 
29-Rar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>RL4AD.8LI .4 (82) 


I TEST PATTERN 
! ERROR COUNT 
! ERROR FLAG 


!LOAD DATA DIAG REGS WITH TST PAT 



UMLADO 
T29 TEST 

16637 

16638 

16639 

16640 

16641 

16642 

16643 

16644 

16645 

16646 

16647 

16648 

16649 

16650 

16651 

16652 

16653 

16654 

16655 

16656 

16657 

16658 

16659 

16660 
16661 
16662 

16663 

16664 

16665 

16666 

16667 

16668 

16669 

16670 

16671 

16672 

16673 

16674 

16675 

16676 

16677 

16678 

16679 

16680 
16681 
16682 

16683 

16684 

16685 

16689 

16690 


ML-11 LOGIC TEST 
CODE SECTION 


MACRO Nil 13 30-MAA-82 11:18 PAGE 




SEQ 0355 


ML4AD 


7727 

7728 

7729 

7730 

7731 

7732 

7733 

7734 

7735 

7736 

7737 

7738 

7739 

7740 

7741 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 

7772 


TEST CODE SECTION 

DAT DM.XFER O; 

MLCSl = write; 

incr WRD.CNT from 0 to 127 do 
begin 

DELAY (ONE US); 

DAT.CLK = ONE; 
end; 

CLR.MBUS; 

DAT DN_XF ER (); 

MLCSl = read; 

DELAY (TWO.TH.US); 

incr WRD CNT from 0 to 127 do 
begin 

PD TEMP - .MLPD; 

DAT CLK = ONE; 

DELXY (ONE .US); 

RD.LNG.WRD; 

incr NI6.PTR from 0 to 9 do 
begin 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA: <N£ALE>ML4AD.BLI .4 (82) 


2 SET UP A DATA DJAG MODE XFERR 
2 DO A WRITE FUNCTION 

! WRITE BLOCK WITH TST PAT 


2 SET UP A DATA DIAG MODE XFERR 
2 DO A READ FUNCTION 
2 DELAY FOR 2 MS 


READ THE BLOCK 


•GET THE PROM DATA 
2 CLOCK DATA WORD INTO DIAG REG 

2 READ THE DIAG REG 

•LOOK AT 10 NIBBLES 


if .PD.TEMP C.NIB.PTRJ IS.NOT.SET then TST.LNG.WRD (.NIB.PTR, .TST.PAT , ERR.FLG); 

2 FIND GOOD NIBBLES AND COMPARE THEM 

if .ERR.FLG IS.SET then ERR.CNT = .ERR.CNT ♦ 1; 2 INCREMENT ERROR COUNT IF ERR.FLG IS SET 
end; 


end; 

ENDSUB; 


if .ERR.CNT gtr 20 
then 

begin 

ERRDF (80, ASYNC, DUMPER); , _ _ ^ 

PRINTS (F IV FMT, WRD.22, PHR.4, WRD.12, FNC.16, WRD.48); 
DODU (.ML.LON); 

DOCLN; 

end; 


2 ALLOW 20 NIBBLES TO FAIL 
! ERROR IF GTR 20 


ENDTST; 


.S8TTL ST30 TEST CODE SECTION 



! CZHIADO Mt-11 LOGIC TEST 
IT 30 TEST CODE SECTION 


AACRO HU 13 3Q-AAR-82 11:18 PAGE 373 


1e>698 

16699 

16700 

16701 

16702 

16703 

16704 

16705 

16706 

16707 

16708 

16709 

16710 

16711 

16712 

16713 

16714 

16715 

16716 

16717 

16718 

16719 

16720 

16721 

16722 

16723 

16724 

16725 

16726 

16727 

16728 

16729 

16730 

16731 

16732 

16733 

16734 

16735 

16736 

16737 

16738 

16739 

16740 

16741 

16742 

16743 

16744 

16745 

16746 

16747 


060356 

060362 

060364 

060366 

060374 

060400 

060404 

060412 

060416 

060420 

060424 

060430 

060434 

060440 

060444 

060452 

060454 

060460 

060462 

060466 

060470 

060474 

060476 

060500 

060502 

060504 

060512 

060514 

060520 

060522 

060530 

060534 

060540 

060546 

060552 

060556 

060564 

060570 

060572 

060576 

060600 

060604 

060606 

060610 

060612 

060614 

060616 

060624 

060632 

060636 


004167 

024646 

104402 

152777 

016703 

042703 

142777 

150377 

005005 

012704 

010477 

010477 

010477 

004767 

012777 

005001 

012702 

001411 

016703 

001404 

005066 

005303 

001374 

005302 

000766 

152777 

005201 

020127 

003755 

152777 

016703 

042703 

142777 

150377 

004767 

012777 

012702 

001411 

016703 

001404 

005066 

005303 

001374 

005302 

000766 

005001 

017767 

152777 

012702 

001411 


135050 


135032 


124230 


000040 

135432 

177770 

000007 

135026 

177777 

135144 

135150 

135124 

135746 

000061 

000001 

121430 

000002 


000020 135012 6$: 


134732 


000177 

000040 

135276 

177770 

000007 

134672 

135634 

000071 

003720 

121320 

000002 


135012 

000020 

000001 


134714 


134676 


134620 


10 $: 

134516 11$: 
134672 


JSR R1 ,$SAVE5 

CAP -(SP).-(SP) 

TRAP 2 

BIS8 #40,aAL.REG*40 

AOV Al.DUT.R3 
BIC #177770. R3 

BICB #7,aAL.REG*40 

BISS R3.am.REG+40 

CLR R5 

AOV #- 1.R4 

AOV R4.9AL.REG+170 

AOV R4.9RL.REG+200 

NOV R4,aAL.REG*160 

JSR PC.DAT.DA.XFER 

NOV #61, am. REG 

CLR R1 

AOV #1 ,R2 

8EG 6$ 

NOV LSDLY.R3 

BEO 5$ 

CLR 2(SP) 

DEC R3 

BNE 4$ 

DEC R2 

SR 3$ 

8IS6 #20, am. REG* 120 

INC R1 

CAP R1,#177 

BLE 2$ 

81 SB #40,aAL.REG+40 

AOV AL.DUT.R3 

BIC #1 77770, R3 

61 CB #7,aAL.REG+40 

81 SB R3,am.REG*40 

JSR PC.DAT.DA.XFER 

AOV #7i .aAL.REG 

AOV #3720, R2 

8EQ 10$ 

AOV L$DLY,R3 

BEO 9$ 

CLR 2(SP) 

DEC R3 

BNE 8$ 

DEC R2 

BR 7$ 

CLR R1 

AOV aAL.REG*230»PD.TEAP 

81 SB #20. aAL.REG* 120 

AOV #1 ,R2 

BEO 15i 


SEO 0356 
7673 



CZRLAOC NL-11 LOGIC TEST 
$T30 TEST CODE SECTION 


SEO 0357 


NACRO Ml 113 


30-MAR-82 11:18 


PAGE W* 


16749 

16750 

16751 

16752 

16753 

16754 

16755 

16756 

16757 

16758 

16759 

16760 

16761 

16762 

16763 

16764 

16765 

16766 

16767 

16768 

16769 

16770 

16771 

16772 

16773 

16774 

16775 

16776 

16777 

16778 

16779 

16780 

16781 

16782 

16783 

16784 

16785 

16786 

16787 

16788 

16789 

16790 

16791 
1679, 
1679 

16794 

16795 

16796 

16797 

16798 

16799 

16800 
16801 
16802 
16803 


060640 

060644 


06065t 

060654 

060656 

060660 

060662 

060670 

060676 

060704 

060706 

060710 

060712 

060714 

060716 

060722 

060724 

060726 

060732 

060736 

060740 

060744 

060750 

060752 

060754 

060756 

060760 

060764 

060766 

060772 

060776 

061002 

061004 

061006 

061010 

061014 

061016 

061020 

061024 

061026 

061030 

061032 

061034 

061040 

061044 

061046 

061050 

061052 

061054 

061056 

061062 


016703 

001404 

888 

001374 

005302 

000766 

017767 

017767 

017767 

005002 

010203 

006203 

006203 

006203 

062703 

010346 

010246 

042716 

012746 

005046 

004767 

062706 

005700 

001011 

010246 

010446 

012746 

060616 

004767 

062706 

021627 

001001 

005205 

005202 

020227 

003734 

005201 

020127 

003674 

104467 

006000 

103002 

000167 

020527 

003432 

104455 

000120 

012706 

026302 

012746 

012746 


.NL4AD 

; TEST CODE SECTION 


121252 



NOV 

LSDLY.R3 

; *.$$TNP1 



BEQ 

1 4$ 

; $$TNP 

000002 


13$: 

CIA 

2(SP> 



DEC 

A3 

; $$TNP1 




BNE 

13$ 

; $$TNP2 



14$: 

DEC 

A 2 




BA 

12$ 


134706 

132504 

15$: 

NOV 

BNL.REG*170,D1 . TENP 
BNL.REG*200,D2.TENP 


134710 

132500 


NOV 


134662 

132474 


NOV 

8NL.REGO60.E2.TEMP 

; N1B.PTA 



CLA 

A2 



16$: 

NOV 

A2.R3 

; NIB.PTA,* 




ASA 

R5 





ASA 

A3 





ASA 

A3 


015342 



ADD 

#PD.TENP,R3 




NOV 

R3.-CSP) 

; NIB.PTA.* 




NOV 

R2.-(SP) 

1 77770 



B1C 

#1?7770,(SP> 

fl.-(SP) 


000001 



NOV 




CLA 

-(SP) 


122670 



JSA 

PC.BLSGT2 
#10. SP 


000010 



ADD 




TST 

AO 





BNE 

17$ 





NOV 

A2,-(SP) 

; NIB.PTA,* 




NOV 

R4,-(SP> 

; TST. PAT.* 

000006 



NOV 

#6.-<SP) 

; ERA.fLG.* 



ADD 

SP.(SP) 

137404 



JSA 

PC. TST. LAG. WAD 


000006 



ADD 

#6.SP 

; ERA.fLG,* 

000001 


17$: 

CNP 

<SP).#1 



BNE 

18$ 

; EAA.CNT 




INC 

A5 



18$: 

INC 

A 2 

; NIB.PTA 

00001 1 


CNP 

BLE 

A2.#11 

16$ 

; NIB.PTA.* 




INC 

R1 

; WRD.CNT 

000177 



CNP 

A1.A177 

; WRD.CNT.* 



BLE 

ni 





TAAP 

67 

• 




AOA 

RO 





BHIS 

19$ 


177324 



JNP 

1$ 

; ERR.CNT,* 

000024 


19$: 

CNP 

R5.#24 

20i 



BLE 





TAAP 

55 

0 




.WOAD 

120 





.WOAD 

ASYNC 





.WOAD 

DUMPER 


011250 



NOV 

#WRD.48,-(SP) 

0 

012372 



NOV 

#FNC.16.-(SP) 



29-Mir-1982 16:23:04 TOPS 

29-Har-1982 16:21:03 PA:< 


7748 

7751 


7755 

7748 

7741 

7759 

7763 

7766 

7767 


J 



061066 

012746 

010650 

MOV 

061072 

012746 

011676 

MOV 

061076 

012746 

010752 

MOV 

061102 

012746 

010304 

MOV 

061106 

012746 

000006 

MOV 

061112 

010600 


MOV 

061114 

104414 


TRAP 

061116 

016700 

134706 

MOV 

061122 

104451 


TRAP 

061124 

104444 


TRAP 

061126 

062706 

000016 

ADD 

061132 

022626 


20S: CMP 

061134 

00*1207 


RTS 


CZMLADO ML -11 LOGIC TEST 
ST 30 TEST COOE SECTION 


16805 

16806 

16807 

16808 

16809 

16810 
16811 
16812 

16813 

16814 

16815 

16816 

16817 

16818 

16819 

16820 
16821 
16822 
16823 
16828 
16829 

16833 

16834 

16838 

16839 

16840 

16841 

16842 

16843 

16844 

16845 

16846 

16851 

16852 

16853 


MACRO Nil 13 30-MAR-82 11:18 PAGE 


irl 2 


SEO 0358 


, ML 4 AD 


TEST COOE SECTION 

#WRD.12,-(SP) 

#PHR.4.-(SP> 

*WRD.2$.-(SP> 

fFIV.TMT.-CSP) 

#6,-<SP> 

SP.RO 

14 

ML.LUN.RO 

51 

44 

#16.SP 

(SP)MSP)* 

PC 


Routine Size: 184 words 
MaxlJtum stack depth per invocation: 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS 

PA:< 


; SP,* 


7768 


7765 

7673 


15 words 


061136 

061136 

061142 

061144 

061146 

061150 


004767 177214 
104466 
006000 
103773 
0*1207 


7773 !<8LT/PAGE> 


T30:; 

IS: 


.S8TTL T30 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.ST30 

66 

RO 

1 $ 

PC 


7770 


Routine Size: 6 words 

Maxi'iaum stack depth per invocation: 


0 words 


L_ 


C2HLADQ *1-11 LOGIC TEST 
T5Q TEST CODE SECTION 


K 12 

MACRO Ml 113 30-MAR-82 11:18 PAGE 376 


SEQ 0359 


16855 

16856 

16857 

16858 

16859 

16860 
16861 
16862 

16863 

16864 

16865 

16866 

16867 

16868 

16869 

16870 

16871 

16872 

16873 

16874 

16875 

16876 

16877 

16878 

16879 

16880 
16881 
16882 

16883 

16884 

16885 

16886 

16887 

16888 

16889 

16890 

16891 

16892 

16893 

16894 

16895 

16896 

16897 

16898 

16899 

16900 

16901 

16902 

16903 

16904 

16905 

16906 

16907 

16908 

16909 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23.04 
29-Mar-1982 16:21:03 


T0PS-20 BUss-16 V2T212) 

PA : <NE ALE >ML4AD .8L 1 . 4 (83) 


7774 

7775 

7776 

7777 

7778 

7779 

7780 

7781 

7782 

7783 

7784 

7785 

7786 

7787 

7788 

7789 

7790 

7791 

7792 

7793 

7794 

7795 

7796 

7797 

7798 

7799 

7800 

7801 

7802 

7803 

7804 

7805 

7806 

7807 

7808 

7809 

7810 

7811 

7812 

7813 

7814 

7815 

7816 

7817 

7818 

7819 

7820 

7821 

7822 

7823 

7824 

7825 


BGNTST; 


*TEST NUMBER: 
TEST NAME: 


TST 31 

ADDRESS COUNTER TEST 


TEST DESCRIPTION: 

TEST THE ABILITY OF THE ADDRESS 
COUNTER TO SUCCESSFULLY COUNT 
FROM BLOCK ZERO THROUGH THE 
DEVICES LAST BLOCK BY: 

1. WRITING THE LAST BLOCK WITH ONES PATTERN. 

2. STARTING AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK UP TO THE 
LAST BLOCK ADRS MINUS ONE. 

READ THE LAST BLOCK FOR ONES AND ERROR IF ZEROES. 

3. STARTING AT BLOCK ZERO WRITF ZEROES INTO ALL BLOCK THROUGH THE LAST 
BLOCK. 

READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES. 

IMPLICIT INPUTS: 

PD TEMP: 

A 8ITVECT0R OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 


local 

ERR.CNT, 

ERR FLG, 

END CNT, 

BG.PAT; 

BGNSU8; 

CLR.MBUS; 

BG PAT = ONES; 

ML51 = .BG.PAT; 

MLD2 = .BG.PAT; 

HLE2 = .86 PAT; 

DAT DM = ORE; 

LAST.8LK.XFER (>; 

MLCST = write; 

incr WRD.CNT from 0 to 127 do 
begin 

DELAY (ONE .US); 

DAT.CLK = ONE; 
end; 


! ERROR THRESHOLD COUNT 
•ERROR FLG 

•ENDING SECTOR NUMBER 
•BACKGROUND PATTERN 


! BACKGROUND PAT OF ONES 
!LOAD DATA DIAGS WITH BG PAT 


•SET DATA DIAG MODE 
! SET UP A LAST BLOCK XFERR 
•DO A WRITE FUNCTION 

! WRITE THE LAST BLOCK WITH THE BG PATTERN 



CZHLADO Mt-1 1 LOGIC .c'S'< 
T30 TEST CODE SECTION 


MACRO Nil 13 30-MAR-82 11:18 PAGE 




SEO 0360 


16911 

16912 

16913 
1691 A 

16915 

16916 

16917 

16918 

16919 

16920 

16921 

16922 

16923 

16924 

16925 

16926 

16927 

16928 

16929 

16930 

16931 

16932 

16933 

16934 

16935 

16936 

16937 

16938 

16939 

16940 

16941 

16942 

16943 

16944 

16945 

16946 

16947 

16948 

16949 

16950 

16951 

16952 

16953 

16954 

16955 

16956 

16957 

16958 

16959 

16960 

16961 

16962 

16963 

16964 

16965 


; ML 4 AO 


7826 

7827 

7828 

7829 

7830 

7831 

7832 

7833 

7834 

7835 

7836 

7837 

7838 

7839 

7840 

7841 

7842 

7843 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

7874 

7875 

7876 

7877 


TEST CODE SECTION 


CLR MBUS; 

0AT~DM = ONE; 

LAST BLK.XFER O; 

MLCST = read; 

DELAY CONE US); 

ERR.CNT = ZERO; 

incr UD CNT from 0 to 127 do 
begTn 

PD TEMP = .NLPD; 

DAT CLK = ONE; 

DEL*Y (ONE.US); 

RD.LNG.WRD; 

incr NIB.PTR from 0 to 9 do 
begin 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


T0PS-20 Bliss-16 V2C212) 
PA:<NEALE>MC4AD.BLI .4 (83) 


if .PD.TEMP C.N1B.PTRJ IS.NOT.SET then 

if .ERR.FLG IS.SET then ERR.CNT = .ERR. 
end; 

end; 

if .ERR.CNT gtr 10 
then 

Er8df (81. INTER. DUMPER); , 

PRINTS (THR FNT. PHR 4. WRD 13, FNC.22); 
PRINTS (TWOlFMT. FNC.13. WRU.56); 

EXIT TST; 
end; 

END CNT = .LSTJBLK - 1; 

MLDT = ZEROES; 

MLD 2 = ZEROES; 

MLE2 = ZEROES; 

incr TWICE from 0 to 1 do 
begin 
CLR.MBUS; 

ERRlCNT = ZERO; 

DAT"DM = ONE; 

FIRST BLK.XrER (); 

MLCS1 = write; 

i 

JVER CZMLAD CHANGED TEST TO UNSIGNED TEST 


I SET DATA DIAG NODE 
!S£T UP A LAST BLOCK XFERR 
IDO A READ FUNCTION 

•CLEAR ERROR COUNT THRESHOLD 

IREAD THE LAST BLOCK FOR BG PATTERN 

I GET PROM DATA 

.•CLOCK OUT THE DATA WORD 

IREAD THE DATA WORD 

I LOOK AT 10 NIBBLES 

TST.LNG.WRD (.NIB.PTR, .BG.PAT, Er.R.FLG); 

•FIND GOOD NIBBLES AND COMPARE THEM 
CNT ♦ 1; ! INC ERROR COUNT IF ERROR DETECTED 


IIS ERROR THRESHOLD EXCEEDED 
•ERROR IF EXCEEDED 


.'END AT LAST BLOCK -1 

•LOAD DATA DIAG REG WITH COMP BG PAT 


I REPEAT LOOP TWICE 


I CLEAR THE ERROR COUNT THRESHOLD 
I SET DATA DIAG MODE 
I SET UP A FIRST BLOCK XFERR 
IDO A WRITE FUNCTION 



CZMLADO ML-11 LOGIC TEST 
T30 TEST CODE SECTION 
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SEQ 0361 


16967 

16968 

16969 

16970 

16971 
T6972 

16973 

16974 

16975 

16976 

16977 

16978 

16979 

16980 

16981 

16982 

16983 

16984 

16985 

16986 

16987 

16988 

16989 

16990 

16991 

16992 

16993 

16994 

16995 

16996 

16997 

16998 

16999 

17000 

17001 

17002 

17003 

17004 

17005 

17006 

17007 

17008 

17009 

17010 

17011 

17012 

17013 

17014 

17015 

17016 

17020 

17021 


ML 4 AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (83) 


7878 ! 

7879 inc 

7880 

7881 

7882 

7883 

7884 

7885 

7886 CLR 

7887 DAT 

7888 LAS 

7889 MLC 

7890 DEL 

7891 

7892 inc 

7 893 

7894 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 

7903 

7904 

7905 

7906 

7907 

7908 

7909 

7910 

7911 

7912 if 

7913 the 

7914 

7915 

7916 

7917 

7918 

7919 END 

7920 BG 

7921 ena 

7922 

7923 ENDSUB; 

7924 ENDTST; 


incrU 8LK.CNT from 0 to .END.CNT do 

incr ADRS CNT from 0 to 127 do 
begin 

DAT.CLK = ONE; 
end; 

CLR.MBUS; 

DAT DM = ONE; 

LAST BLK.XFER (); 

MLCST = read; 

DELAY (ONE.US); 

incr WD^CNT from 0 to 127 do 
begin 

PD TEMP = .MLPD; 

DAT CLK = ONE; 

DEL^Y (ONE.US); 

RD_LNG_WRD; 

incr NIB PTR from 0 to 9 do 
begin 


.'CLOCK THE ADDRESS COUNTER UP TO END.CNT 


.'SET DATA D1AG MODE 
.'SET UP A LAST BLOCK XFERR 
! DO A READ FUNCTION 


JREAD THE LAST BLOCK FOR BG PATTERN 

JGET THE PROM DATA 
! CLOCK OUT DATA WORD 

.'READ DATA WORD 

!LOOK AT 10 NIBBLES 


if .PD.TEMP C.NIB.PTR3 IS.NOT.SET then TST.LNG.WRD C.NIB.PTR, .BG.PAT. ERR.FLG); 

•FIND GOOD NIB8LES AND COMPARE THEM 

if .ERR.FLG IS.SET then ERR.CNT = .ERR.CNT ♦ ONE; !INC ERROR COUNT IF ERROR DECTED 


if .ERR.CNT gtr 10 
then 

begin 

ERRDF (82, ASYf 


! IS ERROR COUNT THRESHOLD EXCEEDED 


ERRDF (82, ASYNC, DUMPER); 

PRINTS (THR.FMT, WRD.50, URD.51, WRD.10); 
end; 


•ERROR IF EXCEEDED 


END CNT = .END CNT ♦ 1; 
BG PAT = not .BG.PAT; 
end; 


!N0W END AT THE LAST BLOCK 
! COMPLIMENT THE BG PATTERN AND REPEAT 


SBTTL ST31 TEST CODE SECTION 


CZMLADO ML-11 LOCK TEST 
$T31 TEST CODE SECTION 
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17023 

17024 

17025 

17029 

17030 

17031 

17032 

17033 

17034 

17035 

17036 

17037 

17038 

17039 

17040 

17041 

17042 

17043 

17044 

17045 

17046 

17047 

17048 

17049 

17050 

17051 

17052 

17053 

17054 

17055 

17056 

17057 

17058 

17059 

17060 

17061 

17062 

17063 

17064 

17065 

17066 

17067 

17068 

17069 

17070 

17071 

17072 

17073 

17074 

17075 

170# 


061152 

061156 

061162 

061164 

061172 

061176 

061202 

061210 

061214 

061220 

061224 

061230 

061234 

061242 

061246 

061254 

061256 

061262 

061264 

061270 

061272 

061276 

061300 

061302 

061304 

061306 

061314 

061316 

061322 

061324 

061332 

061336 

061342 

061350 

061354 

061362 

061366 

061374 

061400 

061402 

061406 

061410 

061414 

061416 

061420 

061422 

061424 

061426 

061430 


004167 

162706 

104402 

152777 

016705 

042705 

142777 

150577 

012701 

010177 

010177 

010177 

152777 

004767 

012777 

005002 

012703 

001411 

016704 

001404 

005066 

005304 

001374 

005303 

000766 

152777 

005202 

020227 

003755 

152777 

016705 

042705 

142777 

150577 

152777 

004767 

012777 

012703 

001411 

016704 

001404 

005066 

005304 

001374 

005303 

000766 

005016 

005002 

017767 


; ML 4 AD 


ST31 : 


123434 

000010 

000040 134252 

134634 

177770 

000007 134234 

134230 

177777 

134350 

134354 

134330 

000010 134262 
137076 

000061 134130 

000001 
120626 
000006 


000020 134210 6$: 
000177 

000040 134112 

134474 

177770 

000007 134074 
134070 

000010 134142 
136756 

000071 134010 

000001 

7$: 

120510 

000006 8$: 


134200 133704 11$: 


TEST CODE SECTION 

JSR R1.$SAVE5 

SUB #10 ,SP 

TRAP 2 

BISS #40.ani.REG*40 

MOV ML.DUT.R5 

BIC #1 77770. R5 

BICS #7.aML.REG+40 

BISB R5.1ML.REG+40 

MG* #-1.R1 

NOV R1,8ML.REG*170 

MOV R1.8ML.REG+200 

MOV R1.BML.REG* 160 

BISB #10,3ML.REG+120 

JSR PC.LAST.8LK.XFER 

MOV #61 .BML.REG 

CLR R2 

MOV #1 ,R3 

BEQ 6$ 

MOV LSDLY.R4 

BEQ 5$ 

CLR 6(SP) 

DEC R4 

BNE 4$ 

DEC R3 

BR 3$ 

BISB #20.3ML.REG+120 

INC R2 

CMP R2.#177 

BLE 2$ 

BISB #40.8ML.REG+40 

MOV ML.DUT.R5 

BIC #177770,R5 

BICB #7,8NL.REG+40 

BISB R5.8ML.REG+40 

BISB #10,iML.REG+120 

JSR PC.LAST.BLK.XFER 

MOV #7i .8ML.REG 

MOV #1.R3 

BEQ 10$ 

MOV LSDLY.R4 

BEQ 9$ 

CLR 6(SP) 

DEC R4 

BNE 8$ 

DEC R3 

BR 7$ 

CLR (SP) 

CLR R2 

MOV BML.REG+230, PD. TEMP 


SEQ 0362 



; *.BG.PAT 
; BG.PAT,* 
; BG.PAT.* 
; BG.PAT,* 


; WRD.CNT 
; *,$$TMP2 

; *,$$TMP1 


$$TMP 

$$TMP1 


; $$TMP2 


; WRD.CNT 
; WRD.CNT.* 


*,$$TMP2 

*,$$TMP1 

$$TMP 

$$TMP1 

$$TMP 2 

ERR.CNT 

WD.CNT 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS 

PA:< 


7772 

7809 

7811 


7813 

7814 

7815 

7816 

7817 

7818 

7819 
7821 
7823 


7824 
7821 

7825 


7828 

7829 

7830 


7831 


7832 

7834 


7836 


CZMLADO ML-11 LOGIC TEST 
ST 31 TEST CODE SECTION 


B 13 
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SEO 0363 


17079 

17080 

17081 

17082 

17083 

17084 

17085 

17086 

17087 

17088 

17089 

17090 

17091 

17092 

17093 

17094 

17095 

17096 

17097 

17098 

17099 

17100 

17101 

17102 

17103 

17104 

17105 

17106 

17107 

17108 

17109 

17110 

17111 

17112 

17113 

17114 

17115 

17116 

17117 

17118 

17119 

17120 

17121 

m 

17124 

17125 

17126 

17127 

17128 

17129 

17130 

17131 

17132 

17133 


.-ML4AD 


TEST CODE SECTION 


061436 

061444 

061450 

061452 

061456 

061460 

061464 

061466 

061470 

061472 

061474 

061502 

061510 

061516 

061520 

061522 

061524 

061526 

061530 

061534 

061536 

061540 

061544 

061550 

061552 

061556 

061562 

061564 

061566 

061570 

061572 

061576 

061600 

061604 

061610 

061616 

061620 

061622 

061624 

061630 

061632 

061634 

061640 

061642 

061646 

061650 

061652 

061654 

061656 

061660 

061664 

061670 


152777 

000020 

13406C 


BISS 

#20,aMl.REG*120 

’ 

012703 

000001 



MOV 

#1 R3 

; *,$$TMP2 

001411 



12S: 

BEO 

15$ 


016704 

120440 



MOV 

L$DLT,R4 

; *,$$TMP1 

001404 




BEQ 

14$ 


005066 

000006 


13$: 

CLR 

6(SP) 

; $$TMP 

005304 




DEC 

R4 

; $$TMP1 

001374 




BNE 

13$ 


005303 



14$: 

DEC 

R3 

; $$TMP2 

000766 




BR 

12$ 


017767 

134074 

131672 

15$: 

MOV 

aML.REG+170,D1.TEMP 


017767 

134076 

131666 


MOV 

aML.REG+200,D2.TEMP 


017767 

134050 

131662 


MOV 

aML. REG+1 60, E2. TEMP 


005004 




CLR 

R4 

; NIB.PTR 

010403 



16$: 

MOV 

R4.R3 

; NIB.PTR.* 

006203 




ASR 

R3 


006203 




ASR 

R3 


006203 




ASR 

R3 


062703 

015342 



ADD 

#PD. TEMP. R3 


010346 




MOV 

R3,-(SP) 


010446 




MOV 

R4.-(SP) 

; NIB.PTR,* 

042716 

177770 



BIC 

#177770. (SP) 


012746 

000001 



MOV 

#1,-(SP) 


005046 




CLR 

-(SP) 


004767 

122056 



JSR 

PC.BLSGT2 


062706 

000010 



ADD 

#10.SP 


005700 




TST 

RO 


001011 




BNE 

17$ 


010446 




MOV 

R4. -(SP) 

; NIB.PTR.* 

010146 




MOV 

Rlv -(SP) 

; BG.PAT,* 

012746 

000012 



MOV 

#12. -(SP) 


060616 




ADD 

SP.(SP> 

; ERR.FLG,* 

004767 

136572 



JSR 

PC.TST.LNG.URD 


062706 

000006 



ADD 

#6,SP 


026627 

000004 

000001 

17$: 

CMP 

4(SP) ,#1 

; ERR.FLG,* 

001001 




BNE 

18$ 


005216 




INC 

(SP) 

; ERR.CNT 

005204 



18$: 

INC 

R4 

; NIB.PTR 

020427 

000011 



CMP 

R4.#11 

; NIB.PTR,* 

003733 




BLE 

164 


005202 




INC 

R2 

; UD.CNT 

020227 

000177 



CMP 

R2,#1 77 

; UD.CNT.* 

003673 




BLE 

111 


021627 

000012 



CMP 

(SP) ,#12 

; ERR.CNT,* 

003437 




BLE 

19$ 


104455 




TRAP 

55 

# 

000121 




.WORD 

121 


013114 




.WORD 

INTER 


026302 




.WORD 

DUMPER 


012746 

012452 



MOV 

#FNC.22.-(SP) 

0 

012746 

010660 



MOV 

#URD.13,-(SP> 


012746 

011676 



MOV 

#PHR.4,-(SP> 



29-M«r-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


7837 

7838 


7841 

7844 


7848 

7841 

7834 

7854 

7857 

7858 


CZNLADO NL-11 LOGIC TEST 
ST 31 TEST CODE SECTION 
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17135 

17136 

17137 

17138 

17139 

17140 

17141 

17142 

17143 

17144 

17145 

17146 

17147 

17148 

17149 

17150 

17151 

17152 

17153 

17154 

17155 

17156 

17157 

17158 

17159 

17160 

17161 

17162 

17163 

17164 

17165 

17166 

17167 

17168 

17169 

17170 

17171 

17172 

17173 

17174 

17175 

17176 

17177 

17178 

17179 

17180 

17181 

m 

17184 

17185 

17186 

17187 

17188 

17189 


; ML 4 AD 


061674 

061700 

061704 

061706 

061710 

061714 

061720 

061724 

061730 

061732 

061734 

061736 

061742 

061746 

061754 

061760 

061764 

061770 

061774 

061776 

062004 

062010 

062014 

062022 

062026 

062030 

062036 

062042 

062050 

062052 

062054 

062056 

062064 

062066 

062072 

062074 

062076 

062102 

062104 

062112 

062116 

062122 

062130 

062134 

062142 

062146 

062154 

062160 


062166 

062170 

062174 


012746 

012746 

010600 

104414 

012716 

012746 

012746 

012746 

010600 

104414 

104463 

062706 

000167 

016766 

005366 

005077 

005077 

005077 

005005 

152777 

016704 

042704 

142777 

150477 

005016 

152777 

004767 

012777 

005003 

000411 

005004 

152777 

005204 

020427 

003771 

005203 

020366 

101764 

152777 

016704 

042704 

142777 

150477 

152777 

004767 

012777 

012703 

001411 

016704 

001404 

005066 

005304 


010256 

000004 


011344 

012334 

010246 

000003 


000020 

000560 

132042 000002 19$: 
000002 
133610 
133614 
133570 

000040 133440 20$: 

134022 

177770 

000007 133422 
133416 

000010 133466 
136220 

000061 133334 


21 $: 

000020 133440 22$: 
000177 


000002 

000040 133332 

133714 

177770 

000007 133314 
133310 

000010 133362 
136176 

000071 133230 

000001 

117730 

000006 


NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

TRAP 

ADD 

JMP 

NOV 

DEC 

CLR 

CLR 

CLR 

CLR 

8 1 SB 

NOV 

BIC 

BICS 

B1SB 

CLR 

BISB 

JSR 

NOV 

CLR 

BR 

CLR 

81 SB 

INC 

CNP 

BLE 

INC 

CNP 

BL03 

BISB 

NOV 

BIC 

BICB 

BISB 

BISB 

JSR 

NOV 

NOV 

BEQ 

NOV 

BEQ 

CLR 

DEC 


TEST CODE SECTION 

#THR.FNT.“(SP) 

#4,-(SP) 

SP, RO 
14 

#URD.56, (SP) 

#FNC. 13, “(SP) 

#TWO.FNT,-(SP) 

#3,“<SP> 

SP,RO 

14 

63 

#20, SP 
38$ 

LST.BLK,2(SP) 

2(SP) 

8ML.RE6+170 

aML.REG+200 

aNL.REG+160 

R5 

#40,8NL.REG+40 

NL.DUT.R4 

#1 77776, R4 

#7,iHL.REG*40 

R4,8ML.REG*40 

(SP) 

#10,9NL.REG+120 
PC. FIRST. 8LK.XFER 
#61, BNl. REG 
R3 
23$ 

R4 

#20,3ML.REG+120 

R4 

R4.#177 

22i 

R3 

R3,2(SP) 

21 $ 

#40,dML.REG+40 

NL.DUT.R4 

#1 77776, R4 

#7,3NL.REG*40 

R4.8NL.REG+40 

#l6,8ML.REG+120 

PC-LAST. BLK.XFER 

#71,8ML.REG 

#1-R3 

27$ 

L$DLY,R4 

26$ 

6(SP) 

R4 


SEQ 0364 


29“Nar-1982 16:23:04 TOPS 

29“Na»“1982 16:21:03 PA:< 


; SP,* 


; SP,* 

; *,END.CNT 
; END.CNT 

; TWICE 


ERR.CNT 

BLK.CNT 

ADRS.CNT 

ADRS.CNT 

ADRS.CNT,* 

BLX.CNT 

BLK.CNT, END.CNT 


7859 


7854 

7856 

7863 

7864 

7865 

7866 

7868 

7869 


7871 

7872 

7873 

7874 
7879 


7881 

7883 


7881 



7879 


7884 


7887 

7888 

7889 

7890 



; *,$$TNP2 
; *,$$TNP1 


ICZMLADO *1-11 LOGIC TEST 
$T31 TEST CODE SECTION 


HACRO *1113 30-NAR-82 11:18 PAGE 38 2' 


ScQ 0365 


17191 

17192 

17193 

17194 

17195 

17196 

17197 

17198 

17199 

17200 

17201 

17202 

17203 

17204 

17205 

17206 

17207 

17208 

17209 

17210 

17211 

17212 

17213 

17214 

17215 

17216 

17217 

17218 

17219 

17220 

17221 

17222 

17223 

17224 

17225 

17226 

17227 

17228 

17229 

17230 

17231 

17232 

17233 

17234 

17235 

17236 

17237 

17238 

17239 

17240 

17241 

17242 

17243 

17244 

17245 


062176 

062200 

062202 

062204 

062206 

062214 

062222 

062226 

062230 

062234 

062236 

062242 

062244 

062246 

062250 

062252 

062260 

062266 

062274 

062276 

062300 

062302 

062304 

062306 

062312 

062314 

062316 

062322 

062326 

062330 

062334 

062340 

062342 

062344 

062346 

062350 

062354 

062356 

062362 

062366 

062374 

062376 

062400 

062402 

062406 

062410 

062412 

062416 

062420 

062424 

062426 

062430 


001374 

005303 

000766 

005002 

017767 

152777 

012703 

001411 

016704 

001404 

005066 

005304 

001374 

005303 

000766 

017767 

017767 

017767 

005004 

010403 

006203 

006203 

006203 

062703 

010346 

010446 

042716 

012746 

005046 

004767 

062706 

005700 

001011 

010446 

010146 

012746 

060616 

004767 

062706 

026627 

001001 

005216 

005204 

020427 

003733 

005202 

020227 

003673 

021627 

003422 

104455 

000122 


133422 

000020 

000001 

117662 

000006 


133316 

133320 

133272 


015342 


177770 

000001 

121300 

000010 


000012 

136014 

000006 

000004 


000011 


000177 

000012 


133126 

133302 


131114 

131110 

131104 


000001 


;WL4AD 




0 


TEST CODE SECTION 



BNE 

25$ 


26$: 

DEC 

R3 

; $$T*P2 


BR 

24$ 


27$: 

CLR 

R2 

; WD.CNT 

28$: 

NOV 

iNL . REG+230 , PD . TENP 

0 


8IS8 

#20,a*L.RE6+120 

0 ^ 


NOV 

#1,R3 

: *,$$TNP2 

29$: 

BEQ 

32$ 



NOV 

L$DLY.R4 

; *,$$TNP1 


BEQ 

31$ 


30$: 

CLR 

6(SP) 

; $$TNP 


DEC 

R 4 

; $$THP1 


BNE 

30$ 


31$: 

DEC 

R3 

; $$TNP2 


BR 

29$ 


32$: 

NOV 

8NL.REG+170.D1.TENP 



NOV 

iNL. REG*200,D2. TENP 



NOV 

8NL.REG*160,E2.TENP 



CLR 

R4 

; NIB.PTR 

33$: 

NOV 

R4,R3 

; NIB.PTR,* 


ASR 

R3 



ASR 

R3 



ASR 

R3 



ADD 

#PD.TENP,R3 



NOV 

R3,-(SP) 



NOV 

R4.-(SP) 

; NIB.PTR,* 


BIC 

#177770,(SP) 



NOV 

#1,-(SP) 



CLR 

-(SP) 



JSR 

PC.BL$GT2 



ADD 

#10,SP 



TST 

RO 



BNE 

34$ 



NOV 

R4,-(SP) 

; NIB.PTR,* 


NOV 

R1 .-(SP) 

; BG.PAT,* 


NOV 

*12. -(SP) 



ADD 

SP.(SP) 

; ERR.FLG,* 


JSR 

PC. TST.LNG.WRD 



ADD 

06.SP 


34$: 

CNP 

i,dP).M1 

; ERR.FLG,* 


BNE 

35$ 



INC 

(SP) 

; ERR.CNT 

35$: 

INC 

R4 

; NIB.PTR 


CNP 

R4JT11 

; NIB.PTR,* 


BLE 

33$ 



INC 

R2 

; WD.CNT 


CNP 

R2JT177 

; WD.CNT.* 


BLE 

28$ 



CNP 

(SP),#12 

; ERR.CNT,* 


BLE 

36$ 



TRAP 

55 

0 


.WORD 

122 



29-*ar-1982 16:23:04 
29-*ar-l982 16:21:03 


t 


(LZKIADO ML-11 LOGIC TEST 
ST31 TEST CODE SECTION 


SEC 0366 


NACRO Will 3 30-NAR-82 11:18 PAGE Is! 3 


17247 



; HI 4 AD 






17248 



# 


TEST CODE SECTION 




17249 









17250 062432 

012706 



.WORD 

ASYNC 




17251 062434 

026302 



.WORD 

DUNPER 




17252 062436 

012746 

010630 


NOV 

#WRD.10,-(SP> 


* 


17253 062442 

012746 

011276 


NOV 

fWRD.51 ,-(SP) 




17254 062446 

012746 

011270 


NOV 

#WRD.50,-(SP) 




17255 062452 

012746 

010256 


NOV 

#THA.fRT,-(SP) 




17256 062456 

012746 

000004 


NOV 

#4,-<SP> 




17257 062462 

010600 



NOV 

SP.RO 


• 

SP,* 

17258 062464 

104414 



TRAP 

14 




17259 062466 

062706 

000012 


ADD 

#12. SP 


# 


17260 062472 

005266 

000002 

36S: 

INC 

2(SP) 


• 

END.CNT 

17261 062476 

005101 



CON 

R1 


• 

8G.PAT 

17262 062500 

005205 



INC 

R5 


9 

TWICE 

17263 062502 

020527 

000001 


CNP 

R5.#1 


• 

TWICE.* 

17264 062506 

003002 



BGT 

37S 




17265 062510 

000167 

177262 


JNP 

20S 




17266 062514 

104467 


37$: 

TRAP 

67 


• 


17267 062516 

006000 



ROR 

RO 




17268 062520 

103002 



BHIS 

38S 




17269 062522 

000167 

176434 


JNP 

IS 




17270 062526 

062706 

000010 

38$: 

ADD 

#10. SP 


s 


17271 062532 

000207 



RTS 

PC 




17272 









17273 



: Routine Size: 

377 words 




17274 



; Naximui stack depth per invocation: 

18 words 



17279 









17280 









1 fCOH 

1 7285 




.S8TTL 

T31 TEST CODE SECTION 




17289 062534 



T31 : : 






17290 062534 

004767 

176412 

IS: 

JSR 

PC.ST31 


• 


17291 062540 

104466 



TRAP 

66 




17292 062542 

006000 



RCA 

AO 




17293 062544 

103773 



BIO 

IS 




17294 062546 

1 70QC 

000207 



RTS 

PC 




1 fey? 

17296 



; Routine Size: 

6 words 




17297 



; Haximun stack depth per invocation: 

0 words 




29-H«r-1982 16:23:04 TOPS 
29-Har-1982 16:21:03 PA:< 


7916 


7914 

7919 

7920 

7868 


7921 


7772 


7923 


CZMLADO ML-11 LOCK TEST 
T 31 TEST CODE SECTION 


F 13 

MACRO M1113 30-MAR-82 11:18 PAGE 384 


17303 

17304 

17305 

17306 


;ML4AD 


TEST CODE SECTION 
7925 !<BLF/PAGE> 


29-Mar-1982 16:23:04 
29-Nar-1982 16:21:03 


SEQ 0367 

T0PS-20 Bliss-16 V2(212) 

PA : <N£ALE>NL4AD .8L 1.4 ($3> 


CZHLADO Mt-11 LOGIC TEST 
T31 TEST CODE SECTION 


*ACftO will 3 30-MAR-82 11:18 PAGE 385" 


17308 

17309 

17310 

17311 

17312 

17313 

17314 

17315 

17316 

17317 

17318 

17319 

17320 

17321 

17322 

17323 

17324 

17325 

17326 

17327 

17328 

17329 

17330 

17331 

17332 

17333 

17334 

17335 

17336 

17337 

17338 

17339 

17340 

17341 

17342 

17343 

17344 

17345 

17346 

17347 

17348 

17349 

17350 

17351 

17352 

17353 

17354 

17355 

17356 

17357 

17358 

17359 

17360 

17361 

17362 


ML4AD 


7926 

7927 

7928 

7929 

7930 

7931 

7932 

7933 

7934 

7935 

7936 

7937 

7938 

7939 

7940 

7941 

7942 

7943 

7944 

7945 

7946 

7947 

7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 

7960 

7961 

7962 

7963 

7964 

7965 

7966 

7967 

7968 

7969 

7970 

7971 
79 72 

7973 

7974 

7975 

7976 

7977 


TEST CODE SECTION 


BGNTST, 


TEST NUMBER: TST 32 

TEST NAME: ARRAY MODULE SELECTION TEST 

TEST DESCRIPTION: 

TEST FOR UNIQUE ARRAY MODULE 
SELECTION BY: 

1. WRITING THE RESPECTIVE ARRAY 
MODULE POSITION NUMBER INTO 
THE FIRST GOOD NIBBLE FOUND 
IN THE ARRAY. DO FOR ALL 
PRESENT ARRAYS. 

2. READ THE ARRAYS FOR THEIR 
RESPECTIVE POSTION NUMBERS. 

IMPLICIT INPUTS: 

PD TEMP: 

A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 

IOBUF : 

a Vector of 2 56 words where 

DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 

WRDS TSTED. 

ARRjEL, 

FND.GD NIB. 

ARR.NUH; 

ARR SEL = ZEROES; 

ARR.SEL = .ARP. SEL - .ARRJNC; 

ir.cr ARR.CNT fro* 0 to .OP.NUM.ARR do 
begin 
CLR.MBUS; 

FND 6D NIB = ZERO; 

WRDS TSTED = ZERO; 

DAT BN - ONE; 

MLWt -* not 255; 


SEQ 0368 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2C212) 

29-Mar-1982 16:21:03 PA:<NEALE>NL4AD.8LI.4 (84) 


•WORDS TESTED 
•ARRAY SELECT 
.'FOUND GOOD NI8BLE 
•ARRAY NUMBER 


•START ARR.SEL BACK ONE ARRAY 
! TEST ALL PRESENT ARRAYS 


! SET DATA DIAG MODE 
•LOAD WORD COUNT 



C 2 ML ADO ML-11 LOGIC TEST 
T31 TEST COOE SECTION 


MACAO Ml 113 30-MAR-82 11:18 


H 13 
PAGE 386 


SEQ 0369 


17364 

17365 

17366 

17367 

17368 

17369 

17370 

17371 

17372 

17373 

17374 

17375 

17376 

17377 

17378 

17379 

17380 

17381 

17382 

17383 

17384 

17385 

17386 

17387 

17388 

17389 

17390 

17391 

17392 

17393 

17394 

17395 

17396 

17397 

17398 

17399 

17400 

17401 

17402 

17403 

17404 

17405 

17406 

17407 

17408 

17409 

17410 

17411 

17412 

17413 

17414 

17415 

17416 

17417 

17418 


NL4AD 


7978 

7979 

7980 

7981 

7982 

7983 

7984 

7985 

7986 

7987 

7988 

7989 

7990 

7991 

7992 

7993 

7994 

7995 

7996 

7997 

7998 

7999 

8000 
8001 
8002 

8003 

8004 

8005 

8006 

8007 

8008 

8009 

8010 
8011 
8012 

8013 

8014 

8015 

8016 

8017 

8018 

8019 

8020 
8021 
8022 

8023 

8024 

8025 

8026 

8027 

8028 
8029 


TEST CODE SECTION 
MLBA = 10.BUF; 

AAR SEL « .ARR.SEL ♦ .ARR.INC; 
MID* = .AAR SEC; 

MLCS1 = write; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<212) 
PA:<NEALE>M14AD.BLI.4 (84) 


do 


begin 

DELAY (ONE .US); 

PD.TEMP = .MLPD; 

WR5S.TSTED = .WRDS.TSTED ♦ 1; 

incr CNT from 0 to 8 do 

if .PD.TEMP C.CNT3 IS.NOT.SET 
then 

begin 

case .CNT from 0 to 8 of 
set 


•LOAD lO.BUf 
ILOOK AT NEXT ARRAY 

'LOAD DSA WITH SELECTED ARRAY AT BLOCK ZERO 
•DO A WRITE FUNCTION 

•THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS 


! GET THE PROM DATA 
•COUNT WORDS TESTED 

!LOOK AT 9 NIBBLES 

•FIND A GOOD NIBBLE 

•SELECT AND LOAD GOOD NIBBLE WITH ARRAY CNT 


CO 3 


m 


C23 : 

(MLD1X8, 4> 
C33 : 

(MLD1X12. 4> 
C43 : 


(MLD1X0. 4> = .ARR.CNT; 
(MLD1X4, 4> = .ARR.CNT; 

.ARR.CNT; 

= .ARR.CNT; 

(MLD2X0, 4> = .ARR.CNT 


C53 : 


(MLD2X4, 4> = .ARR.CNT 


C63 : 


(MLD2X8. 4> = .ARR.CNT 


C73 : 


(MLD2X12. 4> = .ARR.CNT; 


C83 : 


(MLE2X8, 4> = .ARR.CNT; 


tes; 

FND GD.NIB = ONE; 

ex it loop; 

end; 


•NIBBLE 0 
•NIBBLE 1 
•NIBBLE 2 
•NIBBLE 3 
.'NIBBLE 4 
•NIBBLE 5 
•NIBBLE 6 
•NIBBLE 7 
•NIBBLE 8 


! SET FOUND GOOD NIBBLE FLG 
•EXIT THE LOOP 


CZNLADO ML-11 LOGIC TEST 
T51 TEST CODE SECTION 


NACRO R1113 30-HAR-82 11:18 PAGE 


UP 


SEO 0370 


17420 

17421 

17422 

17423 

17424 

17425 

17426 

17427 

17428 

17429 

17430 

17431 

17432 

17433 

17434 

17435 

17436 

17437 

17438 

17439 

17440 

17441 

17442 

17443 

17444 

17445 

17446 

17447 

17448 

17449 

17450 

17451 

17452 

17453 

17454 

17455 

17456 

17457 

17458 

17459 

17460 

17461 

17462 

17463 

17464 

17465 

17466 

17467 

17468 

17469 

17470 

17471 

17472 

17473 

17474 


HL4AD 


TEST CODE SECTION 


29-Har-1982 16:23:04 
29-Har-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA :<NE ALE >HL4AD.8U. 4 (84) 


8030 

8031 

8032 

8033 

8034 

8035 

8036 

8037 

8038 

8039 

8040 

8041 

8042 

8043 

8044 

8045 

8046 

8047 

8048 

8049 

8050 

8051 

8052 

8053 

8054 

8055 

8056 

8057 

8058 

8059 

8060 
8061 
8062 

8063 

8064 

8065 

8066 

8067 

8068 

8069 

8070 

8071 

8072 

8073 

8074 

8075 

8076 

8077 

8078 

8079 

8080 
8081 


DAT.CLK = ONE; 
end 

until (.FND.GD.NI8 IS.SET ) or (.WRDS.TSTED eql 14); 

if .WRDS.TSTED eql 14 
then 

begin 
ERRDf 


.•CLOCK GOOD NIB8LE INTO HENDRY t GET NXT PROH URD 

•DO UNTIL FOUND GOOD NIBBLE OR 14 WROS TSTEO 
•IF 14 WORDS TSTED 
•THEN ERROR AND EXIT TESTED 


_ — >F C 1 42, INTER, DUHPER); 

PRINTS (SEV FNT, WRDJ4, PHR 10, FNC.15, WRD.12, FNCJ7, WRD.37, WRD.56); 

EXIT.TST; “ 

end; 


end; 

ARR. SEL = ZEROES; 
ARR.SEL = .ARR.SEL - 


ARR.INC; 

OP.NUH.ARR do 


incr ARR.CNT fro* 0 to 
begin 
BGNSUB; 

CLR.HBUS; 

FND GD.NJB = ZERO; 

DAT DR = ONE; 

HLWt = not 255; 

HL8A = IO_BUF; 

ARR SEL = .ARR SEL ♦ .ARR.INC; 
HLDX = .ARR SEC; 

HLCS1 = rea3; 


do 


begin 

DELAY (ONE.US); 

PD.TEHP - .HLPD; 

incr CNT from 0 to 8 do 

if .PD.TEHP C.CNT3 IS.NOT.SET 
ti.en 

begin 

DAT.CLK = ONE; 

case .CNT from 0 to 8 of 
set 


£03 

£13 

£23 


.•START ARR SEL BACK ONE AGAIN 
! TEST ALL PRESENT ARRAYS 


.•SET DATA D1AG NODE 
•LOAD WORD COUNT 
.•LOAD UBUS ADDRESS 
•LOOK AT NEXT ARRAY 
•LOAD DSA WITH ARRAY SELECT 
•.DO A READ FUNCTION 

•THIS LOOP READS ARRAYS FOR ARRAY NUNBERS 

•GET THE PROH DATA 
•LOOK AT 9 NIBBLES 

! FIND THE GOOD NIBBLES WHERE ARR NUN IS STORED 

.•CLOCK ARRAY WORD OUT 
.•SELECT AND READ GOOD NIBBLE 


ARR.NUN = .(HLD1X0, 4>; 

•NIBBLE 

ARR.NUN = . (HLD1X4, 4>; 

•NIBBLE 

ARR.NUH = . (HLD1X8, 4>; 

•NIBBLE 


i 



SEO 0371 


CZMLADO HL-11 IOC TEST 
T31 TEST COOE SECflON 


MACRO H1 113 30-MAR-82 11:18 


PAGE isi 3 


17476 ;ML4AD 

17477 ; 

17478 

17479 ; 8082 

17480 ; 8083 

17481 ; 8084 

1 7482 ; 8085 

17483 ; 8086 

17404 ; 8087 

17485 ; 8088 

17486 ; 8089 

17487 ; 8090 

17488 ; 8091 

17489 ; 8092 

17490 ; 8093 

17491 ; 8094 

17492 ; 8095 

17493 ; 8096 

17494 ; 8097 

17495 ; 8098 

17496 ; 8099 

17497 ; 8100 

17498 ; 8101 

17499 ; 8102 

17500 ; 8103 

17501 ; 8104 

17502 ; 8105 

17503 ; 8106 

17504 ; 8107 

17505 ; 8108 

17506 ; 8109 

17507 ; 8110 

17508 ; 8111 

17509 ; 8112 

17510 ; 8113 

17511 ; 8114 

17512 ; 8115 

17513 ; 8116 

17514 ; 8117 

17515 ; 8118 

17516 ; 8119 

17517 ; 8120 

17518 ; 8121 

1752; 


17522 

17523 


TEST CODE SECTION 


29-Mar- 1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V2<212) 
PA:<NEALE>ML4AD.BLI .4 (84) 


C33 

C43 

C53 

C63 

C73 

£83 

tes; 


ARR.NUM = .(NIDI ><12, 4>; 
ARR.NUN = .(NLD2X0, 4>; 
ARR.NUN = . (MLD2X4, 4'; 
ARR.NUN = . (MLD2X8, 4>; 
ARR.NUN = . (NLD2X12, 4>; 
ARR.NUM = . (NLE2X8, 4>; 


•NIBBLE 3 
•NIBBLE 4 
.'NIBBLE 5 
JNIBBLE 6 
! NIBBLE 7 
•NIBBLE 8 


FND GD.NIB = ONE; 

exit loop; 

end; 

DAT_CLK = ONE; 
end 

until .FND_GD_NIB IS.SET; 

if .ARR CNT neq .AftR.NUN 
then 


begin 

ERRDF (83, ASYNC, DUMPER); 

PRINTS (FOR FMT, URD.39, FNC 17. URD.37, WRD.10); 

PRINTS (FMT“14, .ARR.CNT, .ARR.NUM); 

end; 


•SET FND GD NIB FLG 
•EXIT LOOP 


•CLOCK OUT NEXT PROM LOCATION 
! REPEAT UNTIL FOUND THE GOOP NIBBLE 
•SEE IF ARRAY CONTAINS IT'S ARR NUM 
‘ERROR IF NOT THERE 


ENDSUB; 

end; 


ENDTST; 


062550 

004167 

122036 

.S8TTL 
ST32: JSR 

ST32 TEST CODE SECTION 
R1,SSAVE5 

e 

062554 

162706 

000006 

SUB 

#6,SP 


062560 

005005 


CLR 

R5 

# 

062562 

166705 

131216 

SUB 

ARR. INC, R5 

0 


ARR.SEL 

*,ARR.SEL 


7924 

7968 

7969 


CZMLADO HL-11 LOGIC TEST 
ST32 TEST CODE SECTION 


MACRO HU 13 30-MAR-8 2 11:18 PAGE 389' 


17532 

17533 

17534 

17535 

17536 

17537 

17538 

17539 

17540 

17541 

17542 

17543 

17544 

17545 

17546 

17547 

17548 

17549 

17550 

17551 

17552 

17553 

17554 

17555 

17556 

17557 

17558 

17559 

17560 

17561 

17562 

17563 

17564 

17565 

17566 

17567 

17568 

17569 

17570 

17571 

17572 

17573 

17574 

17575 

17576 

17577 

17578 

17579 

17580 

17581 

17582 

17583 

17584 

17585 

17586 


; ML 4 AD 


062566 

062574 

062576 

062602 

062610 

062614 

062620 


062632 

062634 

062636 

062644 

062652 

062660 

062664 

062670 

062676 

062702 

062704 

062710 

062712 

062716 

062720 

062722 

062724 

062726 

062734 

062736 

062740 

062742 

062744 

062746 

062750 

062754 

062756 

062760 

062764 

062770 

062772 

062776 

063002 

063004 

063006 

063010 

063012 

063016 

M 

063024 

063026 

063030 

063032 


016766 

005003 

000167 

152777 

016702 

042702 

142777 

150277 

005016 

005004 

152777 

012777 

012777 

066705 

010577 

012777 

012701 

001411 

016702 

001404 

005066 

005302 

001374 

005301 

000766 

017767 

005204 

005002 

010201 

006201 

006201 

006201 

062701 

010146 

010246 

042716 

012746 

005046 

004767 

062706 

005700 

001155 

010201 


131210 000002 


000702 

000040 

133216 

177770 

000007 

132612 


000010 

177400 

014022 

131120 

132544 

000061 

000001 

117206 

000004 


132702 132406 


006301 

066107 

000022 

000040 

000072 

000112 

000146 

000164 

000216 


132634 


132616 


132660 

132542 

132544 


132506 


015342 


177770 

000001 

120636 

000010 


063016 


TEST CODE SECTION 

MOV 0P.NUM.ARR.2CSP) 

CLR R3 

JMP 27$ 

BISS #40,BML.REG*40 

MOV ML.DUT.R2 

BIC #177770. R2 

BICB #7,iML.REG*40 

BJS8 R2.8ML.REG+40 

CLR <SP) 

CLR R4 

BISS #10.3ML.REG+120 

MOV #-400.aML.REG*10 

MOV #J0.BUE,9ML.REG+20 

ADD ARR.INC.R5 

MOV R5.BML.REG+30 

MOV #6 i .3ML .REG 

MOV fl.RI 

ago 6$ 

MOV LSDLY.R2 

BEO 5$ 

CLR 4CSP) 

DEC R2 

8NE 4$ 

DEC R1 

BR 3$ 

MOV BML.REG+230.PD.TEMP 

INC R4 

CLR R2 

MOV R2.R1 

ASR R1 

ASR R1 

ASR R1 

ADD #PD. TEMP, R1 

MOV R1.-CSP) 

MOV R2.-CSP) 

BIC #1^7770. (SP) 

MOV #1,-<SP> 

CLR -CSP) 

JSR PC.BLSGT2 

ADD #10. SP 

TST RO 

BNE 23$ 

MOV R2.R1 

ASL R1 

ADD 8$<R1),PC 

.WORD 9$-8$ 

.WORD 1 0$-8$ 

.WORD 128-8$ 

.WORD 138-8$ 

.WORD 15$-8$ 

.WORD 16$-8$ 

.WORD 1 8$-8$ 


i 


SEQ 0372 



29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 

7971 


7972 


FND.GD.NIB 

7974 

WRDS.TSTED 

7975 


7976 


7977 


7978 

*,ARR.SEL 

7979 

ARR.SEL,* 

7980 

7981 

*,$$TMP2 

*,$$TMP1 

7985 

$$TMP 

$$TMP1 


$$TMP2 

7986 

WRDS.TSTED 

7987 

CNT 

7989 

CNT,* 

7991 


; CNT,* 


; CNT,* 


7995 



, CZMLADO *1-11 LOGIC TEST 
%T32 TEST CODE SECTION 


MACRO *1113 30-MAR-82 11:18 PAGE 


17588 

17589 

17590 

17591 

17592 

17593 

17594 

17595 

17596 

17597 

17598 

17599 

17600 

17601 

17602 

17603 

17604 

17605 

17606 

17607 

17608 

17609 

17610 

17611 

17612 

17613 

17614 

17615 

17616 

17617 

17618 

17619 

17620 

17621 

17622 

17623 

17624 

17625 

17626 

17627 

17628 

17629 

17630 

17631 

17632 

17633 

17634 

17635 

17636 

17637 

17638 

17639 

17640 

17641 

17642 


;«L4AD 


063034 

063036 

063040 

063042 

063046 

063054 

063056 

063060 

063062 

063064 

063066 

063070 

063074 

063102 

063106 

063110 

063112 

063114 

063120 

063126 

063130 

063132 

063134 

063136 

063140 

063142 

063144 

063150 

063156 

063162 

063164 

063166 

063172 

063200 

063202 

063204 

063206 

063210 

063212 

063214 

063220 

063226 

063232 

063234 

063236 

063240 

063244 

063252 

063254 

063256 

063260 

063262 


000236 

000272 

010301 

042701 

142777 

000412 

010301 

006301 

006301 

006301 

006301 

042701 

14277 7 

150177 

000511 

010301 

000301 

042701 

042777 

000413 

010301 

000301 

006301 

006301 

006301 

006301 

042701 

042777 

050177 

000463 

010301 

042701 

142777 

000412 

010301 

006301 

006301 

006301 

006301 

042701 

142777 

150177 

000437 

010301 

000301 

042701 

042777 

000413 

010301 

000301 

006301 

006301 


177760 

000017 


132520 


177417 

000360 

132466 


170377 

007400 


132472 


132446 


007777 

170000 

132412 


177760 

000017 


132416 


132404 


177417 

000360 

132352 


170377 

007400 


132356 


132332 


9$: 

.WORD 

.WORD 

*0V 

10$: 

BIC 

BIC8 

BR 

MOV 

11$: 

ASL 

ASL 

ASL 

ASL 

BIC 

BICB 

BISB 

12$: 

BR 

MOV 

13$: 

SWAB 

BIC 

BIC 

BR 

MOV 

14$: 

SWAB 

ASL 

ASL 

ASL 

ASL 

BIC 

BIC 

BIS 

15$: 

BR 

MOV 

16$: 

BIC 

BICB 

BR 

MOV 

17$: 

ASL 

ASL 

ASL 

ASL 

BIC 

BICB 

BISB 

18$: 

BR 

NOV 

19$: 

SWAB 

BIC 

BIC 

BR 

NOV 


SWAB 

ASL 

ASL 


TEST CODE SECTION 

19S-8S 
21 $-88 
R3.R1 

#1^7760,81 

#17,a*L.REG*170 

11 $ 

R3.R1 

R1 

R1 

R1 

R1 

#1 77417, R1 
#360,8*L.REG+170 
Rl ,8*L.REG*170 
22 $ 

R3,R1 

R1 

#1 70377, R1 

#7400,8*L.REG+170 

14$ 

R3.R1 

Rl 

R1 

Rl 

Rl 

Rl 

#7777.R1 

#1 70000, 8*L .REG+1 70 
Rl .BML.REG+170 
22 $ 

R3.R1 

#1*7760,R1 

#17,8*L.REG*200 

17 $ 

R3,R1 

Rl 

Rl 

Rl 

Rl 

#177417,R1 
#360,8*L.REG+200 
Rl ,i*L.REG*200 
22 $ 

R3,R1 

Rl 

#170377,R1 
#7400,8*1 . REG+200 
20 $ 

R3,R1 

Rl 

Rl 

Rl 


5E0 C373 




CZHLADO ML-11 LOGIC TEST 
$T32 TEST CODE SECTION 


HACRO Mill? 30-NAA-82 11:18 PAGE 39l' 


17644 

17645 

17646 

17647 

17648 

17649 

17650 

17651 

17652 

17653 

17654 

17655 

17656 

17657 

17658 

17659 

17660 

17661 

17662 

17663 

17664 

17665 

17666 

17667 

17668 

17669 

17670 

17671 

17672 

17673 

17674 

17675 

17676 

17677 

17678 

17679 

17680 

17681 

17682 

17683 

17684 

17685 

17686 

17687 

17688 

17689 

17690 

17691 

17692 

17693 

17694 

17695 

17696 

17697 

17698 


;NL4AD 


063264 

063266 

063270 

063274 

063302 

063306 

063310 

063312 

063314 

063320 

063326 

063332 

063336 

063340 

063342 

063346 

063350 

063354 

063362 

063366 

063370 

063374 

063376 

063402 

063406 

063410 

063412 

063414 

063416 

063420 

063424 

063430 

063434 

063440 

063444 

063450 

063454 

063460 

063464 

063466 

063470 

063472 

063476 

063502 

063504 

063510 

063512 

063516 

063520 

063524 

063532 

063534 


006301 

006301 

042701 

042777 

050177 

000411 

010301 

000301 

042701 

042777 

050177 

012716 

000406 

005202 

020227 

003002 

000167 

152777 

021627 

001405 

020427 

001402 

000167 

020427 

001035 

104455 

000216 

013114 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

104463 

062706 

000167 

005203 

020366 

003002 

000167 

005005 

166705 

016766 

005004 

000167 


007777 

170000 132302 
132276 


170377 

007400 132236 
132232 
000001 


000010 

177364 

000020 132142 24$: 
000001 

000016 

177274 

000016 25$: 


011344 

011122 

012404 

010650 

012360 

012006 

010664 

010342 

000010 


000022 

000562 

000002 

177064 

130260 

130252 000002 
000516 


TEST CODE SECTION 

ASL R1 

ASL R1 

BIC #7777. R1 

B1C #170000, 8NL. REG+200 

BIS R1 ,BNL.REG*200 

6R 22$ 

NOV R3,R1 

SWAB R1 

BIC #170377,R1 

BIC #7400 , BNL . REG* 1 60 

BIS R1 ,BNL.REG*160 

NOV #1.(SP) 

BR 24$ 

INC R2 

CNP R2,#10 

BGT 24$ 

JNP 7$ 

BISS #20,aNL.REG+120 

CNP (SP),#1 

BEQ 25$ 

CNP R4,#16 

BEQ 25* 

JNP 2$ 

CNP R4,#16 

BNE 26$ 

TRAP 55 

.WORD 216 

.WORD INTER 

.WORD DUNPER 

NOV #WRD.56,-(SP> 

NOV #WRD.37,-(SP) 

NOV #FNC.17,-(SP) 

NOV #WRD.12,-(SP) 

NOV #FNC.15,-(SP) 

NOV #PHR. 10, -(SP) 

NOV #WRD.14,-(SP> 

NOV #SEV.FNT ,-<SP) 

NOV #10, -(SP) 

NOV SP,RO 

TRAP 14 

TRAP 63 

ADD #22, SP 

JNP 56$ 

INC R3 

CNP R3,2(SP> 

BGT 28$ 

JNP 1$ 

CLR R5 

SUB ARR.1NC,R5 

NOV 0P.NUN.ARR,2(SP) 

CLR R4 

JNP 55$ 


SEQ 0374 


29-Nar-1982 16:23:04 TOPS 
29-Nar-1982 16:21:03 PA:< 


; 7995 I 

; ARR.CNT,* 8023 

; *,FND,GD.NIB 8026 

8027 

; CNT 7989 

; CNT,* 

; 8030 

; FND.GD.NIB,* 8032 

; WRDS.TSTED,* 

; WRDS.TSTED,* 8034 

8037 


8038 


SP,* 

8034 


8036 

ARR.CNT 

ARR.CNT,* 

7971 

ARR.SEL 

8044 

*,ARR.SEL 

8045 

8047 

ARR.CNT 




I CZMLADO ML-11 LOGIC TEST 
i $T32 TEST CODE SECTION 


MACRO Ml 113 30-MAR-82 11:18 PAGE 392 


17700 

17701 

17702 

17703 

17704 

17705 

17706 

17707 

17708 

17709 

17710 

17711 

17712 

17713 

17714 

17715 

17716 

17717 

17718 

17719 

17720 

17721 

17722 

17723 

17724 

17725 

17726 

17727 

17728 

17729 

17730 

17731 

17732 

17733 

17734 

17735 

17736 

17737 

17738 

17739 

17740 

17741 

17742 

17743 

17744 

17745 

17746 

17747 

17748 

17749 

17750 

17751 

17752 

17753 

17754 


;ML4AD 


063540 

063542 

063550 

063554 

063560 

063566 

063572 

063574 

063602 

063610 

063616 

063622 

063626 

063634 

063640 

063642 

063646 

063650 

063654 

063656 

063660 

063662 

063664 

063672 

063674 

063676 

063700 

063702 

063704 

063710 

063712 

063714 

063720 

063724 

063726 

063732 

063736 

063740 

063742 

06*750 

063752 

063754 

063760 

063762 

063764 

063766 

063770 

063772 

063774 

063776 

064000 

064002 


104402 

152777 

016702 

042702 

142777 

150277 

005016 

152777 

012777 

012777 

066705 

010577 

012777 

012701 

001411 

016702 

001404 

005066 

005302 

001374 

005301 

000766 

017767 

005002 

010201 

006201 

006201 

006201 

062701 

010146 

010246 

042716 

012746 

005046 

004767 

062706 

005700 

001070 

152777 

010201 

006301 

066107 

000022 

000030 

000036 

000044 

000052 

000060 

000076 

000104 


000040 

132256 

177770 

000007 

131652 

000010 

177400 

014022 

130162 

131606 

000071 

000001 

116250 

000004 


131744 131450 


015342 


177770 

000001 

117702 

000010 


131674 


131656 


131722 

131604 

131606 


131550 


000020 131554 


063760 


063776 000104 
064000 000122 
064002 117703 


131566 


TRAP 

BISS 

MOV 

BIC 

BICB 

BISS 

CLR 

B1SB 

MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

8E0 

MOV 

BEO 

CLR 

DEC 

BNE 

DEC 

BR 

MOV 

CLR 

MOV 

ASR 

ASR 

ASR 

ADD 

MOV 

MOV 

BIC 

MOV 

CLR 

JSR 

ADD 

TST 

BNE 

BISS 

MOV 

ASL 

ADD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

MOVB 


TEST CODE SECTION 


#40,8ML.REG+40 

ML.DUT.R2 

#1 77776, R2 

#7,3NL.REG*40 

R2.8ML.REGH0 

ISP) 

#10.aML.REG+120 
#-460. BML. REG+10 
#10. BUT ,3ML .REG+20 
ARR.INC,R5 
R5.BML.REG+30 
#71 .dML.REG 
#1.R1 
34i 

LSDLY,P2 

33$ 

4CSP) 

R2 

32$ 

R1 

31$ 

BML. RE G+230, PD. TEMP 
R2 

R2,R1 

R1 

R1 

R1 

#PD.TEMP,R1 

R1,-(SP> 

R2.-CSP) 

#1^7770 r (SP) 

#1,-<SP> 

-CSP) 

PC.BL$GT2 

#l6.SP 

RO 

50$ 

#20.aNL.REG+120 

R2,R1 

R1 

36$(R1).PC 

37$-36$ 

38$-36$ 

39$-36$ 

40$-36$ 

41 $-36$ 

42$-36$ 

44$-36$ 

45$-36$ 

47$-36$ 

BML.REG+170.R3 


L 


SEQ 0375 



29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 

8048 

8049 


FND.GD.NIB 

♦.ARR.SEL 

ARR.SEL,* 

*,$$TMP2 

*,$$TMP1 

$$TMP 

$$TMP1 

$$TMP2 

CNT 

CNT.* 


; CNT.* 


; *.ARR.NUM 


8051 

8052 

8053 

8054 

8055 

8056 

8057 
8061 


8062 

8064 

8066 


8069 

8071 


8075 


J 



CZHLADO Hl-11 LOGIC TEST 
$T32 TEST CODE SECTION 


HACfiQ Kill 3 30-NAA-82 11:18 PAGE 393 


17756 

17757 

17758 

17759 

17760 

17761 

17762 

17763 

17764 

17765 

17766 

17767 

17768 

17769 

17770 

17771 

17772 

17773 

17774 

17775 

17776 

17777 

17778 

17779 

17780 

17781 

17782 

17783 

17784 

17785 

17786 

17787 

17788 

17789 

17790 

17791 

17792 

17793 

17794 

17795 

17796 

17797 

17798 

17799 

17800 

17801 

17802 

17803 

17804 

17805 

17806 

17807 

17808 

17809 

17810 


;NL4AD 


064006 

064010 

064014 

064016 

064022 

064024 

064030 

064032 

064036 

064040 

064044 

064046 

064050 

064052 

064054 

064056 

064062 

064064 

064070 

064072 

064074 

064076 

064100 

064102 

064106 

064110 

064114 

064120 

064122 

064124 

064130 

064132 

064140 

064144 

064146 

064150 

064152 

064154 

064156 

064160 

064162 

064166 

064172 

064176 

064202 

064206 

064212 

064214 

064216 

064220 

064222 

064226 


000440 

117703 

000431 

017703 

000417 

117703 

m 

006203 

006203 

006203 

006203 

000415 

017703 

000411 

017703 

006203 

006203 

006203 

006203 

000402 

017703 

000303 

042703 

012716 

000404 

005202 

020227 

003661 

152777 

021627 

001233 

020403 

001434 

104455 

000123 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010316 

010446 

012746 

012746 


131560 

131552 

131544 

131546 

131540 


131522 

131514 


131456 

177760 

000001 


000010 

000020 131364 
000001 



8R 

38$: 

NOVB 


8R 

39$: 

NOV 


BR 

40$: 

NOV 


BR 

41$: 

NOVB 


BR 

42$: 

NOVB 

43$: 

ASR 


ASR 


ASR 


ASR 


BR 

44$: 

NOV 


BR 

45$: 

NOV 

46$: 

ASR 


ASR 


ASR 


ASR 


BR 

47$: 

NOV 

48$: 

SWAB 

49$: 

BIC 


NOV 


BR 

50$: 

INC 


CNP 


BLE 

51$: 

B1SB 


CNP 


BNE 


CNP 


8E0 


TRAP 


010630 

011122 

012404 

011140 

010270 

000005 


007330 

000003 


.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 


TEST CODE SECTION 
49$ 

BNL.REG+170.R3 

43$ 

8NL. REG+1 70. R3 
48$ 

8NL.REG+170.R3 

46$ 

3NL.REG+200.R3 

49$ 

8NL.REG+200.R3 

R3 

R3 

R3 

R3 

49$ 

8NL.REG+200,R3 

48$ 

8NL.REG+200.R3 

R3 

R3 

R3 

R3 

48$ 

8NI.REG+160.R3 

R3 

#1 77760, R3 
#1.(SP) 

51$ 

R2 

R2.#10 

35$ 

#20 f 8NL.REG*120 

(SP) ,#1 

30$ 

R4.R3 

52$ 

55 

123 

ASYNC 

DUNPER 

#URD.10,“(SP) 

#UR0.37,-(SP) 

#FNC.17.“(SP) 

#WRD.39,-(SP) 

fFOR.FNi ,-(SP) 

#5,-(SP) 

SP,RO 

14 

R3,(SP) 

R4, -(SP) 

#FNT.14,-(SP) 

#3,-<SP> 


SEQ 037b 


29-Nar-1982 

16:23:04 

TOPS 

29-N*r-1982 

16:21:03 

PA: < 

•.ARR.NUN 


8078 

* .ARR.NUN 


8081 

*, ARR.NUN 


8084 

*, ARR.NUN 


8087 

•.ARR.NUN 

ARR.NUN 

ARR.NUN 

ARR.NUN 

ARR.NUN 


8090 

•.ARR.NUN 


8093 

*, ARR.NUN 

ARR.NUN 


8096 

ARR.NUN 

ARR.NUN 

ARR.NUN 



*, ARR.NUN 

ARR.NUN 


8099 

*, ARR.NUN 
•.FND.GD.NIB 


8102 

8103 

8064 

CNT 


CNT,* 


8106 

FND.GD.NIB.* 


8108 

ARR.CNT .ARR.NUN 


8110 


8113 


8114 


; SP,* 

; ARR.NUN,* 
; ARR.CNT,* 


8115 


CZMLADO ML-11 LOGIC TEST 
ST 32 TEST CODE SECTION 


C 14 

MACRO NT 113 30-HAR-82 11:18 PAGE 394 


SEQ 0377 


17813 

17814 

17815 

17816 

17817 

17818 

17819 

17820 

17821 

17822 

17823 

17824 

17825 

17826 

17827 

17828 

17829 

17834 

17835 

17839 

17840 

17844 

17845 

17846 

17847 

17848 

17849 

17850 

17851 

17852 

17857 

17858 

17859 





; HI 4 AD 






# 


TEST CODE SECTION 

064232 

010600 



MOV 

SP.RO 

064234 

104414 



TRAP 

1 4 

064236 

062706 

000022 


ADD 

#22, SP 

064242 

104467 


52$: 

TRAP 

67 

064244 

006000 



ROR 

RO 

064246 

103002 



BHIS 

54$ 

064250 

000167 

177264 

53$: 

JMP 

29$ 

064254 

005204 


54$: 

INC 

R4 

064256 

020466 

000002 

55$: 

CMP 

R4,2(SP) 

064262 

003772 



BLE 

53$ 

064264 

062706 

000006 

56$: 

ADD 

#6,SP 

064270 

000207 



RTS 

PC 




; Routine Size: 

425 words 




; Maximus stack depth per invocation: 


064272 

064272 

064276 

064300 

064302 

064304 

004767 

104466 

006000 

103773 

000207 

176252 

.S8TTL T 32 TEST CODE SECTION 

T32* * 

1$:*’ JSR PC,$T32 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 




; Routine Size: 6 words 
; Maximum stack depth per invocation: 

§ 

8122 

!<8LF/PAGE> 



SP,* 


; ARR.CNT 
; ARR.CNT,* 


18 words 


0 words 


29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


8112 

8116 

8047 

7924 


8119 


t 



CZKLADO HL-11 LOGIC TEST 
T32 TEST CODE SECTION 


MACRO HI 11 3 30-HAR-82 11:18 PAGE 395 


SEQ 0378 


17861 ;ML4AD 


8123 

8124 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 

8133 

8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 

8142 

8143 
3144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 
8161 
8162 

8163 

8164 

8165 

8166 

8167 

8168 
81 u9 

8170 

8171 

8172 

8173 

8174 


TEST CODE SECTION 


8GNTST; 


TEST NUMBER: TST 33 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V21212) 

PA : <NE ALE >HL4AD .8L I . 4 (85) 


TEST NAME: 


SEQUENCER EXISTENCE TEST 


TEST DESCRIPTION: 

TEST SEQUENCER TIMING AND CONTROL 
LOGIC FOR EXISTENCE BY: 

1. FIRST WRITING THE GOOD BLOCK vIA DAT.DM MODE WITH A BACKGROUND 
PATTERN OF ONES. 

2. VIA A MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 

3. THEN VIA DAT. DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM 
AGAINST THE BACKGROUND PATTERN. 

RECORD THE NUMBER OF NI88LES THAT WERE UNCHANGED OR PARTIALLY CHANGED 
BY THE MBUS W1RTE. 

4. REPORT A FATAL ERROR AND DROP THIS UNIT IF THE NIBBLES TESTED EQUALS 
THE COUNT OF UNCHANGED NIB8LES. 

REPORT AN INTERMEDIATE DIAGNOSTIC MESSAGE IF AT LEAST SOME NIBBLES 
WERE CHANGED BY THE MBUS WRITE. 

IMPLICIT INPUTS: 

PD.TEMP: 

A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 
10 8UF: 

A VECTOR OF 25 6 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS 
ARE FOUND. 


local 

BG i PAT. 
SUM.BAD, 
NIB.TSTED, 
ALL BAD, 
RESOL T; 

CLR MBUS; 

BG PAT = ONES; 
MLB! = .BG PAT; 
MLD2 = .BG.PAT; 
MLE2 = .BG_PAT; 


•BACK GROUND PATTERN 
!SUM NIBBLE ARE BAD 
.'NIBBLES TESTED 
!ALL NIBBLES ARE BAD 
.'RESULTS OF XOR 


•BACKGROUND EQL ONES 

.'LOAD DATA DIAG REG WITH BG PAT 



CZMLADO ML-11 LOGIC TEST 
T32 TEST CODE SECTION 


MACRO Min 3 30-MAR-82 11:18 


E U 
PAGE 396 


SEO 0379 


17917 

17918 

17919 

17920 

17921 

17922 

17923 

17924 

17925 

17926 

17927 

17928 

17929 

17930 

17931 

17932 

17933 

17934 

17935 

17936 

17937 

17938 

17939 

17940 

17941 

17942 

17943 

17944 

17945 

17946 

17947 

17948 

17949 

17950 

17951 

17952 

17953 

17954 

17955 

17956 

17957 

17958 

17959 

17960 

17961 

17962 

17963 

17964 

17965 

17966 

17967 

17968 

17969 

17970 

17971 


ML 4 AD 


8175 

8176 

8177 

8178 

8179 

8180 
8181 
8182 

8183 

8184 
1185 
8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 

8194 

8195 

8196 

8197 

8198 

8199 

8200 
8201 
8202 

8203 

8204 

8205 

8206 

8207 

8208 

8209 

8210 
8211 
8212 

8213 

8214 

8215 

8216 

8217 

8218 

8219 

8220 
8221 
8222 

8223 

8224 

8225 

8226 


TEST CODE SECTION 

DAT DM XFER (); 

«LC5l “ write; 

incr WD CNT from 0 to 127 do 
begin 

DELAY (ONE US); 

DAT.CLK = ONE; 
end; 

CLR.MBUS; 

10 8UF = ZEROES; 

BAT = ONE; 

GD BLK.XFER (>; 

MLCSl = write; 

TIME OUT.LOOP; 

BGNS03; 

CLR.MSUS; 

ALL.6AD = ZEROES; 

SUM BAD = ZEROES; 

NIB TSTED = ZEROES; 

DAT DM.XFER (); 

MLCSl = **ead; 

DELAY (ONE .US); 

incr UD CNT from 0 to 112 do 
begin 

PD TEMP = .MLPD; 

DAT CLK = ONE; 

DEL*Y (ONE.US); 

RD.LNG.WRD; 

incr NI8.PTR from 0 to 8 do 

if .PD.TEMP C.NIB.PTR3 eql ZERO 
then 

begin 

NIB TSTED = .NI8 TSTED ♦ 1; 
XOR.LNG.WRD (.NI0.PTR, .BG.PAT # 

if .RESULT<0. 4> eql ZERO 
then 

ALL.BAD = .ALL. BAD ♦ 1 

else 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI.4 (85) 


! SET UP A DATA DIAG XFERR AT THE GOOD BLOCK 
•DO A WRITE FUNCTION 

•WRITE BLOCK WITH BG PAT 


•LOAD FIRST WORD OF IO.BUF 
.•MAKE XFERR SET ON ONE ADRS 
•SET UP A GOOD BLOCK XFERR 
•DO A WRITE FUNCTION 


•SET UP SAME DATA DIAG XFERR 
•DO A READ FUNCTION 


•READ 113 LONG WORDS 

•GET PROM DATA 
I CLOCK OUT THE DATA WORD 

•READ THE DATA WORD 

•LOOK AT 9 NIBBLES 

•FIND GOOD NIBBLE 

•INCREMENT COUNT OF NIBBLES TESTED 
RESULT); !XOR NIBBLE WITH BG PAT 

•SEE IF ALL BITS IN NIBBLE WERE BAD? 

•INCREMENT COUNT IF ALL BAD 


if .RESULT<0, 4> neq Xo'17* then SUM.BAD = .SUH.BAD ♦ 1; 


end; 


•SEE IF SOME BITS IN NIBBLE WERE BAD 
! INCREMENT COUNT IF SOME BAD 


end; 

ENDSUB; 


CZMLADO ML-11 LOGIC TEST 
T32 TEST CODE SECTION 


F K 

MACRO Ml 11 3 30-NAR-82 11:18 PAGE 397 


SEC. D380 


17973 

17974 

17975 

17976 

17977 

17978 

17979 

17980 

17981 

17982 

17983 

17984 

17985 

17986 

17987 

17988 

17989 

17990 

17991 

17992 

17993 

17994 

17998 

17999 

18003 

18004 

18005 

18006 

18007 

18008 

18009 

18010 
18011 
18012 

18013 

18014 

18015 

18016 

18017 

18018 

18019 

18020 
18021 
180 
180 

18024 

18025 

18026 
18027 


;ML4AD 


8227 

8228 


064306 

064312 

064316 

064324 

064330 

064334 

064342 

064346 

064354 

064362 

064370 

064376 

064402 

064410 

064412 

064416 

064420 

064424 

064426 

064432 

064434 

064436 

064440 

064442 

064450 


8231 

8232 

8233 

8234 

8235 

8236 

8237 

8238 

8239 

8240 

8241 

8242 

8243 

8244 

8245 


004167 

162706 

152777 

016705 

042705 

142777 

150577 

012766 

012777 

016677 

016677 

004767 

012777 

005000 

012701 

001411 

016702 

001404 

005066 

005302 

001374 

005301 

000766 

152777 

005200 


TEST CODE SECTION 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2:212> 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BLI 4 185) 


if .NIB TSTED eql .ALL.BAD 
then 

begin 

ERkDT (84, SYNC. DUMPER); 

PRINTS (SEV TNT, WRD.22, PHR.4, 
DODU <.ML.L0n); 

DOCLN; 

end 


else 


.‘WHERE ALL NIBBLES XTERR'ED ALL BAD? 
•ERROR IT ALL BAD 


WRD.9, WRDJ2, WRD.23. TNC.5, WRD.19); 


! SEE IT SEE NIBBLE WERE BAD? 

!SOME BAD IS OK SO GIVE INTERMEDIATE ERROR 


if .SUM.BAD gtr ZERO 
then 

ErSdT <85. INTER, DUMPER); „ 

PRINTS (SIX.TMT, PHR.4, WRD.9. WRD.12, WRD.23, TNC.5, WRD.19); 
end; 


ENDTST; 





.S8TTL 

ST33 TEST CODE SECTION 


120300 


ST33: 

JSR 

R1.SSAVE5 
#10, SP 

• 

• 

000010 



SUB 


000040 

131120 


BISS 

#40,BML.REG+40 

• 

131502 



MOV 

ML.DUT.R5 
#177776, R5 


177770 



BIC 


000007 

131102 


BICB 

#7,aML.REGK0 


131076 



BISB 

R5.8ML.REG+40 

#-1,2(SP) 

; *,BG.PAT 

177777 

000002 


MOV 

177777 

131212 


MOV 

#-1 ,BML.REG+170 


000002 

131214 


MOV 

2(SP) .BML.REG+200 

; BG.PAT,* 

000002 

131166 


MOV 

2(SP), 8ML.REG+160 

; BG.PAT,* 

132010 



JSR 

PC.DAT.DM.XTER 
#61 .BML.REG 


000061 

130774 


MOV 

; WD.CNT 



CLR 

RO 

000001 


IS: 

MOV 

#1,R1 

; *,$STMP2 


2$: 

BED 

5$ 

; *.S$TMP1 

115472 


MOV 

LSDLV.R2 




BEO 

4$ 

; SSTMP 

000006 


3$: 

CLR 

6(SP) 


DEC 

R 2 

; SSTMP1 




BNE 

3$ 

; SSTMP2 



4$: 

DcC 

R1 




BR 

2$ 


000020 

131054 

5$: 

BISB 

#20,BML.REG*120 

; WD.CNT 



INC 

RO 


8121 

8168 


8171 

8172 

8173 

8174 

8175 

8176 
8178 
8180 


8181 

8178 


CZNLADO Ml ’1 LOGIC TEST 

MACRO Mil 13 30-MAR-82 

$T33 TEST i jDE 

SECTION 





18029 





;ML4AD 


18030 

18031 

18032 

064452 

020027 

000177 


0 

CMP 

18033 

064456 

003755 


130756 


BLE 

18034 

064460 

152777 

000040 


BIS8 

18035 

064466 

016705 

131340 



MOV 

18036 

064472 

042705 

177770 

130740 


BIC 

18037 

064476 

142777 

000007 


BIC6 

18038 

064504 

150577 

130734 



BISB 

18039 

064510 

005067 

127306 

130722 


CLR 

18040 

064514 

152777 

000010 


BISB 

18041 

064522 

004767 

133564 

130650 


JSR 

18042 

064526 

012777 

000061 

6$: 

MOV 

18043 

064534 

105777 

130714 


TSTB 

18044 

064540 

100375 



7$: 

BPL 

18045 

064542 

104402 


130672 

TRAP 

18046 

064544 

152777 

000040 


BISB 

18047 

064552 

016703 

131254 



MOV 

18048 

064556 

042703 

177770 

130654 


BIC 

18049 

064562 

142777 

000007 


BIC8 

18050 

064570 

150377 

130650 



BISB 

18051 

064574 

005004 




CLR 

18052 

064576 

005016 




CLR 

18053 

064600 

005005 




CLR 

18054 

064602 

004767 

131604 

130570 


JSR 

18055 

064606 

012777 

000071 


MOV 

18056 

064614 

012701 

000001 


00 

¥* 

MOV 

18057 

064620 

001411 

115270 


BEQ 

18058 

064622 

016702 



MOV 

18059 

064626 

001404 



9$: 

BEQ 

18060 

064630 

005066 

000006 


CLR 

18061 

064634 

005302 




DEC 

18062 

064636 

001374 



10$: 

BNE 

18063 

064640 

005301 



DEC 

18064 

064642 

000766 



11$: 

BR 

18065 

064644 

005003 


130466 

CLR 

18066 

064646 

017767 

130762 

12$: 

MOV 

18067 

064654 

152777 

000020 

130642 


BISB 

18068 

064662 

012701 

000001 


13$: 

MOV 

18069 

064666 

001411 

115222 


BEQ 

18070 

064670 

016702 



MOV 

18071 

064674 

001404 




BEO 

18072 

064676 

005066 

000006 


14$: 

CLR 

18073 

064702 

005302 




DEC 

18074 

064704 

001374 



15$: 

BNE 

18075 

18076 

064706 

064710 

005301 

000766 



DEC 

BR 

18077 

064712 

017767 

130656 

126454 

16$: 

MOV 

18078 

064720 

017767 

130660 

126450 


MOV 

18079 

064726 

017767 

130632 

126444 


MOV 

18080 

064734 

005001 



17$: 

CLR 

18081 

064736 

010102 



MOV 

18082 

064740 

006202 




ASR 

18083 

064742 

006202 




ASR 


G 

PAGE 398 


TEST CODE SECTION 

R0.fi 77 

IS 

#40,ML.REG*40 

ML.DUT.R5 

#17?7?6.R5 

#7,ML.REG*40 

R5.ML.REG+40 

I0.8UF 

#10.ML.REG*40 
PC.GD.BLK.XFER 
#61. ML. REG 
ML.REG+50 
6S 

#40,ML.REG*40 

ML.DUT.R3 

#17777&.R3 

#7.ML.REG+40 

R3.ML.REG+40 

R4 

(SP) 

R5 

PC.DAT.DM.XFER 
#71. ML. REG 
#1 ,R1 

ni 

LSDLY.R2 

10 $ 

6ISP) 

R2 

9S 

Rl 

8 $ 

R3 

ML.REG+230.PD. TEMP 
#20.ML.REG+120 
#1 ,R1 
16§ 

LSDLY.R2 

15$ 

6(SP) 

R2 

14$ 

Rl 

13$ 

ML.REG+170.D1 .TEMP 
ML.REG+200.D2.TEMP 
ML.REG+160.E2.TEHP 
Rl 

R1.R2 

R2 

R2 


; WD.CNT.* 


SEO 0381 

29-M«r-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


8182 


8185 

8186 

8187 

8188 


8189 

8190 


; ALL. BAD 

8192 

; SUM. BAD 

8193 

; NIB.TSTED 

8194 


8195 


8196 

; *,$$TMP2 

8197 

; *,$$TMP1 


; $$TMP 


; SSTMP1 


; $$TMP2 


; WD.CNT 

8199 


8201 


8202 

; *,$$TMP2 

8203 

; *.$STMP1 


; SSTMP 


; $$TMP1 


; SSTMP2 


; NIB.PTR 

8206 

; NIB.PTR.* 

8208 


CZNLADO NL-11 LOCK TEST 
ST 33 TEST COOE SECTION 


MACRO NT 113 30-MAR-82 T 1 : 1 8 


H U 
PACE 399 


SEQ 0382 


18085 

18086 

18087 

18088 

18089 

18090 

18091 

18092 

18093 

18094 

18095 

18096 

18097 

18098 

18099 

18100 
18101 
18102 

18103 

18104 

18105 

18106 

18107 

18108 

18109 

18110 
18111 
18112 

18113 

18114 

18115 

18116 

18117 

18118 

18119 

18120 
18121 
18122 

18123 

18124 

18125 

18126 

18127 

18128 

18129 

18130 

18131 

18132 

18133 

18134 

18135 

18136 

18137 

18138 

18139 


; ML 4 AD 


064744 

064746 

064752 

064754 

064756 

064762 

064766 

064770 

064774 

065000 

065002 

065004 

065006 

065010 

065014 

065020 

065022 

065026 

065032 

065036 

065040 

065042 

065044 

065050 

065052 

065056 

065062 

065064 

065070 

065072 

065074 

065100 

065102 

065104 

065106 

065110 

065112 

065114 

065116 

065120 

065122 

065124 

065130 

065134 

065140 

065144 

065150 

065154 

065160 

065164 

065170 

065172 


006202 
062702 
01 0246 
010146 
042716 
012746 
005046 
004767 
062706 
005700 
001027 
005205 
010146 
016646 
012746 
060616 
004767 
016602 
042702 
001002 
005204 
000405 
020227 
001402 
005266 
062706 
005201 
020127 
003722 
005203 
020327 
003662 
104467 
006000 
103615 
020504 
001037 
104455 
000124 
012750 
026302 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 


015342 


177770 

000001 


TEST CODE SECTION 

ASR R2 

ADD #PD.TEMP,R2 

NOV R2.-($P> 

MOV RI.-(SP) 

BIC #177770,($P) 

MOV #1.-(SP5 

-(SP> 


29-Mar-19»*2 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


NIB.PTR,* 


116640 


JSR 

PC.BLSGT2 


000010 


ADD 

#10. SP 




TST 

RO 




BNE 

20$ 




INC 

R5 

; NIB.TSTED 



MOV 

R1 .-(SP) 

; NIB.PTR,* 

000004 


MOV 

4<SP),-(SP> 

; BG.PAT,* 

000012 


MOV 

#12. -(SP) 




ADD 

SP.(SP) 

; RESULT,* 

134044 


JSR 

PC.XOR.LNG.WRD 


000012 


MOV 

12(SP).R2 

; RESULT,* 

177760 


BIC 

#1 77766, R2 




BNE 

18$ 




INC 

R4 

; ALL. BAD 



BR 

19$ 

# 

000017 

18S: 

CMP 

R2.#17 

• 

0 



BEO 

19§ 


000006 


INC 

6(SP) 

; SUM. BAD 

000006 

19$: 

ADD 

#6.SP 

l 


20S: 

INC 

Rl 

; NIB.PTR 

000010 


CMP 

R1.#10 

; NIB.PTR,* 



8LE 

17i 




INC 

R3 

; WD.CNT 

000160 


CMP 

R3,#160 

; WD.CNT,* 



BLE 

I2i 




TRAP 

67 

l 



ROR 

RO 




BLO 

7$ 




CMP 

R5.R4 

; NIB.TSTED 



BNE 

21$ 




TRAP 

55 

• 

• 



.WORD 

124 




.WORD 

SYNC 




.WORD 

DUMPER 


010730 


MOV 

#WRD.19,-(SP) 

• 

• 

012216 


MOV 

#FWC.5,-(SP) 


010766 


MOV 

#WRD.23.-(SP) 


010650 


MOV 

#WRD.1 2.- (SP) 


010616 


MOV 

#WRD.9,-(SP) 


011676 


MOV 

#PHR.4,-(SP) 


010752 


MOV 

#WRD.22,-(SP> 


010342 


MOV 

#SEV.FMT,-(SP) 


000010 


MOV 

#10,-(SP) 




MOV 

SP.RO 

; SP,* 



TRAP 

14 



8211 

8212 


8214 


8216 

8214 

8219 


8210 

8206 


8199 

8224 

8228 

8231 

8232 


, CZMLADO ML-11 LOGIC TEST 
ST 33 TEST COOE SECTION 


MACRO Nil 13 30-NAR-82 11:18 


I 14 
PAGE 400 


SCO 03d3 


18141 

18142 

18143 

18144 

18145 

18146 

18147 

18148 

18149 

18150 

18151 

18152 

18153 

18154 

18155 

18156 

18157 

18158 

18159 

18160 
18161 
18162 

18163 

18164 

18165 

18166 

18167 

18168 

18169 

18170 

18175 

18176 
18180 
18181 

18185 

18186 

18187 

18188 

18189 

18190 

18191 

18192 

18193 


065174 

065200 

065202 

065204 

065210 

065212 

065214 

065216 

065220 

065222 

065224 

065226 

065232 

065236 

065242 

065246 

065252 

065256 

065262 

065266 

065270 

065272 

065276 

065302 




;ML4AD 






9 


TEST COOE SECTION 


016700 

130630 


MOV 

MULUN.RO 

e 

104451 



TRAP 

51 


104444 



TRAP 

44 


062706 

000022 


ADD 

#22. SP 

• 

000432 



BR 

22% 

• 

005716 


21 S: 

TST 

(SP) 

• 

003430 



BLE 

22% 


104455 



TRAP 

55 

s 

000125 



.WORD 

125 


013114 



• WORD 

INTER 


026302 



.WORD 

DUMPER 


012746 

010730 


NOV 

#URD. 19. -(SP) 

i 

012746 

012216 


MOV 

#FNC.5,-(SP) 


012746 

010766 


NOV 

#WRD.23.-<SP) 


012746 

010650 


MOV 

#WRD.12,-(SP) 


012746 

010616 


MOV 

#WRD.9.-(SP) 


012746 

011676 


MOV 

#PHR.4.-(SP) 


012746 

010322 


MOV 

#SIX.FMT,-(SP) 


012746 

000007 


NOV 

07, -(SP) 


010600 



NOV 

SP.RO 

• 

9 

104414 



TRAP 

14 


062706 

000020 


ADD 

020, SP 

9 

062706 

000010 

22S: 

ADD 

#10, SP 

9 

000207 



RTS 

PC 



065304 

065304 

065310 

065312 

065314 

065316 


004767 176776 
104466 
006000 
103773 
000207 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


; SUM. BAD 


TOPS 

PA:< 

8233 


8c 30 
8228 
8238 

8241 


8242 


; SP.* 


8240 

8121 


Routine Size: 255 words 
Maximum stack depth per invocation: 


19 words 


T33: : 
1 $: 


.S8TTL T33 TEST COOE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.ST33 

66 

RO 

IS 

PC 


8243 


Routine Size: 6 words 

Maximum stack depth per invocation: 


0 words 




k n 

MACRO Mill 3 30-MAR-82 11:18 PAGE 402 


SEQ 0385 


CZMLADO ML-11 LOGIC TEST 
733 TEST CODE SECTION 


18206 

18207 

18208 

18209 

18210 
18211 
18212 

18213 

18214 

18215 

18216 

18217 

18218 

18219 

18220 
18221 
18222 

18223 

18224 

18225 

18226 

18227 

18228 

18229 

18230 

18231 

18232 

18233 

18234 

18235 

18236 

18237 

18238 

18239 

18240 

18241 

18242 

18243 

18244 

18245 

18246 

18247 

18248 

18249 

18250 

18251 

18252 

18253 

18254 

18255 

18256 

18257 

18258 

18259 

18260 


ML4AD 


8247 

8248 

8249 

8250 

8251 

8252 

8253 

8254 

8255 

8256 

8257 

8258 

8259 

8260 
8261 
8262 

8263 

8264 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 

8280 
8281 
8282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

8294 

8295 

8296 

8297 

8298 


29-Mar- 1982 16:23:04 

TEST CODE SECTION 29-Mar-1982 16:21:03 


BGNTST; 


TEST NUMBER: TST 34 

TEST NAME: SYNC DATA BUS CONTINUITY TEST (WRITE PATH) 

TEST DESCRIPTION: 

TEST THE CONTINUITY OF THE 
SYNCHRONOUS MODULE WRITE PATH 
DATA BUS BY: 

1. VIA DAT DM MODE WRITE A 
BACKGROUND PATTERN OF ONES 
INTO THE GOOD BLOCK. 

2. VIA MBUS WRITE FUNCTION 
WRITE A ZEROES PATTERN INTO 
THE GOOD BLOCK. 

3. VIA DAT DM MODE READ GOOD 
NIBBLES IN THE GOOD BLOCK FOR 
ZEROES. 

4. REPEAT WITH COMPLIMENT 

DATA AND BACKGROUND PATTERNS. 

IMPLICIT INPUTS: 

PD.TEMP 

A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 

IO.BUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 

DODU FLG, 
BG P*T, 
RESULT, 
TST PAT; 


!DROP UNIT FLAG 
! BACKGROUND PATTERN 
i RESULTS FROM XO,i 
! TEST PATTERN 


TOPS-20 Bliss-16 V2(212) 

PA :<NEALE>ML4AD.BLI .4 (86) 


CZMLADO ML-11 LOGIC TEST 
T33 TEST COOE SECTION 


L 14 

MACRO Hi 113 30-MAR-82 11:18 PAGE 403 


SEQ 0386 


18262 

; ML 4 AD 

18263 

18264 

18265 

9 

8299 

18266 

8300 

18267 

8301 

18268 

8302 

18269 

8303 

18270 

8304 

18271 

8305 

18272 

8306 

18273 

8307 

18274 

8308 

18275 

8309 

18276 

8310 

18277 

8311 

18278 

8312 

18279 

8313 

18280 

8314 

18281 

8315 

18282 

8316 

18283 

8317 

18284 

8318 

18285 

8319 

18286 

8320 

18287 

8321 

18288 

8322 

18289 

8323 

18290 

8324 

18291 

8325 

18292 

8326 

18293 

8327 

18294 

8328 

18295 

8329 

18296 

8330 

18297 

8331 

18298 

8332 

18299 

8333 

18300 

8334 

18301 

8335 

18302 

8336 

18303 

8337 

18304 

8338 

18305 

8339 

18306 

8340 

18307 

8341 

18308 

8342 

18309 

8343 

18310 

8344 

18311 

8345 

18312 

8346 

18313 

8347 

18314 

8348 

18315 

8349 

18316 

8350 


TEST COOE SECTION 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2C212) 
29-Mar-1982 16:21:03 PA : <NE ALE >ML4 AD .8L 1 . 4 (86) 


CLR THRESHOLD ; 
DODO FLG = ZERO; 
BG P*T = ZEROES; 
TST PAT = ONES; 


incr TWICE from 0 to 
begin 
BGNSUB; 


CLR M8US; 

MLDl = .BG PAT 
MLD2 = .BG.PAT 
MLt2 = .BG PAT 
DAT DM.XFEff () 
MLCSl = write; 


1 do 


incr WD^CNT from 0 to 127 do 
begin 

DELAY (ONE.US); 

DAT.CLK = ONE; 
end; 


.'CLEAR ERROR PRINT THRESHOLD 

.'BG PAT EQL 0'S 
• TST PAT EOL 1’S 

! REPEAT LOOP TWICE 

•LOAD DATA DIAG REG WITH BG PAT 

.'SET UP A DATA DIAG XFERR AT THE GOOD BLK 
•DO A WRITE FUNCTION 

.'LOAD BLOCK WITH BG PAT 


CLR.MBUS; 

BAI= ONE; 

10 BUF = .TST PAT; 
GD’BLK.XFER (7; 
MLOSI = write; 

TIME OUT.LOOP; 

CLR WBUS; 
DAT'DM.XFER <); 
MLCSl = re ad; 

DELAY (ONE.US); 


.'SET ON FIRST 10 BUF ADRS 
•FIRST 10 BUF WORD EOL'S TST.PAT 
.'SET UP A GOOD BLOCK XFERR 
•DO A WRITE FUNCTION 


.'SET UP A DATA DIAG XFERR AT SAME BLOCK 
IDO A READ FUNCTION 


incr WD CNT from 0 to 112 do 
begin 

PD TEMP = .MLPD; 

DAT CLK = ONE; 

DELRY (ONE.US); 

RD.LNG.WRD; 

incr NIB.PTR from 0 to 8 do 


if .PD.TEMP C.NIB.PTR3 IS.NOT.SET 
then 


•READ 113 LONG WORDS 

I GET THE PROM DATA 
•CLOCK OUT THE DATA WORD 

•READ THE DATA WORD 

•LOOK AT 9 NIBBLES 

•FIND GOOD NIBBLES 


begin 

XOR.LNG.WRD (.NIB.PTR, .TST.PAT, RESULT); 


if .RESULT<0, 4> neq ZERO 
then 

begin 

CMP THRESHOLD; 

ERRUF (86. SYNC. DUMPER); 


I SEE IF EQUAL 

! ERROR IF NEQ 
! COMPARE ERROR 


IXOR NIBBLE DATA WITH TST.PAT 

PRINT THRESHOLD 


CZMLADO ML-11 LOGIC TEST 
T53 TEST COOE SECTION 


MACRO HI 113 30-MAP-82 11:18 PAGE 404 


SEQ 03d ’ 


18318 

18319 

18320 

18321 

18322 

18323 

18324 

18325 

18326 

18327 

18328 

18329 

18330 

18331 

18332 

18333 

18334 

18335 

18336 

18337 

18338 

18339 

18340 

18341 

18342 

18343 

18344 

18348 

18349 

18353 

18354 

18355 

18356 

18357 

18358 

18359 

18360 

18361 

18362 

18363 

18364 

18365 

18366 

18367 

18368 

18369 

18370 

18371 

18372 


HL4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.BLI.4 (86) 


065320 

065324 

065326 

065332 

065334 

065336 

065342 

065344 

065346 

065354 

065360 

065364 

065372 

065376 

065402 

065406 

065412 

065416 

065424 

065426 


8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 

8366 

8367 

8368 

8369 

8370 

8371 

8372 

8373 

8374 


004167 

024646 

005067 

005046 

005001 

012702 

005046 

104402 

152777 

016705 

042705 

142777 

150577 

010177 

010177 

010177 

004767 

012777 

005003 

012704 


PRINTS (FIV FMT, URD 24. WRD 25. WRD 10. URD 12, FNC 5); 
PRINTB CFHT 5. .TST.PAT. .RESULT. .NlB PTR>;~ 

DODU FLG = ONE; 
end 


ENDSUB; 

if -DODU.FLG IS.SET 
then 

begin 

DODU (.NL.LUN); 

DOC IN; 
end; 

BG PAT = not .BG PAT; 
TST.PAT = not .T5T.PAT; 
end; 


ENDTST; 


117266 

130044 


177777 


000040 130070 

130452 

177770 

000007 130052 

130046 

130172 

130176 

130152 

130774 

000061 127760 

000001 


•DROP THIS UNIT IF DODU IS SET 
!AND EXITS TEST 


! COMPLIMENT BG PAT 
i COMPLIMENT TST.PAT AND REPEAT 


.SBTTL 

JSR 

CMP 

CLR 

CLR 

CLR 

MOV 

CLR 

TRAP 

8IS8 

MOV 

BIC 

BICB 

BISB 

MOV 

MOV 

MOV 

JSR 

MOV 

CLR 

MOV 


$T34 TEST CODE SECTION 
Rl ,$SAVE5 
-(SP).-(SP) 

P.CNT 

-(SP> 

Rl 

#-1.R2 

-(SP) 

2 

#40,BML.REG+40 

ML.DUT.R5 

#1 77776, R5 

#7,BML.RE6+40 

R5,aML.REGH0 

Rl.aML.REG^-170 

R1,aML.REG>200 

R1.8MI.REG+160 

PC.DAT.OM.XFER 

#61 .BML.REG 

R3 

#1 ,R4 


DODU. FLG 
BG.PAT 
*.TST.PM 
TWICE 


BG.PAT,* 

BG.PAT,* 

BG.PAT.* 


WD.CNT 

*,$$TMP2 


CZMLADO HL-11 LOGIC TEST 
ST34 TEST CODE SECTION 


MACRO H1 113 30-HAR-82 


S 18374 ;ML4AD 

< 18375 


18376 

8 18377 065432 001411 

9 18378 065434 016705 

18379 065440 001404 

18380 065442 005066 

18381 065446 005305 

18382 065450 001374 

1 j 18383 065452 005304 

18384 065454 000766 

18385 065456 152777 

18386 065464 005203 

18387 065466 020327 

18388 065472 003755 

18389 065474 152777 

18390 065502 016705 

18391 065506 042705 

18392 065512 142777 

18393 065520 150577 

18394 065524 152777 

18395 065532 010267 

18396 065536 004767 

18397 065542 012777 

18398 065550 105777 

2 18399 065554 100375 

\ 18400 065556 152777 

b 18401 065564 016705 

18402 065570 042705 

18403 065574 142777 

18404 065602 150577 

18405 065606 004767 

18406 065612 012777 

18407 065620 012704 

18408 065624 001411 

18409 065626 016705 

18410 065632 001404 

18411 065634 005066 

18412 065640 005305 

18413 065642 001374 

18414 065644 005304 

18415 065o4ft 000766 

18416 065650 005003 

18417 065652 017767 

18418 065660 152777 

18419 065666 012704 

18420 065672 001411 

18421 065674 016705 

18422 065700 001404 

18423 065702 005066 

18424 065706 005305 

18425 065710 001374 

18426 065712 005304 

18427 065714 000766 

18428 065716 017767 




3$: 

BEO 

114456 



MOV 




BEQ 

000006 


4$: 

CLR 



DEC 




BNE 



5$: 

DEC 




BR 

000020 

130040 

6$: 

BJS8 




INC 

000177 



CMP 




BLE 

000040 

127742 


BIS8 

130324 



MOV 

177770 



BIC 

000007 

127724 


B1CB 

127720 



BISS 

000010 

127712 


BISS 

126264 



nov 

132550 



JSR 

000061 

127634 


MOV 

127700 


7$: 

TSTB 




BPL 

000040 

127660 


BISS 

130242 



MOV 

177770 



BIC 

000007 

127642 


BICB 

127636 



BISB 

130600 



JSR 

000071 

127564 


MOV 

000001 



MOV 



8$: 

BEO 

114264 



MOV 




BEQ 

000006 


9S: 

CLR 




DEC 




BNE 



10$: 

DEC 




BR 



11$: 

CLR 

127756 

127462 

12$: 

MOV 

000020 

127636 


BISS 

000001 



MOV 



13$: 

BEQ 

114216 



MOV 




BEQ 

000006 


14$: 

CLR 




DEC 




BNE 



15$: 

DEC 




BR 

127652 

125450 

16$: 

MOV 



B 15 


LZHlADO HL-11 LOOK TEST 

MACRO H1 113 30-MAR -82 

11:18 PAGE 406 


ST34 TEST CODE 

SECTION 






18430 





; HI 4 AD 



18431 

4 A/ 





• 

TEST CODE SECTION 


18432 

18433 

065724 

017767 

127654 

125444 

NOV 

aHL.REG+200,D2.TEHP 


18434 

065732 

017767 

127626 

125440 

MOV 

aML.REG*160,E2.TEHP 


18435 

065740 

005004 



CLR 

R4 

; NIB.PTR 

18436 

065742 

010405 



17$: HOV 

R4,R5 

; NIB.PTR,* 

18437 

065744 

006205 



ASR 

R5 


18438 

065746 

006205 



ASR 

R5 


18439 

065750 

006205 



ASR 

R5 


18440 

065752 

062705 

015342 


ADD 

#PD. TEMP, R5 


18441 

065756 

010546 



HOV 

R5,-(SP> 


18442 

065760 

010446 



HOV 

R4,-(SP) 

; NIB.PTR,* 

18443 

065762 

042716 

177770 


BIC 

#1 77770. (SP) 


18444 

065766 

012746 

000001 


HOV 

#1,-<SP) 


18445 

065772 

005046 



CLR 

-(SP> 


18446 

065774 

004767 

115634 


JSR 

PC.BLSGT2 


18447 

066000 

062706 

000010 


ADD 

#10, SP 


18448 

066004 

005700 



TST 

RO 


18449 

066006 

001071 



BNE 

20$ 


18450 

066010 

010446 



HOV 

R4,-(SP) 

; NIB.PTR,* 

18451 

066012 

010246 



HOV 

R2.-CSP) 

; TST. PAT,* 

18452 

066014 

012746 

000012 


HOV 

#12,-<SP> 


18453 

066020 

060616 



ADD 

SP,(SP> 

; RESULT,* 

18454 

066022 

004767 

133044 


JSR 

PC.XOR.LNG.WRD 


18455 

066026 

032766 

000017 

000012 

BIT 

#17,12<SP) 

; *, RESULT 

18456 

066034 

001454 



BEQ 

19$ 


18457 

066036 

005267 

127334 


INC 

P.CNT 

• 

18458 

066042 

026767 

127330 

127330 

CMP 

P.CNT, LIMIT 


18459 

066050 

003403 



BLE 

18$ 


18460 

066052 

062706 

000006 


ADD 

*6.SP 


18461 

066056 

000451 



BR 

21$ 


18462 

066060 

104455 



18$: TRAP 

55 

# 

18463 

066062 

000126 



.WORD 

126 


18464 

066064 

012750 



.WORD 

SYNC 


18465 

066066 

026302 



.WORD 

DUMPER 


18466 

066070 

012746 

012216 


HOV 

#FNC.5.-(SP> 

# 

18467 

066074 

012746 

010650 


HOV 

#WRD.12,-(SP> 


18468 

066100 

012746 

010630 


HOV 

#WRD.10,-<SP> 


18469 

066104 

012746 

011002 


HOV 

#WRD.25,-(SP> 


18470 

066110 

012746 

010774 


HOV 

#WRD.24,-(SP) 


18471 

066114 

012746 

010304 


HOV 

#FJV.FHT,-(SP> 


18472 

066120 

012746 

000006 


HOV 

#6,-(SP> 


18473 

066124 

010600 



HOV 

SP,RO 

; SP,* 

18474 

066126 

104414 



TRAP 

14 


18475 

066130 

010416 



HOV 

R4, (SP) 

; NIB.PTR, 

18476 

066132 

016646 

000030 


HOV 

30(5P),-(SP) 

* 

18477 

066136 

010246 



MOV 

R2, -(SP) 

; TST. PAT, 

18478 

066140 

012746 

006650 


HOV 

#FMT.5,-(SP) 


18479 

066144 

012746 

000004 


HOV 

#4,-<S P) 


18480 

066150 

010600 



HOV 

SP,R0 

; SP,* 

18481 

066152 

104414 



TRAP 

14 


18482 

066154 

012766 

000001 

000036 

Mfty 

#1 ,36 (SP) 

; *,DODU.FI 

18483 

066162 

062706 

000026 


ADD 

#26, SP 

# 

18484 

066166 

062706 

000006 


19$: ADD 

#6,SP 

• 


SEO 0589 

29-Har-1982 16:23:04 TOPS 
29-H*r-1982 16:21:05 PA:< 


8339 

8341 


8344 

8346 

8348 

8350 

8351 


8352 


8353 

8348 

8343 


CZMIADO Hl-11 LOGIC TEST 
ST 34 TEST COOE SECTION 


C 15 

MACRO HI 113 30-MAR-82 11:18 PAGE 40? 


SEQ 0390 


18486 

18487 

18488 

18489 

18490 

18491 

18492 

18493 

18494 

18495 

18496 

18497 

18498 

18499 

18500 

18501 

18502 

18503 

18504 

18505 

18506 

18507 

18508 

18509 

18510 

18511 

18512 

18513 

18518 

18519 

18523 

18524 

18528 

18529 

18530 

18531 

18532 

18533 

18534 

18535 

18536 


066172 

066174 

066200 

066202 

066204 

066210 

066212 

066214 

066216 

066220 

066224 

066232 

066234 

066240 

066242 

066244 

066246 

066250 

066252 

066256 

066260 

066264 


066266 

066266 

066272 

066274 

066276 

066300 




;ML4AD 

005204 


20S: 

020427 

003660 

000010 

21$: 

005203 


020327 

003620 

104467 

006000 

103002 

000160 

22$: 

000167 

177120 

026627 

001004 

000002 000001 

23$: 

016700 

104451 

104444 

127570 


005101 

005102 

005216 


24$: 

021627 

003760 

000001 


062706 

000207 

000010 




TEST CODE SECTION 

INC 

R4 

CMP 

R4.#10 

BLE 

17i 

INC 

R3 

CMP 

R3,#160 

BLE 

12$ 

TRAP 

67 

ROR 

RO 

SHIS 

23$ 

JMP 

1$ 

CMP 

2(SP).#1 

BNE 

24$ 

MOV 

ML.LUN.RO 

TRAP 

51 

TRAP 

44 

COM 

R1 

COM 

R2 

INC 

<SP) 

CMP 

(SP).f 1 

BLE 

22$ 

ADD 

#10,SP 

RTS 

PC 


; Routine Size: 243 words 
; Maximum stack depth per invocation 


004767 

104466 

006000 

103773 

000207 


177026 


T34: : 

.S8TTL 

T34 TEST CODE SECTION 

1$: 

JSR 

PC,ST34 


TRAP 

66 


ROR 

RO 


6L0 

1$ 


RTS 

PC 


; Routine Size: 6 words 
; Maximum stack depth per invocation: 


; NIB.PTR 
; NIB.PTR.* 

; WD.CNT 
; WD.CNT.* 


; DODU.FLG,* 


; 8G.PAT 
; TST.PAT 
; TWICE 
; TWICE,* 


24 words 


0 words 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

8339 


8332 


8358 


8362 

8366 


8370 

8371 
8305 


8245 


8372 


CZMLADO ML-11 LOGIC TEST 
T34 TEST CODE SECTION 


D 15 

MACRO Mil 13 30-NAR-8 2 11:18 PAGE 408 


SEO 0391 


18542 ;ML4AD 


29-Mar-1982 16:23:04 

TOPS-20 Bliss-16 V2(212) 

18543 ; 

TEST CODE SECTION 

29-Nar-1982 16:21:03 

PA:<NEALE>ML4AD.8LJ .4 (86) 

18544 




18545 ; 

8375 !<BLF/PAGE> 




CZMLADO ML-11 LOGIC TEST 
T34 TEST CODE SECTION 


MACRO Ml 1 1 3 30-MAR-82 11:18 PAGE 409 


SEO 0392 


18547 

18548 

18549 

18550 

18551 

18552 

18553 

18554 

18555 

18556 

18557 

18558 

18559 

18560 

18561 

18562 

18563 

18564 

18565 

18566 

18567 

18568 

18569 

18570 

18571 

18572 

18573 

18574 

18575 
1P576 

18577 

18578 

18579 

18580 

18581 

18582 

18583 

18584 

18585 

18586 

18587 

18588 

18589 

18590 

18591 

18592 

18593 

18594 

18595 

18596 

18597 

18598 

18599 

18600 
18601 


; ML 4 AO 


8376 

8377 

8378 

8379 

8380 

8381 

8382 

8383 

8384 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 

8399 

8400 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 35 


29-Nar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<212) 
PA:<NEALE>P-4AD.8LI .4 '87) 


TEST NAME: 


SYNC DATA BUS CONIINUITY /READ PATH 


TEST DESCRIPTION: 

TEST THE CONITNUITV Of THE SYNCHRONOUS MODULE READ 
DATA BUS BY: 

1. VIA MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 

2. VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES. 

3. REPEAT WITH COMPLIMENT DATA PATTERN. 

IMPLICIT INPUTS: 

10 BUF 

a Vector of 256 words where data for mbus reads and write 

FUNCTION ARE FOUND. 


local 

DODU FLG, 

TST PAT, 

BG.PAT; 

CLR THRESHOLD; 

DODO FLG = ZERO; 

TST PAT = ONES; 

BG.PAT = ZEROES; 

incr TWICE from 0 to 1 do 
begin 
CLR.MBUS; 

BA I = ONE; 

I0.8UF = .TST PAT; 

GD'BLK.XFER (T; 

MLtSI = write; 

TIME OUT.LOOP; 

BGNSOB; 

CLR.MBUS; 

incr IO.CNT from 0 to 255 do 
IO.BUF C.IO.CNTJ = .BG.PAT ; 

GD 8LK.XFER (); 

MLtSI = read; 

TIME.OUT.LOOP; 


•DROP UNIT FLAG 
•TEST PATTERN 
•BACKGROUND PATTERN 

•CLEAR ERROR PRINT THRESHOLD 


•REPEAT LOOP TWICE 


•SET ON FIRST IO.BUF ADRS 

•FIRST IO.BUF ADPS GET TST PAT 

•SET UP A GOOD BLOCK XFERR 

.'DO A WRITE FUNCTION (WRITES THE TST.PAT) 


!LOAD IO.BUF WITH BG PAT 


•SET UP A GOOD BLOCK XFERR 

.'DO A READ FUNCTION (READ THE TST PAT) 


CZMLADO ML-11 LOGIC TEST 
T34 TEST CODE SECTION 


MACRO Mil 13 30-MAR-82 11:18 PAGE 410 


SEO 0393 


18603 

18604 

18605 

18606 

18607 

18608 

18609 

18610 
18611 
18612 

18613 

18614 

18615 

18616 

18617 

18618 

18619 

18620 
18621 
18622 

18623 

18624 

18625 

18626 

18627 

18628 

18629 

18630 

18631 
18635 
18656 

18640 

18641 

18642 

18643 

18644 

18645 

18646 

18647 

18648 

18649 

18650 

18651 

18652 

18653 

18654 

18655 

18656 

18657 


;ML4AD 


066302 

066306 

066312 

066314 

066320 

066322 

066324 

066332 

066336 

066342 

066350 

066354 

066362 

066366 

066372 

066400 

066404 

066406 


8428 

8429 

8430 

8431 

8432 

8433 

8434 

8435 

8436 

8437 

8438 

8439 
8*40 

8441 

8442 

8443 

8444 

8445 

8446 

8447 

8448 

8449 

8450 

8451 

8452 

8453 


004167 

005067 

005046 

012701 

005004 

005005 

152777 

016703 

042703 

142777 

150377 

15277? 

010167 

004767 

012777 

105777 

100375 

104402 


TEST CODE SECTION 

incr IO.CNT from 0 to 255 do 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Btiss-16 V2(2 12) 
PA:<NEALE>ML4AD.8LI .4 (87) 


!READ THE I0.8UF FOR TEST PATTERN 
I SEE IF IO.BUF WORD EOLS TST PAT 


if .IO_BUF C.IO.CNtt neq .TST.PAT 'SEE IF IO.BUF WORD EOLS TST PAT 

the °begin ! ERROR AND SET DODU FL6 IF NEQ 

CMP THRESHOLD; .'COMPARE ERROR PRINT THRESHOLD 

ERR0F (87, SYNC, DUMPER); 

PRINTS (SEV.FMT, WRD 24, WRD.25, WRD 10, WRD12, WRD 23, FNC 6. WRD 19); 

PRINTS (FMT 2, .TST PAT, .10 BUF C.lO.CNTJ, T.TST.PAT xor .iO.BUF C.I0.CNT3)); 
DODU FLG = ONE; 


ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU C.ML.LUN); 

DOCLN; 

end; 

TST PAT = not .TST PAT; 
BG PAT = not .BG.PAT; 
en3; 


ENDTST; 


116304 

127064 

177777 


ST35: 


127112 IS: 


000040 127112 

127474 

177770 

000007 127074 
127070 

000010 127062 

125434 

131720 

000061 127004 

127050 


JDROP THIS UNIT IF DODU.FLG IS SET 


.'COMPLIMENT TST PAT 
! COMPLIMENT BG.PAT AND REPEAT 


.SBTTL ST35 TEST CODE SECTION 
JSR Rl,$SAVE5 

CLR P.CNT 

CLR -<SP) 

MOV A-1 ,R1 

CLR R4 

CLR R5 

BISB #40,3ML.REG+40 
MOV ML.DUT.R3 

BIC #17777 0,R3 

SICS #7,8ML.REG+40 
BISS R3.BML.REG+40 
BISB #10,BML.REG+40 

MOV RMO.BUF 

JSR PC.GD.BLK.XFER 

MOV #61.BML.REG 

TSTB BML.REG+50 

BPL 2$ 

TRAP 2 


DODU. FLG 
*, TST. PAT 
BG.PAT 
TWICE 


TST. PAT.* 


iCZMLADO ML-11 LOGIC TEST 
ST35 TEST CODE SECTION 
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18659 

18660 
18661 
18662 
18663 
1866A 

18665 

18666 

18667 

18668 

18669 

18670 

18671 

18672 

18673 

186 74 

18675 

18676 

18677 

18678 

18679 

18680 
18681 
18682 
18683 
1868A 

18685 

18686 

18687 

18688 

18689 

18690 

18691 

18692 

18693 

18694 

18695 

18696 

18697 

18698 

18699 

18700 

18701 

18702 

18703 

18704 

18705 

18706 

18707 

18708 

18709 

18710 

18711 

18712 

18713 


; ML 4 AO 


066410 

066416 

066422 

066426 

066434 

066440 

066442 

066444 

066446 

066452 

066454 

066460 

066462 

066466 

066474 

066500 

066502 

066504 

066506 

066510 

066514 

066516 

066520 

066524 

066532 

066534 

066536 

066540 

066542 

066544 

066550 

066554 

066560 

066564 

066570 

066574 

066600 

066604 

066610 

066612 

066614 

066616 

066620 

066624 

066630 

066632 

066634 

066636 

066642 

066646 

066650 

066652 


152777 

016703 

042703 

142777 

150377 

005002 

010203 

006303 

010463 

005202 

020227 

003770 

004767 

012777 

105777 

100375 

005002 

010203 

006303 

062703 

021301 

001462 

005267 

026767 

003060 

104455 

000127 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

011316 

010146 

046616 

040166 

052616 

011346 

010146 

012746 

012746 

010600 

104414 

012766 


000040 127026 

127410 

177770 

000007 127010 
127004 


014022 

000377 

131624 

000071 126710 

126754 5S: 


014022 


126652 

126646 126646 


010730 

012226 

010766 

010650 

010630 

011002 

010774 

010342 

000010 


000002 

000002 


006506 

000004 


000001 000032 


TEST CODE **“ r TION 

BISS #40.BML.Rt r <0 

MOV Ml.DUT.R3 

BIC #177776.R3 

BICS #7,aML.REG+40 

B1SB R3,aML.REG+40 

CLR R2 , 

MOV R2.R3 

ASL R3 

MOV R4.I0.8UF (R3) 

INC R2 

CMP R2,#377 

BLE 4$ 

JSR PC.GD.8LK.XFER 

MOV #71,aML.REG 

TSTB BML.REG+50 

BPL 5$ 

CLR R2 

MOV R2.R3 

ASL R3 

ADD #I0.BUF,R3 

CMP (R3) .R1 

BEQ 7$ 

INC P.CNT 

CMP P.CNT. LIMIT 

BGT 8S 

TRAP 55 

.WORD 127 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.19.-(SP> 

MOV #FNC.6.-(SP) 

MOV #WRD.23.-(SP) 

MOV #WRD.12.-(SP) 

MOV fWRD.IO.-(SP) 

MOV #WRD.25,-(SP) 

MOV #WRD.24.-(SP> 

MOV #SEV.FMT.-<SP) 

MOV #10.-<SP> 

MOV SP.RO 

TRAP 14 

MOV (R3) , <SP> 

MOV R1, -(SP) 

BIC 2CSPMSP) 

BIC R1.2(SP) 

BIS (SP)MSP) 

MOV CR3). -(SP> 

MOV RI.-(SP) 

MOV #FMT.2,-(SP> 

MOV #4,-(SP> 

MOV SP.RO 

TRAP 14 

MOV #1,32(SP) 


SEP 0394 


29-M*r-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

8418 



IO.CNT 

IO.CNT.* 


BG.PAT.* 

IO.CNT 

IO.CNT.* 


; IO.CNT 
; IO.CNT.* 

; *,T5T.PAT 


; SP.* 

• 

; TST.PAT,* 

; TST.PAT.* 

; TST.PAT.* 

; SP.* 

; *,DODU.FLG 


8421 

8422 


8421 


8424 

8425 


8428 


8430 


8432 

8434 

8435 



J 


H 15 
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ST 35 TEST CODE SECTION 


18715 

18716 

18717 

18718 

18719 

18720 

18721 

18722 

18723 

18724 

18725 

18726 

18727 

18728 

18729 

18730 

18731 

18732 

18733 

18734 

18735 

18736 

18737 

18738 

18739 

18740 

18745 

18746 

18750 

18751 

18755 

18756 

18757 

18758 

18759 

18760 

18761 

18762 

18763 

18768 

18769 


066660 

066664 


066674 

066676 

066700 

066702 

066706 

066710 

066714 

066716 

066720 

066722 

066724 

066726 

066732 

066734 

066740 

066742 


062706 

005202 

020227 

003704 

104467 

006000 

103642 

021627 

001004 

016700 

104451 

104444 

005101 

005104 

005205 

020527 

003002 

000167 

005726 

000207 


066744 

066744 

066750 

066752 

066754 

066756 


004767 

104466 

006000 

103773 

000207 


8454 


000032 

000377 


000001 

127114 


000001 

177364 


177332 


!<BLF/PAGE> 


; ML 4 AD 





• 


TEST CODE SECTION 




ADD 

#32, SP 

• 


7$: 

INC 

R2 

# 

IO.CNT 


CMP 

R2,#3 77 

• 

9 

IO.CNT.* 


BLE 

6$ 



8$: 

TRAP 

67 

• 

9 



ROR 

RO 




BLO 

3S 




CMP 

(SP) .#1 

9 

DODU.FLG 


BNE 

9$ 




MOV 

ML.LUN,R0 

9 



TRAP 

51 




TRAP 

44 



9$: 

COM 

R1 

• 

9 

TST. PAT 


COM 

R4 

• 

9 

BG.PAT 


INC 

R5 

9 

TWICE 


CMP 

R5,#1 

9 

TWICE,* 


BGT 

10S 




JMP 

1$ 



10$: 

TST 

(SP)* 

• 

9 



RTS 

PC 




; Routine Size: 145 words. 

; Maximum stack depth per invocation: 20 words 


SEO 0395 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

8432 

8428 

8438 

8442 

8445 

8449 

8450 
8410 

8374 


T35: : 

.S8TTL 

T35 TEST CODE SECTION 

IS: 

JSR 

PC,$T35 


TRAP 

66 


ROR 

RO 


BLO 

IS 


RTS 

PC 


; Routine Size: 6 words 

; Maximus stack depth per invocation: 0 words 


8451 


tZHIADO HL-11 LOGIC TEST 
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SEO 0396 


18771 

18772 

18773 

18774 

18775 

18776 

18777 

18778 

18779 

18780 

18781 

18782 

18783 

18784 

18785 

18786 

18787 

18788 

18789 

18790 

18791 

18792 

18793 

18794 

18795 

18796 

18797 

18798 

18799 

18800 
18801 
18802 

18803 

18804 

18805 

18806 

18807 

18808 

18809 

18810 
18811 
18812 

18813 

18814 

18815 

18816 

18817 

18818 

18819 

18820 
18821 
18822 

18823 

1 8824 

18825 


ML 4 AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 

8463 

8464 

8465 

8466 

8467 

8468 

8469 

8470 

8471 

8472 

8473 

8474 

8475 

8476 

8477 

8478 

8479 

8480 

8481 

8482 

8483 

8484 

8485 

8486 

8487 

8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 

8504 

8505 

8506 


BGNTST; 


*TEST NUMBER: 


TEST NA.\ 


TST 36 

RAM BUS ADRS COUNTER TEST /WRITE PATH 


TEST DESCRIPTION: 


TEST ABILITY OF THE RAM.8US ADDRESS 
COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING WRITE FUNCTIONS BY: 

1. LOADING A REPEATING COUNT OF 0 
TO 63 INTO THE NIBBLES OF THE 
FIRST 64 WORDS OF THE IO.BUF. 

2. VIA MBUS WRITE FUNCTION WRITE 
THE CONTENTS OF THE I0.8UF 
INTO THE GOOD BLOCK. 

3. VIA DAT DM READ GOOD NIBBLES IN 
THE GOOD BLOCK FOR THE UNBROKEN 
COUNT OF 0 TO 63. 

ONCE A BAD NIBBLE IS ENCOUNTERED 
MASK THAT NIBBLE FROM FURTHER 
READS. 

4. REPEAT READING NIBBLES UNTIL 

113 WORDS ARE READ OR ALL 10 NIBBLES 
ARE MASKED. 


IMPLICIT INPUTS: 
PD TEMP 


A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 

10 B UF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 

DODU.FLG, 


!DROP UNIT FLAG 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI .4 (88) 



CZMLADO HL-11 LOGIC TEST 
T 35 TEST CODE SECTION 
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SEQ 0397 


18827 

18828 

18829 

18830 

18831 

18832 

18833 

18834 

18835 

18836 

18837 

18838 

18839 

18840 

18841 

18842 

18843 

18844 

18845 

18846 

18847 

18848 

18849 
3850 

18851 

18852 

18853 

18854 

18855 

18856 

18857 

18858 

18859 
18360 
18861 
18862 

18863 

18864 

18865 

18866 

18867 

18868 

18869 

18870 

18871 

18872 

18873 

18874 

18875 

18876 

18877 

18878 

18879 

18880 
18881 


ML 4 AD 


8507 

8508 

8509 

8510 

8511 

8512 

8513 

8514 

8515 

8516 

8517 

8518 

8519 

8520 

8521 

8522 

8523 

8524 

8525 

8526 

8527 

8528 

8529 

8530 

8531 

8532 

8533 

8534 

8535 

8536 

8537 

8538 

8539 

8540 

8541 

8542 

8543 

8544 

8545 

8546 

8547 

8548 

8549 

8550 

8551 

8552 

8553 

8554 

8555 

8556 

8557 

8558 


TEST CODE SECTION 


29-Ha r- 1982 16:23:04 
29-Ha r- 1982 16:21:03 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>HL4AD.BLI.4 (88) 


WRD CNT, 

NIB IGNORE : 
ERR.FLG. 
BAD>IB CNT, 
PASS.CNT. 
NI8.PAT; 


bitvector C16J, 


‘WORD COUNT 
{NIBBLE IGNORE FLAGS 
2 ERROR FLAG 
2BAD NIBBLE COUNT 
2PASS COUNT 
! NIBBLE PATTERN 


CLR THRESHOLD; ! CLEAR ERROR PRINT THRESHOLD 

DOD0.FLG 2 ZERO; 

WRD.CNT = ZERO; 


incr CNT from 0 to 63 do 

incr PAT.CNT from -1 to 11 by 4 do 

(iS^BUF C.WRD CNTJXO, 4> = .PAT.CNT 
(IO'BUF C.WRD CNTJX4, 4> 2 .PAT.CNT 
(IO'BUF C.WRD CNTJX8, 4> = .PAT CNT 
(I0“8UF C.WRD"CNT3X12. 4> 2 .PAT.CNT 
WRDZCNT = .WR5.CNT ♦ 1; 
end; 


2 LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 

2 LOAD NIBBLES IN WORD WITH REPEATING COUNTS OF 0-63 

1; 'LOAD FIRST NIBBLE IN WORD 

2; 2 LOAD SECOND NIBBLE IN WORD 

3; 2 LOAD THIRD N1B8LE IN WORD 

y 4; 2 LOAD FORTH NIBBLE IN WORD 

{INCREMENT TO NEXT WORD 


BGNSUB; 

CLR.HBUS; 

GD 0LK.XFER (); 

MLCSI = write; 

TIME OUT.L OOP; 
CLR.0BUS; 

NIB IGNORE 2 ZEROES; 
PASS CNT 2 ZEROES; 

NIB PAT = ZEROES; 

BAD NIB CNT 2 ZEROES; 
DAT’DM ?FER (); 

MLCSl 2 read; 

DELAY (ONE. US); 


do 


begin 

PD TEMP = .MLPD; 

DAT.CLK 2 ONE: 

DEL*Y (GNE.US); 

RD.LNG.URD; 

incr NI8.PTR from 0 to 8 do 
begin 


•SET UP A GOOD BLOCK XFERR 
•DO A WRITE FUNCTION 


2 SET UP A DATA DIAG MODE AT THE GOOD BLOCK 
•DO A READ FUNCTION 

! LOOP UNTIL THE BLOCK IS READ OR 9 BAD NIBBLES FOUND 

•GET THE PROM DATA 
• CLOCK OUT THE DATA WORD 

•READ THE DATA DIAG REGISTERS 

•LOOK AT 9 NIBBLES 


if .PD.TEMP C.NIB.PTRJ IS.NOT.SET 2 FIND GOOD NIBBLES 

then 

begin 

if .NI8.IGN0RE C.NIB.PTR3 IS.NOT.SET 2 SEE IF THIS NIBBLE FOUND BAD BEFORE 

then 



CZMLADO ML-11 LOGIC TEST 
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SEO 0398 


18883 

18884 

18885 

18886 

18887 

18888 

18889 

18890 

18891 

18892 

18893 

18894 

18895 

18896 

18897 

18898 

18899 

18900 

18901 

18902 

18903 

18904 

18905 

18906 

18907 

18908 

18909 

18910 

18911 

18912 

18913 

18914 

18915 

18916 

18917 

18918 

18919 

18920 

18921 

18922 

18923 

18927 

18928 

18932 066760 

18933 066764 

18934 066770 

18935 066774 

18936 066776 

18937 067000 


8559 

8560 

8561 

8562 

8563 

8564 

8565 

8566 

8567 

8568 

8569 

8570 

8571 

8572 

8573 

8574 

8575 

8576 

8577 

8578 

8579 

8580 

8581 

8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 

8592 

8593 

8594 

8595 

8596 


004167 

162706 

005067 

005046 

005003 

005002 


TEST CODE SECTION 

begin 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


7OPS-20 Bliss-16 V2<212) 
PA:<NEALE>NL4AD.BLI .4 (88) 


begin 

TST.LNG.URD (.NIB.PTR, .NIB.PAT, ERR.FLG); ! TEST THE NIBBLE IF NEVER FOUND BAD 

if .ERR.FLG IS.SET !SEE IF TEST FOUND AN ERROR 

then begin ! ERROR AND SET DODU.FLG IS SET 

CMP THRESHOLD; ! COMPARE ERROR PRINT THRESHOLD 

ERRBf (88. ARR DAT. DUMPER); 

PRINTS (SIX FNT, FNC 18. WRD.50. WRDJO. WRD.12, FNC.5. WRD.19); 

DODU.FLG = ONE; 


end 


end 


else 


end 


begin 

NIB.IGNORE C.NIB PTRJ = ONE; 
BAD>IB.CNT = .8to.NIB.CNT ♦ 1; 
end; 

NIB.PAT = .NIB.PAT ♦ 1; 
end; 


! THIS NIBBLE IS BAD 

i SET THIS NIBBLE NIB.IGNORE FLAG 
•INCREMENT BAD NIB COUNT 


•INCREMENT NIB PAT 
•INCREMENT PASS COUNT 


PASS.CNT = .PASS.CNT + 1; 
end 

until (.PASS.CNT eql 113) or (.BAD.NIB.CNT eql 9); ‘REPEAT UNTIL COMPLETE 


ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


{DROP THIS UNIT IF DODU.FLG SET 


115626 

000006 

126402 


ST36: 


.S8TTL 

$T36 TEST CODE SECTION 


JSR 

R1.SSAVE5 

0 

SUB 

#6,SP 


CLR 

P.CNT 

* 

0 

CLR 

-(SP) 

; DODU.FLG 

CLR 

R3 

; URD.CNT 

CLR 

R2 

; CNT 


8453 

8512 

8515 

8516 
8518 



CZNLADO HL-11 LOGIC TEST 
ST36 TEST COOE SECTION 
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18939 

18940 

18941 

18942 

18943 

18944 

18945 

18946 

18947 

18948 

18949 

18950 

18951 

18952 

18953 

18954 

18955 

18956 

18957 

18958 

18959 

18960 

18961 
1 
1 

18964 

18965 

18966 

18967 

18968 

18969 

18970 

18971 
1897 

1897 

18974 

18975 

18977 

18978 

18979 

18980 

18981 

1898 
1898. 

18984 

18985 

18986 

18987 

18988 

18989 

18990 

18991 

18992 

18993 


; ML 4 AD 


067002 

067006 


067012 

067016 

067020 

067022 

067026 

067032 

067034 

067036 

067042 

067044 

067046 

067050 

067052 

067056 

067062 

067064 

067066 

067072 

067074 

067100 

067104 

067106 

067110 

067114 

067116 

067120 

067122 

067124 

067126 

067132 

067136 

067140 

067142 

067146 

067152 

067154 

067156 

067162 

067164 

067166 

067174 

067200 

067204 


012700 177777 
01 0301 
006301 


067216 

067222 

067230 


67236 


006301 

062701 

010005 

005205 

042705 

142711 

150511 

010005 

062705 

006305 

006305 

006305 

006305 

042705 

142711 

150511 

010005 

062705 

000305 

042705 

042711 

050511 

010005 

062705 

000305 

006305 

006305 

006305 

006305 

042705 

04271 1 

050511 

005203 

062700 

020027 

003715 

005202 

020227 

003707 

104402 

152777 

016702 

042702 

142777 

150277 

004767 

012777 

105777 

100375 

152777 


014022 


177760 

000017 


000002 


177417 

000360 


000003 

170377 

007400 


000004 


007777 

170000 


000004 

000013 


000077 


000040 

126632 

177770 

000007 

126226 

131070 

000061 

126220 


126250 


126232 


126154 


000040 126200 


TEST CODE SECTION 

MOV #-1 ,R0 

NOV R3.R1 

ASL R1 

ADD #IO.BUF ,R1 

NOV R0.R5 

INC R5 

BIC #1 77760. R5 

B1CB #17,(R1) 

BIS8 R5,(R1> 

NOV R0.R5 

ADD #2,R5 

ASL R5 

ASL R5 

ASL R5 

ASL R5 

BIC #177417.R5 

BICB #360, <R1) 

BISS R5,(R1) 

NOV R0,R5 

ADD #3,R5 

SWAB R5 

BIC #1 70377, R5 

BIC #7400. (R1) 

BIS R5,(R1) 

NOV R0.R5 

ADD #4,R5 

SWAB R5 

ASL R5 

ASL R5 

ASL R5 

ASL R5 

BIC #7777. R5 

BIC #170000. <R1> 

BIS R5, CR1 ) 

INC R3 

ADD #4,R0 

CMP R0,#13 

BLE 2$ 

INC R2 

CMP R2,#77 

BLE 1$ 

TRAP 2 

8IS8 #40,9ML.REG+40 

MOV HL.DUT.R2 

BIC #1 77776. R2 

BICB #7,8NL.REG+40 

81 SB R2.aML.REG+40 

JSR PC.GD.BLK.XFER 

MOV #61 .3ML.REG 

TST8 BML.REG+50 

BPL 4$ 

81 SB #40,aML.REG+40 


SEQ 0399 


; *, PAT. CNT 
; WRD.CNT.t 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS 

PA:< 


8520 


8522 


; PAT.CNT,* 

; PAT.CNT,* 

; PAT.CNT.* 

; PAT.CNT,* 


; WRD.CNT 
; *, PAT.CNT 
; PAT.CNT,* 


; CNT 
; CNT,* 





8533 


CZNLADO HL-11 LOG»C TEST 
$T36 TEST CODE SECTION 


n is 

NACRO All 13 30-NAR-82 11:18 PAGE 41? 


SEQ 0400 


18995 

18996 

18997 

18998 

18999 

19000 

19001 

19002 

19003 

19004 

19005 

19006 

19007 

19008 

19009 

19010 

19011 

19012 

19013 

19014 

19015 

19016 

19017 

19018 

19019 

19020 

19021 

19022 

19023 

19024 

19025 

19026 

19027 

19028 

19029 

19030 

19031 

19032 

19033 

19034 

19035 

19036 
1903? 

19038 

19039 

19040 

19041 

19042 

19043 

19044 

19045 

19046 

19047 

19048 

19049 


;NL4AD 


067244 

067250 

067254 

067262 


067272 

067274 

067276 

067300 

067304 

067312 

067316 

067320 

067324 

067326 

067332 

067334 

067336 

067340 

067342 

067350 

067356 

067362 

067364 

067370 

067372 

067376 

067400 

067402 

067404 

067406 

067414 

067422 

067430 

067432 

067434 

067436 

067440 

067442 

067446 

067450 

067452 

067454 

067460 

067462 

067466 

067472 

067474 

067500 

067504 

067506 

067510 


016702 
042702 
142777 
150277 
005066 
005004 
005003 
005005 
004767 
012777 
012701 
001411 
016702 
001404 
005066 
005302 
001374 
005301 
000766 
017767 
152777 
012701 
001411 
016702 
001404 
005066 
005302 
001374 
005301 
000766 
017767 
017767 
017767 
005001 
010100 
006200 
006200 
006200 
012702 
060602 
060002 
0100*6 
06271 1> 
010146 
042716 
012746 
005046 
004767 
062706 
005700 
001077 
010246 


177770 

000007 

126156 

000004 


127106 

000071 

000001 

112572 

000006 


126266 

000020 

000001 

112526 

000006 


126162 

126164 

126136 


000004 


015342 

177770 

000001 

114134 

000010 


126162 


126072 


126146 


123754 

123750 


TEST CODE SECTION 

NOV Nl.DUT.R2 

BIC #177?76,R2 

BICB #7,aNL.REG+40 

BIS8 R2,aNL.REG+40 

CLR 4<$P) 

CLR R4 

CLR R3 

CLR R5 

JSR PC.DAT.DN.XFER 

NOV #71, BNL. REG 

NOV #1 ,R1 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


NIB. IGNORE 
PASS.CNT 
NIB. PAT 
BAD.NI8.CNT 


*,SSTNP2 


8535 

8536 

8537 

8538 

8539 

8540 

8541 


5S: 

BEQ 

8$ 



NOV 

L$DLY,R2 

; *,$$TNP1 


BEO 

7$ 


6S: 

CLR 

6(SP) 

; $$TNP 


DEC 

R2 

; $$TNP1 


BNE 

6$ 


7$: 

DEC 

R1 

; $$TNP2 


BR 

5$ 


8$: 

NOV 

3NL .REG+230 ,PD . TENP 



BISB 

#20,aNL.REG« , 120 



NOV 

#1.R1 

; *,$$TNP2 

9$: 

BEQ 

12i 



NOV 

L$DLY,R2 

; *,$$TNP1 


BEO 

11$ 


10$: 

CLR 

6CSP) 

; $$TNP 


DEC 

R2 

; $$TNP1 


BNE 

10$ 


11$: 

DEC 

R1 

; $$TNP2 


BR 

9$ 


12$: 

NOV 

aNL .REG+1 70, D1 . TENP 



NOV 

aML.REG+200,D2.TENP 



NOV 

aNL. REG+160,E2. TENP 



CLR 

R1 

; NIB.PTR 

13$: 

NOV 

R1,R0 

; NIB.PTR,* 


ASR 

RO 



ASR 

RO 



ASR 

RO 



NOV 

#4,R2 

; 


ADD 

SP t R2 

; NIB. IGNORE,* 


ADD 

RO,R 2 



NOV 

RO.-(SP) 

• 

• 


ADD 

#PD.TENP,(SP) 



NOV 

RI.-(SP) 

; NIB.PTR,* 


BIC 

#1^7770. (SP) 



NOV 

#1,-(SP) 



CLR 

-CSP) 



JSR 

PC.BL$GT2 



ADD 

#10,SP 



TST 

RO 



BNE 

16$ 



NOV 

R2,-(SP) 

* 

s 


CZHLADO HL-1 1 LOGIC TEST 
$T36 TEST COLE SECTION 
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19051 

19052 

19053 

19054 

19055 

19056 

19057 

19058 

19059 

19060 

19061 

19062 

19063 

19064 

19065 

19066 

19067 

19068 

19069 

19070 

19071 

19072 

19073 

19074 

19075 

19076 

19077 

19078 

19079 

19080 

19081 

19082 

19083 

19084 

19085 

19086 

19087 

19088 

19089 

19090 

19091 

19092 

19093 

19094 

19095 

19096 

19097 

19098 

19099 

19100 

19101 

19102 

19103 

19104 

19105 


;ML4AD 


067512 

067514 

067520 

067524 

067526 

067532 

067536 

067540 

067542 

067544 

067546 

067552 

067554 

067560 

067566 

067570 

067574 

067602 

067604 

067610 

067612 

067614 

067616 

067620 

067622 

067626 

067632 

067636 

067642 

067646 

067652 

067656 

067662 

067664 

067666 

067674 

067700 

067704 

067706 

067710 

067712 

067716 

067722 

067724 

m 


010146 

042716 

012746 

005046 

004767 

062706 

005700 

001076 

010146 

010346 

012746 

060616 

004767 

026627 

001044 

005267 

026767 

003403 

062706 

000457 

104455 

000130 

013012 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

012766 

062706 

062706 

000414 

010246 

010146 

042716 

012746 

011646 

004767 

005205 

06 | 70 | 

88118 ? 

020127 

003631 

005204 

020427 


177770 

000001 

114102 

000010 


000010 


130616 

000010 000001 
125602 

125576 125576 
000006 


010730 

012216 

010650 

010630 

011270 

012414 

010322 

000007 


000001 000026 
000020 
000006 


177770 

000001 

114142 

000010 


000010 


000161 


TEST CODE SECTION 

MOV R1 ,-<SP) 

BIC #1 77770, (SP) 

MOV #1,-(SP) 

CLR -(SP) 

JSR PC.BLSGT2 

ADD #10, SP 

TST RO 

BNE 17$ 

MOV RI.-(SP) 

MOV R3,-(SP) 

MOV #10,-(SP) 

ADD SP,(SP) 

JSR PC,TST.LNG.URD 

CMP 10(SP),#1 

BNE 15$ 

INC P.CNT 

CMP P.CNT, LIMIT 

BLE 14$ 

ADD #6,SP 

BR 18$ 

TRAP 55 

.WORD 130 

.WORD ARR.DAT 

.WORD DUMPER 

MOV #WRD.19,-(SP) 

MOV #FNC.5.-(SP) 

MOV #URD.12,-(SP) 

MOV #WRD.10,-(SP) 

MOV #URD.55,-(SP) 

MOV #FNC. 18, -(SP) 

MOV #SIX.FMT,-(SP) 

MOV #7,-< SP) 

MOV SP.RO 

TRAP 14 

MOV #1 ,26(SP) 

ADD #20,SP 

ADD #6,SP 

BR 17$ 

MOV R2,-(SP) 

MOV RI.-(SP) 

BIC #1^7770,(SP) 

MOV #1,-(SP> 

MOV (s£),-( SP) 

JSR PC.BLSPU2 

INC R5 

ADD #10,SP 

INC R3 

INC R1 

CMP R1.#10 

BLE 13* 

INC R4 

CMP R4,#161 


I 


SEO 0401 




C2HIAD0 ML— 1 1 LOGIC TEST 
ST 36 TEST CODE SECTION 


B 16 
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SEQ OAO? 


19107 




;NL4A0 


19108 

19109 

19110 

067756 

001405 


• 

BEQ 

19111 

067760 

020527 

000011 


CMP 

19112 

067764 

001402 

177350 


BEQ 

19113 

067766 

000167 

19$: 

JMP 

19114 

067772 

104467 


TRAP 

19115 

067774 

006000 



ROR 

19116 

19117 

067776 

070000 

103002 

000167 

177160 

20$: 

BHIS 

JMP 

19118 

070004 

021627 

000001 

CMP 

19119 

070010 

001004 



8NE 

19120 

070012 

016700 

126012 


MOV 

19121 

070016 

104451 



TRAP 

19122 

070020 

104444 


21$: 

TRAP 

19123 

070022 

062706 

000010 

ADD 

19124 

070026 

000207 



RTS 


19125 

19126 

19127 

19132 

19133 

19137 

19138 

19142 

19143 

19144 

19145 

19146 

19147 

19148 

19149 

19150 

19155 

19156 

19157 


TEST CODE SECTION 
19 $ 

R5JT11 

19§ 

8 $ 

67 

RO 

20 $ 

3$ 

<SP).#1 

21$ 

ML.LUN,R0 

51 

44 

#10,SP 

PC 


Routine Size: 27 6 words 
Maximiz* stack depth per invocation: 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 
PA : < 


BAD.NIB.CNT,* 


; DODU.FLG,* 


8589 

8592 

8453 


21 words 


070030 

070030 

070034 

070036 

070040 

070042 


004767 176724 

104466 

0060QQ 

103773 

000207 


8597 !<BLF/PAGE> 


T36: : 
1 $: 


.S8TTL T36 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.$T36 

66 

RO 

1 $ 

PC 


8594 


Routine Size: 6 words 

Maximum stack depth per invocation: 


0 words 



CZMLADO ML-11 L06IC TEST 
136 TEST CODE SECTION 
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SEQ 04:* 


19159 ; ML 4 AD 

19160 ; 

19161 

19162 ; 8598 

19163 ; 8599 

19164 ; 8600 

19165 ; 8601 

19166 ; 8602 

19167 ; 8603 

19168 ; 8604 

19169 ; 8605 

19170 ; 8606 

19171 ; 8607 

19172 ; 8608 

19173 ; 8609 

19174 ; 8610 

19175 ; 8611 

19176 ; 8612 

19177 ; 8613 

19178 ; 8614 

19179 ; 8615 

19180 ; 8616 

19181 ; 8617 

19182 ; 8618 

19183 ; 8619 

19184 ; 8620 

19185 ; 8621 

19186 ; 8622 

19187 ; 8623 

19188 ; 8624 

19189 ; 8625 

19190 ; 8626 

19191 ; 8627 

19192 ; 8628 

19193 ; 8629 

19194 ; 8630 

19195 ; 8631 

19196 ; 8632 

19197 ; 8633 

19198 ; 8634 

19199 ; 8635 

19200 ; 8636 

19201 ; 8637 

19202 ; 8638 

19203 ; 8639 

19204 ; 8640 

19205 ; 8641 

19206 ; 8642 

19207 ; 8643 

19208 ; 8644 

19209 ; 8645 

19210 ; 8646 

19211 ; 8647 

19212 ; 8648 

19213 ; 8649 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (89) 


BGNTST; 


*TEST NUMBER: TST 37 

TEST NAME: RAM BUS ADRS COUNTER TEST /READ PATH 

TEST DESCRIPTION: 

TEST ABILITY OF RAM/BUS ADRS 
COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS BY: 

1. LOADING A REPEATING COUNT OF 0 
TO 63 INTO THE NIB8LES OF THE 
FIRST 64 WORDS OF THE IO.BUF. 

2. VIA MBUS WRITE FUNCTION WRITE 
THE CONTENTS OF THE IO.BUF 
INTO THE GOOD BLOCK. 

3. CLEAR OUT THE IO.BUF 

4. VIA MBUS READ FUNCTION READ 

THE GOOD BLOCK FOR THE REPEATING 
COUNT OF 0 TO 63. 

IMPLICIT INPUTS: 

IO.BUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 

DODU FLG, 
WRD.CNT, 
PAT.INC, 
SIZ.EXP, 

POS EXP, 
TEMP; 

CLR THRESHOLD; 

CLR'MBUS; 

DODO FLG = ZERO; 

WRD tNT = ZERO; 


!DROP UNIT FLAG 

!word courn 

! PATTERN INCREMENT 
.'SIZE EXPRESSION 
.'POSITIONAL EXPRESSION 
! TEMPORARY STORAGE LOCATION 

! CLEAR ERROR PRINT THRESHOLD 


CZMLADO ML-11 LOGIC TEST 
T36 TEST CODE SECTION 


0 16 
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SEO (KC4 


19215 

19216 

19217 

19218 

19219 

19220 

19221 

19222 

19223 

19224 

19225 

19226 

19227 

19228 

19229 

19230 

19231 

19232 

19233 

19234 

19235 

19236 

19237 

19238 

19239 

19240 

19241 

19242 

19243 

19244 

19245 

19246 

19247 

19248 

19249 

19250 

19251 

19252 

19253 

19254 

19255 

19256 

19257 

19258 

19259 

19260 

19261 

19262 

19263 

19264 

19265 

19266 

19267 

19268 

19269 


ML4A0 


8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 

8659 

8660 
8661 
8662 

8663 

8664 

8665 

8666 

8667 

8668 

8669 

8670 

8671 

8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 

8680 
8681 
8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

8699 

8700 

8701 


TEST CODE SECTION 

incr COUNT from 0 to 63 do 

Incr PAT.CNT from -1 to 11 by 4 do 

(!8 8UF C.WRD CNTJXO, 4> = .PAT.CNT 
(I0I8UF C.WRD.CNT3X4. 4> = .PAT_CNT 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOP5-20 Bliss-16 V21212) 

PA : <NE ALE >ML4AD.8L I. 4 ($9) 


•LOAD 64 WORDS WITH REPEATING COUNTS Of 0-63 
•LOAD NIBBLES IN WORD WITH REPEATING COUNT Of 0-63 




(10’BUf C.WRD CNTJX8. 4> = .PAT CNT ♦ 3; 
(IO'BUf C.WRD” CNTJXlS. 4> = .PAT.CNT ♦ 4; 
WRD^CNT = .WRlJ.CNT ♦ 1; !1 

end! 


•LOAD FIRST NIBBLE IN WORD 
.'LOAD SECOND NIBBLE IN WORD 
!LOAD THIRD NIBBLE IN WORD 
!L0AD FORTH NIBBLE IN WORD 
Increment to next word 


GD BLK.XFER (); 
MLtSI = write; 
TIME.OUT.LOOP; 
BGNSOB; 


•SET UP A GOOD BLOCK XF ERR 
•DO A WRITE FUNCTION 


incr 10 CNT from 0 to 255 do 
IO.0UF C.IO.CNTJ = ZEROES; 

CLR MBUS; 

GD BLK.XFER (>; 

MLtSI = read; 

TIME OUT.LOOP; 

CLR.flBUS; 

SIZlEXP = 4; 

WRD.CNT = 0; 

incr COUNT from 0 to 63 do 


incr PAT.CNT from -1 to 11 by 4 do 
begin 

POS.EXP = ZERO; 

PAT INC = ONE; 

TEMP = .IO.BUF C.WRD.CNTJ; 

incr CNT from 0 to 3 do 
begin 


! CLEAR OUT IO.BUF 

•SET UP A GOOD BLOCK XFERR 
•DO A READ FUNCTION 

•FIELD SIZE FOR NI8BLES ALWAYS 4 BITS 

•READ 64 WORDS IN IO.BUF 

2 READ REPEATING COUNTS OF 0 -63 

.'FIELD SELECTOR SELECTS THE FOUR NIBBLES 

.'GET A WORD OUT OF IO.BUF 

•READ THE FOUR NIBBLES IN WORD 


if ,TEMP<.POS EXP. .SIZ EXP> neq (.PAT CNT ♦ .PAT INC) 

’ * 'COMPARE NIBBLE WITH RESPECTIVE 0 -63 CNT 

then begin 2 ERROR AND SET DODU FLG IF NEQ 

CMP THRESHOLD; 2 COMPARE ERROR PRINT THRESHOLD 

ERR0F (89. ARR DAT. DUMPER); A , lif4fk 

PRINTB (SIX FMT, FNC 18. WRD.50. WRD.10, WRD.12, FNC.6. URD.19); 

DODU FLG = ONE; 
end; 


POS.EXP = .POS.EXP ♦ 4; 
PAT.INC = .PAT.INC ♦ 1; 
end; 


2 POINT TO THE NEXT NIBBLE IN WORD 
.'INCREMENT THE 0-o3 COUNT 


UHLADO HL-1 1 LOGIC TEST 
T36 TEST COOE SECTION 
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E 16 
°AGE 422 


SEO 0405 


19271 

19272 

19273 

19274 

19275 

19276 

19277 

19278 

19279 

19280 

19281 

19282 

19283 

19284 

19285 

19286 

19290 

19291 

19295 

19296 

19297 

19298 

19299 

19300 

19301 

19302 

19303 

19304 

19305 

19306 

19307 

19308 

19309 

19310 

19311 

19312 

19313 

19314 

19315 

19316 

19317 

19318 

19319 

19320 

19321 

19322 

19323 

19324 

19325 


;M14A0 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI.4 (89) 


8702 

8703 

8704 

8705 

8706 

8707 

8708 

8709 

8710 

8711 

8712 

8713 


WRD.CNT = .WRD.CNT ♦ 1; 
end; 


ENDSUB; 


if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 


•GET THE NEXT I0.8UF WORD 


.'DROP THIS UNIT IF DODU.FLG SET 


• 

8714 

ENDTST; 











.SBTTL 

ST37 TEST CODE SECTION 


070044 

004167 

114542 


ST37: 

JSR 

R1.SSAVE5 

# 

070050 

162706 

000012 



SUB 

#12, SP 


070054 

005067 

125316 



CLR 

P.CNT 

0 

070060 

152777 

000040 

125356 


BISB 

#40,iHL.RE6*40 

• 

0 

070066 

016705 

125740 



MOV 

ML.DUT.R5 


070072 

042705 

177770 



BIC 

#1 77770, R5 


070076 

142777 

000007 

125340 


BIC8 

#7,BML.REG+40 


070104 

150577 

125334 



BISB 

R5,BML.REG+40 


070110 

005066 

000010 



CLR 

10<SP> 

; DODU. F LG 

070114 

005066 

000002 



CLR 

2(SP) 

; URD.CNT 

070120 

005002 




CLR 

R2 

; COUNT 

070122 

012703 

177777 


IS: 

MOV 

#-1 ,R3 

; *,PAT.CNT 

070126 

016604 

000002 


2$: 

MOV 

2(SP).R 4 

; WRD.CNT,* 

070132 

006304 




ASL 

R4 


070134 

062704 

014022 



ADD 

#IO.BUF ,R4 


070140 

010305 




MOV 

R3,R5 

; PAT.CNT.* 

070142 

005205 




INC 

R5 


070144 

042705 

177760 



BIC 

#1 77760, R5 


070150 

142714 

000017 



BICB 

#17, CR4) 


070154 

150514 




BISB 

R5,(R4) 


070156 

010305 




MOV 

R3,R5 

; PAT.CNT,* 

070160 

062705 

000002 



ADD 

#2,R 5 


070164 

006305 




ASL 

R5 


070166 

006305 




ASL 

R5 


070170 

006305 




ASL 

R5 


070172 

006305 




ASL 

R5 


070174 

042705 

177417 



BIC 

#177417,R5 


070200 

142714 

000360 



BICB 

#360, <R4> 


070204 

150514 




BISB 

R5,(R4) 


070206 

010305 




MOV 

R3,R5 

; PAT.CNT,* 

070210 

062705 

000003 



ADD 

#3,R5 



8596 

8643 

8645 


8647 

8648 
8650 
8652 
8654 


8655 


8656 


L. 
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19327 




;ML4AD 


19328 




m 


19329 






19330 07C214 

000305 




SWAB 

19331 070216 

042705 

170377 



SIC 

19332 070222 

042714 

007400 



BIC 

19333 070226 

050514 




BIS 

19334 070230 

010305 




MOV 

19335 070232 

062705 

000004 



ADD 

19336 070236 

000305 




SWAB 

19337 070240 

006305 




ASL 

19338 070242 

006305 




ASL 

19339 070244 

006305 




ASL 

19340 070246 

006305 




ASL 

19341 070250 

042705 

007777 



BIC 

19342 070254 

042714 

170000 



BIC 

19343 070260 

050514 




SIS 

19344 070262 

005266 

000002 



INC 

19345 070266 

062703 

000004 



ADD 

19346 070272 

020327 

000013 



CMP 

19347 070276 

003713 




BLE 

19348 070300 

005202 




INC 

19349 070302 

020227 

000077 



CMP 

19350 070306 

003705 




BLE 

19351 070310 

004767 

127776 



JSR 

19352 070314 

012777 

000061 

125062 


MOV 

19353 070322 

105777 

125126 


3S: 

TSTB 

19354 070326 

100375 




BPL 

19355 070330 

104402 



4$: 

TRAP 

19356 070332 

005003 




CLR 

19357 070334 

010304 



5S: 

MOV 

19358 070336 

006304 




ASL 

19359 070340 

005064 

014022 



CLR 

19360 070344 

005203 




INC 

19361 070346 

020327 

000377 



CMP 

19362 070352 

003770 




BLE 

19363 070354 

152777 

000040 

125062 


BISB 

19364 070362 

016704 

125444 



MOV 

19365 070366 

042704 

177770 



BIC 

19366 070372 

142777 

000007 

125044 


BICB 

19367 070400 

150477 

125040 



BISB 

19368 070404 

004767 

127702 



JSR 

19369 070410 

012777 

000071 

124766 


MOV 

19370 070416 

105777 

125032 


6$: 

TSTB 

19371 070422 

100375 




BPL 

19372 070424 

152777 

000040 

125012 


BISB 

19373 070432 

016704 

125374 



MOV 

19374 070436 

042704 

177770 



BIC 

19375 070442 

142777 

000007 

124774 


BICB 

19376 070450 

150477 

124770 



BISB 

19377 070454 

012766 

000004 

000006 


MOV 

19378 070462 

005066 

000002 



CLR 

19379 070466 

005001 




CLR 

19380 070470 

012703 

177777 


7S: 

MOV 

19381 070474 

005005 



8$: 

CLR 


TEST CODE SECTION 
R5 

#170377,R5 
#7400, (R4) 

R5,(R4) 

R3.R5 

#4,R5 

R5 

R5 

R5 

R5 

R5 

#7777,R5 
#1 70000. CR4) 
R5.CR4) 

2($P) 

#4.R3 

R3,#13 

2 $ 

R2 

R2.#77 

IS 

PC.GD.BLK.XFER 
#61 .3ML.REG 
BML.REG+50 
3$ 

2 

R3 

R3.R4 

R4 

I0.8UF (R4) 

R3 

R3,#377 

5 $ 

#40,3ML.REG*40 

ML.DUT.R4 

#1 77776, R4 

#7,iML.REG*40 

R4.8ML.REG+40 

PC.GD.BU.XFER 

#71, ML. REG 

Ml.REG+50 

6$ 

#40,8ML.REG+40 

ML.DUT.R4 

#1 77776, R4 

#7,ML.REGH0 

R4.ML.REGM0 

#4,6(SP) 

2(SP) 

R1 

#-1 ,R3 
R5 


SEQ 0406 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


; PAT.CNT,* 


8657 


; WRD.CNT 

8658 

; *. PAT.CNT 

8652 

; PAT.CNT,* 


; COUNT 

8650 

; COUNT,* 


• 

8661 

J 

8662 

• 

0 

8663 

; IO.CNT 

8666 

; IO.CNT,* 

8667 

; IO.CNT 

8666 

; IO.CNT,* 


# 

8667 


8670 

8671 


8672 


*,SI2.EXP 
WRD.CNT 
COUNT 
*, PAT.CNT 
POS.EXP 


8674 

8675 
8677 
8679 
8681 


1 




SEa 0407 


29-War-1982 16:23:04 
29-War- 1982 16:21:03 

; *, PAT. INC 
; WRD.CNT,* 

; *,TE«P 
; CNT 
; TEMP.* 

; POS.EXP,* 

; 5IZ.EXP,* 


; PAT. CNT.* 
; PAT. INC,* 


; SP,* 

; *,DODU.FLG 

; *,POS.EXP 
; PAT. INC 
; CNT 
; CNT,* 

; WRD.CNT 
; *. PAT. CNT 
; PAT. CNT.* 

; COUNT 
; COUNT.* 


8695 

8691 

8698 

8699 
8685 


8702 

8679 


; DODU.FLG,* 


8707 

8710 
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SEQ 0408 


19439 


19440 


19441 


19442 070744 

10445 • 

19443 070746 

104444 

19444 070750 

062706 

19445 070754 

000207 

19446 


19447 


19448 


19453 


19454 


19458 


19459 


19463 070756 


19464 070756 

004767 

19465 070762 

104466 

19466 070764 

006000 

19467 070766 

103773 

19468 070770 

000207 

19469 


19470 


19471 


19476 


19477 


19478 ; 

8715 


000012 


177062 


! OLE /PAGE > 


;ML4AD 


12 $: 


29-Mar-1982 16:23:04 TOPS 



TEST CODE SECTION 


29-Mar-1982 16:21:03 

PA:< 

TRAP 

51 




TRAP 

44 




ADD 

#12. SP 

e 


8596 

RTS 

PC 





; Routine Size: 229 words 

; Naximm stack depth per invocation: 19 words 


.S8TTL T37 TEST CODE SECTION 

T37* * 

1*:" JSR PC.ST37 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


8712 
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SEQ 0409 


19480 

19481 

19482 

19483 

19484 
1948$ 

19486 

19487 

19488 

19489 

19490 

19491 

19492 

19493 

19494 

19495 

19496 

19497 

19498 

19499 

19500 

19501 

19502 

19503 

19504 

19505 

19506 

19507 

19508 

19509 

19510 

19511 

19512 

19513 

19514 

19515 

19516 

19517 

19518 

19519 

19520 

19521 

19522 

19523 

19524 

19525 

19526 

19527 

19528 

19529 

19530 

19531 

19532 

19533 

19534 


HL4AD 


8716 

8717 

8718 

8719 

8720 

8721 

8722 

8723 

8724 

8725 

8726 

8727 

8728 

8729 

8730 

8731 

8732 

8733 

8734 

8735 

8736 

8737 

8738 

8739 

8740 

8741 

8742 

8743 

8744 

8745 

8746 

8747 

8748 

8749 

8750 

8751 

8752 

8753 

8754 

8755 

8756 

8757 

8758 

8759 

8760 

8761 

8762 

8763 

8764 

8765 

8766 

8767 


TEST CODE SECTION 


BGNTST; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TEST NUMBER: 


TST 38 

TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH 

TEST DESCRIPTION: 

TEST SYNCHRONOUS DATA BUS FOR 
DATA BIT UNIQUENESS BY: 

1. LOADING THE FIRST 16 WORDS IN 
THE 10 BUF WITH A SHIFTING 
ZERO Ifl A FIELD OF ONES PATTERN. 

2. VIA MBUS WRITE FUNCTION WRITE 
SHIFTING PATTERN THROUGH THE 
DATA BUS AND INTO THE GOOD 
BLOCK. 

3. VIA DAT DM MODE READ THE 
GOOD BLOCK AND SAVE ALL GOOD 
NIBBLE DATA. IN THEIR PROPER 
SEQUENCE. INTO A STACK 
STRUCTURE. 

4. INTERRIGATE STACK STRUCTURE FOR 
SHIFTED DATA PATTERN. 

IMPLICIT INPUTS: 

PD TEMP 

A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 

10 BUF 

a Vector of 256 words where 

DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 

STACK 

A VECTOR OF 198 BYTE LOCATIONS 
WHERE GOOD NIBBLE DATA IS STORED 
WHEN STRIPPING AWAY BAD NIBBLE 
LOCATIONS OF A BLOCK. 


TOPS-20 Bliss-16 V21212) 

PA : <NEALE >ML4 AD .8L 1 . 4 (90) 


iCZHLADO HI- 11 LOGIC TEST 
! T3 7 TEST CODE SECTION 
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SEO 0410 


19536 

19537 

19538 

19539 

19540 

19541 

19542 

19543 

19544 

19545 

19546 

19547 

19548 

19549 

19550 

19551 

19552 

19553 

19554 

19555 

19556 

19557 

19558 

19559 

19560 

19561 

19562 

19563 

19564 

19565 

19566 

19567 

19568 

19569 

19570 

19571 

19572 

19573 

19574 

19575 

19576 

19577 

19578 

19579 

19580 

19581 

19582 

19583 

19584 

19585 

19586 

19587 

19588 

19589 

19590 


HL4AD 


8768 

3769 

8770 

8771 

8772 

8773 

8774 

8775 

8776 
6777 

8778 

8779 

8780 

8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 

8790 

8791 

8792 

8793 

8794 

8795 

8796 

8797 

8798 

8799 

8800 
8801 
8802 

8803 

8804 

8805 

8806 

8807 

8808 

8809 

8810 
8811 
8812 

8813 

8814 

8815 

8816 

8817 

8818 
8819 


TEST CODE SECTION 


local 

SAV NIB, 

DODO FLG, 

NI8.0IT, 

TST’PAT. 

ALL.ONES J , 

ALL_0NES_2, 

STK~PTR, 

COURT; 

CLR THRESHOLD; 

BGNSUG; 

CLR MBUS; 

DODO.FLG = ZERO; 

TST_PAT = ONE; 

incr CNT from 0 to 15 do 
begin 

10 BUF C.CNTJ = not .TST.PAT; 
TST.PAT = .TST_PAT*ONE; 
end; 

GD BLK.XFER (>; 

MLl!S1 = write; 

TIME.OUTJ.OOP; 

STRIPPER (21, 8); 

STK PTR = -1; 

NIBlBIT = ONE; 

ALL.ONESJ = ZERO; 

ALL.ONESI2 = 3; 

incr BY FOUR.WRDS from 0 to 3 do 
begin 

incr BYGONE _WRD from 0 to 3 do 
begin 

COUNT = ZERO; 

until .COUNT eql .ALL.ONESJ do 


begin 

COUNT = .COUNT ♦ 1; 
STK.PTR = .STK PTR ♦ 1; 


29-Har-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 ¥2(212) 
PA:<NEALE>HL4AD.BLI.4 (90) 


.'STORES THE SHIFTED BIT PATTERN 
.'DROP UNIT FLAG 
•NIBBLE PATTERN 
'TEST PATTERN 

JHOW HANY '17' NIBBLE PATTERN POSITION TO READ 
'.HOW HANY , 17* NIBBLE PATTERN POSITION TO READ 
! STACK POINTER 
{COUNTER 

•CLEAR ERROR PRINT THRESHOLD 


.'ONE IN A FIELD OF ZEROES 

{WRITE 16 WORDS WITH SHIFTING 0 IN FIELD OF 1*S. 


•SET UP A GOOD BLOCK XFERR 

•WRITE SHIFTING PATTERN THROUGH SYNC BUS 

{CALL ROUTINE TO STRIP OUT BAD NIBBLE DATA FROH ARRAY WORDS 

{RESET THE STACK POINTER 

‘SHIFTING NIBBLE PAT OF 1 IN FIELD OF 0’S 

{READ NO ’17* NIBBLE PATTERN ON FIRST PASS 

•READ THREE *17* NIBBLE PATTERN ON FIRST PASS 

•READ 4 GROUPS OF 4 WORDS 


{READ 4 GROUPS OF 1 WORD 
{CLEAR COUNT 

{READ X NUMBER OF '17' NIBBLE PAT 

.'INCREMENT COUNT 
•INCREMENT STACK POINTER 


if (.stack C.STK.PTRJ) neq Xo'000017* {COMPARE STACK WITH '17' 

then 

begin 'ERROR AND SET DODU FLG IF NEQ 

CMP THRESHOLD; .'COMPARE ERROR PRINT THRESHOLD 

ERRDF (90. SYNC, DUMPER); 

PRINTS (SIX.FMT, WRD 23. WRD 39. P HR 4, WRD 12, FNC 5. WRD 19); 
PRINTS (FMT.5, ONES, .stack T.STK PTRJ. .ST* PTR); 
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19592 ;ML4AD 

19593 ; 

19594 

19595 ; 8820 

19596 ; 8821 

19597 ; 8822 

19598 ; 8823 

19599 ; 8824 

19600 ; 8825 

19601 ; 8826 

19602 ; 8827 

19603 ; 8828 

19604 ; 8829 

19605 ; 8830 

19606 ; 8831 

19607 ; 8832 

19608 ; 8833 

19609 ; 8834 

19610 ; 8835 

19611 ; 8836 

19612 ; 8837 

19613 ; 8838 

19614 ; 8839 

19615 ; 8840 

19616 ; 8841 

19617 ; 8842 

19618 ; 8843 

19619 ; 8844 

19620 ; 8845 

19621 ; 8846 

19622 ; 8847 

19623 ; 8848 

19624 ; 8849 

19625 ; 8850 

19626 ; 8851 

19627 ; 8852 

19628 ; 8853 

19629 ; 8854 

19630 ; 8855 

19631 ; 8856 

19632 ; 8857 

19633 ; 8858 

19634 ; 8859 

19635 ; 8860 

19636 ; 8861 

19637 ; 8862 

19638 ; 8863 

19639 ; 8864 

19640 ; 8865 

19641 ; 8866 

19642 ; 8867 

19643 ; 8868 

19644 ; 8869 

19645 ; 8870 

19646 ; 8871 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 
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DODU.FLG = ONE; 
end; 


end; 

STK PTR = .STK PTR ♦ 1; ! INCREMENT THE STACK POINTER 

SAVlNIB = ( no! .NIB.BIT) and (Xo’OOOOl?’); 'GENERATE THE SHIFTED BIT 

‘COMPARE STACK TO SHIFTED BIT 


•ERROR AND SET DODU FIG IF NEQ 
.'COMPARE ERROR PRINT THRESHOLD 


if (.stack C.STK.PTRJ) neq (.SAV.NIB) 
then 

begin 

CMP THRESHOLD; 

ERR5F (91, SYNC, DUMPER); ^ 

PRINTS (SIX FMT, WRD.23, WRD.39, PHR.4, WRD.12, FNC.5, WRD.19); 
PRINTS (FMTI15, .STK PTR); 

PRINTS (FMT 5. .SAV.RlB. .stack C.STK.PTRJ); 

DODU.FLG = ONE; 
end; 


COUNT - ZEROES; 

until .COUNT eql . ALL.ONE S.2 do 
begin 

COUNT = .COUNT ♦ 1; 

STK.PTR = .STK.PTR + 1; 


! CLEAR COUNT 
IREAD X NUMBER OF 


17* NIBBLE PAT 


‘INCREMENT COUNT 
.'INCREMENT STACK POINTER 


if (.stack C.STK.PTRJ) neq Xo' 00001 V 
then 


! COMPARE STACK POINTER WITH ’17' 


begin 

CMP THRESHOLD; 

ERROF (92. SYNC. DUMPER); 

PRINTS (SIX FMT, WRD 23, WRD 39, PHR 4, WRD 12, FNC.5. WRD.19); 
PRINTB (FMT“5, ONES, .stack r.STK.PTPj. .STK.PTR); 

DODU FLG - ONE; 


i ERROR AND SET DODU FLG IF SET 
! COMPARE ERROR PRINT THRESHOLD 


end; 

end; 

NIB.BIT = ,NIB.BIT A ONE; 
end; 

NIB.BIT = ONE; 

ALL ONES 1 = .ALL.0NES.1 ♦ 1; 
AL LEONES ”2 = .ALL.0NES.2 - 1; 
end; 

ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 


•SHIFT THE SHIFTED NIBBLE BIT 


! RESET THE SHIFTED NIBBLE BIT 
IREAD ONE MORE '17* PATTERN 
IREAD ONE LESS M 7* PATTERN 


.'DROP THIS UNIT IF DODU.FLG SET 


SEQ 0411 
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SEO 0412 


19648 

19649 

19650 

19651 

19652 

19653 

19654 

19658 

19659 

19663 

19664 

19665 

19666 

19667 

19668 

19669 

19670 

19671 

19672 

19673 

19674 

19675 

19676 

19677 

19678 

19679 

19680 

19681 

19682 

19683 

19684 

19685 

19686 

19687 

19688 

19689 

19690 

19691 

19692 

19693 

19694 

19695 

19696 

19697 

19698 

19699 

19700 

19701 

19702 


; ML 4 AD 


070772 

070776 

071002 

071006 

071010 

071016 

071022 

071026 

071034 

071040 

071042 

071050 

071052 

071054 

071056 

071064 

071070 

071074 

071076 

071102 

071104 

071110 

071116 

071122 

071124 

071130 

071134 

071140 

071144 

071152 

071156 

071164 

071166 

071170 

071172 

071176 

071200 

071202 

071204 

071212 


8872 

8873 

8874 

8875 


004167 

162706 

005067 

104402 

152777 

016705 

042705 

142777 

150577 

005001 

012766 

005004 

010405 

006305 

016665 

005165 

006366 

005204 

020427 

003763 

004767 

012777 

105777 

100375 

012746 

012746 

004767 

012702 

012766 

005066 

012766 

005004 

005005 

005003 

020366 

001463 

005203 

005202 

126227 

001767 


TEST CODE SECTION 

DOCLN; 

end; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2<212> 

PA : <NE ALE >Ml4 AD .8L I . 4 (90) 


ENDTST; 


113614 

000012 

124370 

000040 

125010 

177770 

000007 

124404 

000001 


000006 

014022 

000006 

000017 

127202 

000061 

124332 

000025 

000010 

125304 

177777 

000001 

000010 

000003 


000010 


124426 


124410 


$T38: 

IS: 


.SBTTL ST38 TEST CODE SECTION 

JSR R1 .SSAVE5 

SUB #12, SP 

CLR P.CNT 

TRAP 2 

BIS8 #40,aML.REG+40 

HOV ML.DUT.R5 

BIC #1 77776, R5 

BIC8 #7.aHL.REG«-40 

BISB R5,aML.REG+40 

R1 


000006 


MOV 

#1 ,6(SP) 

• 

9 


CLR 

R4 

l 


2S: 

MOV 

R4.R5 

# 



ASL 

R5 


014022 


MOV 

6(SP),I0.BUF(R5) 

# 


COM 

I0.BUF(R5) 




ASL 

6<SP) 

• 

• 



INC 

R4 

# 



CMP 

R4,#17 

9 



BLE 

2$ 




JSR 

PC.GD.8LK.XFER 

• 

9 

124266 


MOV 

#61 .BML.REG 

9 

3$: 

TSTB 

BHL.REG+50 




BPL 

3$ 




MOV 

#25,-(SP> 

0 



MOV 

#10,-(SP) 




JSR 

PC. STRIPPER 

#-i.R 2 v 




MOV 


000004 


MOV 

#1 ,4(SP) 



CLR 

10(SP) 


000006 


MOV 

#3,6(SP) 



CLR 

R4 



4$: 

CLR 

R5 



5S: 

CLR 

R3 



6$: 

CMP 

R3,10(SP) 




BEQ 

7S 




INC 

R3 




INC 

R2 


000017 


CMP8 

STACK (R2). #17 



BEQ 

6S 



DODU.FLG 

*.TST.PAT 

CNT 

CNT,* 

; TST.PAT,* 


CNT 

CNT.* 


*, STK.PTR 
*, NIB, SIT 
ALL. ONES. 1 
* .ALL. ONES. 2 
BY.FOUR.WRDS 
6Y.0NE.URD 
COUNT 

COUNT, ALL. ONE S.1 

COUNT 

STK.PTR 

•(STK.PTR),* 


8714 

8778 

8780 

8781 


8783 

8784 
8786 
8788 


8789 

8766 


8792 

8793 


8795 


8796 

8797 

8798 

8799 
8801 
88CK 
8806 
8808 

8810 

8811 

8813 



B 1 
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$T38 TEST CODE SECTION 


19704 

19705 

19706 

19707 
^708 
j 9709 

19710 

19711 

19712 

19713 

19714 

19715 

19716 

19717 

19718 

19719 

19720 

19721 

19722 

19723 

19724 

19725 

19726 

19727 

19728 

19729 

19730 

19731 

19732 

19733 

19734 

19735 

19736 

19737 

19738 

19739 

19740 

19741 

19742 

19743 

19744 

19745 

19746 

19747 

19748 

19749 

19750 

19751 

19752 

19753 

19754 

19755 

19756 

19757 

19758 


;M14AD 


071214 

071220 

071226 

071230 

071232 

071234 

071236 

071240 

071244 

071250 

071254 

071260 

071264 

071270 

071274 

071300 

071302 

071304 

071306 

C71310 

071314 

071320 

071324 

071330 

071332 

071334 

071340 

071344 

071346 

071350 

071356 

071364 

071366 

071372 

071376 

071400 

071404 

071412 

071414 

071416 

071420 

071422 

071424 

071430 

071434 

071440 

071444 

071450 

071454 

071460 

071464 

071466 


005267 

026767 

003047 

104455 

000132 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010216 

005046 

116216 

012746 

012746 

012746 

010600 

104414 

012701 

062706 

000712 

005202 

012766 

046666 

005000 

156200 

020066 

001462 

005267 

026767 

003153 

104455 

000133 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 


124156 

124152 124152 


010730 

012216 

010650 

011676 

011140 

010766 

010322 

000007 


015034 

177777 

006650 

000004 


000001 

000030 


000017 000014 
000004 000014 

015034 

000014 

123772 

123766 123766 


010730 

012216 

010650 

011676 

011140 

010766 

010322 

000007 



TEST CODE SECTION 

INC 

P.CNT 

CMP 

P.CNT, LIMIT 

BGT 

75 

TRAP 

55 

.WORD 

132 

.WORD 

SYNC 

.WORD 

DUMPER 

MOV 

#WRD. 19, -(SP) 

MOV 

#FNC.5.-(SP> 

#WRD.12,-(SP) 

MOV 

MOV 

#PH R.4.-ISP) 
#WRD.39,-(SP) 

MOV 

MOV 

#WRD.23,-(SP) 

MOV 

#SIX.FNT,-(SP> 

MOV 

#7,-(SP> 

MOV 

SP,RO 

TRAP 

14 

MOV 

R2,(SP> 


CLR -<SP> 

M0V8 STACK <R2),(SP) 

MOV #-1,-<SP> 

MOV #FMT.5.-<SP> 

MOV #4,-(SP) 

MOV SP,RO 

TRAP 14 

MOV #1,R1 

ADD #30, SP 

BR 65 

INC R2, 

MOV #17,14<SP) 

BIC 4<SP),14<SP) 

CLR RO 

BISS STACK <R2),R0 

CMP RO.H(SP) 

BEO 85 

INC P.CNT 

CMP P.CNT,L1MIT 

BGT 115 

TRAP 55 

.WORD 133 

.WORD SYNC 

.WORD DUMPER 

MOV #URD.19,-(SP) 

MOV #FNC.5,-<SP> 

MOV #URD.12.-CSP) 

MOV #PHR.4,-(SP> 

MOV #WRD.39,-(SP) 

MOV #WRD.23,-(SP) 

MOV #SIX.FMT,-CSP> 

MOV #7,-(SP) 

MOV SP,RO 

TRAP 14 


SEO 0413 
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19760 

19761 

19762 

19763 

19764 

19765 

19766 

19767 

19768 

19769 

19770 
19,71 

19772 

19773 

19774 

19775 

19776 

19777 

19778 

19779 

19780 

19781 

19782 

19783 

19784 

19785 

19786 

19787 

19788 

19789 

19790 

19791 

19792 

19793 

19794 

19795 

19796 

19797 

19798 

19799 

19800 

19801 

19802 

19803 

19804 

19805 

19806 

19807 

19808 

19809 

19810 

19811 

19812 

19813 

19814 


;ML4AD 


071470 

071472 

071476 

071502 

071504 

071506 

071510 

071514 

071520 

071524 

071530 

071532 

071534 

071540 

071544 

071546 

071552 

071554 

071556 

071560 

071566 

071570 

071574 

071602 

071604 

071606 

071610 

071612 

071614 

071620 

071624 

071630 

071634 

071640 

071644 

071650 

071654 

071656 

071660 

071662 

071664 

071670 

071674 

071700 

071704 

071706 

071710 

071714 

071720 

071722 

071726 

071730 


010216 

012746 

012746 

010600 

104414 

005016 

116216 

016646 

012746 

012746 

010600 

104414 

012701 

062706 

005003 

020366 

001463 

005203 

005202 

126227 

001767 

005267 

026767 

003047 

104455 

000134 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010216 

005046 

116216 

012746 

012746 

012746 

010600 

104414 

012701 

062706 

000712 

006366 

005205 

020527 


007370 

000002 


015034 

000040 

006650 

000003 


000001 

000032 

000006 


015034 000017 
123602 

123576 123576 


010730 

012216 

010650 

011676 

011140 

010766 

010322 

000007 


015034 

177777 

006650 

000004 


000001 

000030 

000004 

000003 


TEST CODE SECTION 

MOV R2, (SP) 

MOV #FMT.15.-(SP) 

MOV #2.-(SP) 

MOV SP.RO 

TRAP 14 

CLR (SP) 

MOVB STACK (R2MSP) 

MOV 40(SP) ,-(SP) 

MOV #FMT.5.-(SP) 

MOV #3.-(SP) 

MOV SP.RO 

TRAP 14 

MOV #1.R1 

ADD #32. SP 

CLR R3 

CMP R3.6(SP> 

BEQ 10$ 

INC R3 

INC R2 

CMPB STACK (R2) ,#17 

BEO 9$ 

INC P.CNT 

CMP P.CNT. LIMIT 

BGT 10$ 

TRAP 55 

.WORD 134 

.WORD SYNC 

.WORD OUMPER 

MOV #WRD.19,-(SP) 

MOV #FNC.5,-(SP) 

MOV #WRD.12,-($P) 

MOV #PHR.4.«($P> 

MOV #WRD.39,-($P> 

MOV #WRD.23.-(SP) 

MOV #SIX.FMT.-($P) 

MOV #7,-(SP) 

MOV SP.RO 

TRAP 14 

MOV R2,(SP) 

CLR -(SP) 

MOVB STACK (R2),(SP) 

MOV #-1,-(SP) 

MOV #FMT.5.-(SP) 

MOV #4,-(SP) 

MOV SP.RO 

TRAP 14 

MOV #1 ,R1 

ADD #30. SP 

BR 9$ 

ASL 4 (SP) 

INC R5 

CMP R5.#3 


SEO 0414 




CZMLADO ML-11 LOGIC TEST 
*»T38 TEST CODE SECTiON 


19816 

19817 

19818 

19819 

19820 

19821 

19822 

19823 

19824 

19825 

19826 

19827 

19828 

19829 

19830 

19831 

19832 

19833 

19834 

19835 

19836 

19837 

19838 

19839 

19840 

19841 

19842 

19847 

19848 

19852 

19853 

19857 

19858 

19859 

19860 

19861 

19862 

19863 

19864 

19865 
19870 


071734 

071736 

071742 

071750 

071754 

071760 

071762 

071766 

071770 

071774 

071776 

072000 

072002 

072004 

072010 

072012 

072014 

072020 

072022 

072024 

072030 


003002 

000167 

012766 

005266 

005366 

005204 

020427 

003002 

000167 

022626 

104467 

006000 

103002 

000167 

005301 

001004 

016700 

104451 

104444 

062706 

000207 


072032 

072032 

072036 

072040 

072042 

072044 


177226 

000001 000004 

000010 

000006 

000003 

177172 


176776 


124010 


000012 




D 1 
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:ML4AD 



9 


TEST CODE SECTION 



BGT 

IIS 



JMP 

5S 


IIS: 

MOV 

#1.4<SP> 

; *, NIB. BIT 


INC 

10(SP> 

; ALL. ONES. 1 


DEC 

6<SP) 

; ALL. ONES. 2 


INC 

R4 

; BY.FOUR.URDS 


CMP 

R4.#3 

; BY.FOUR.WRDS,* 


BGT 

12$ 



JMP 

4S 


12S: 

CMP 

(SP)+,(SP>* 

9 


TRAP 

67 

9 


ROR 

RO 



BHIS 

13S 



JMP 

IS 


13S: 

DEC 

Rl 

; DODU.FLG 


BNE 

14S 



MOV 

ML.LUN.RO 

• 


TRAP 

51 



TRAP 

44 


14S: 

ADD 

#12. SP 

• 

# 


RTS 

PC 



SEO 0415 


8861 

8862 

8863 

8801 


; Routine Size: 2 72 words 
; Maximum stack depth per invocation: 


26 words 


004767 176734 
104466 
006000 
103773 
000207 


8876 .'<BLF/PAGE> 


T38: : 
IS: 


.S8TTL T38 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.ST38 

66 

RO 

IS 

PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 
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T38 TEST CODE SECTION 
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19928 

19929 

19930 

19931 

19932 

19933 

19934 

19935 

19936 

19937 

19938 

19939 

19940 

19941 

19942 

19943 

19944 

19945 

19946 

19947 

19948 

19949 

19950 

19951 

19952 

19953 

19954 

19955 

19956 

19957 

19958 

19959 

19960 

19964 

19965 

19969 

19970 

19971 

19972 

19973 

19974 

19975 

19976 

19977 

19978 

19979 

19980 

19981 

19982 


ML4AD 


072046 

072052 

072060 

072064 

072070 

072076 

072102 

072104 

072110 

072112 

072114 

072116 

072122 

072126 


8929 

8930 

8931 

8932 

8933 

8934 

8935 

8936 

8937 

8938 

8939 

8940 

8941 

8942 

8943 
6944 

8945 

8946 

8947 

8948 

8949 

8950 

8951 

8952 

8953 


8956 

8957 

8958 


004167 

152777 

016705 

042705 

142777 

150577 

005005 

012704 

005000 

010001 

006301 

010461 

005161 

006304 


TEST CODE SECTION 

GD BU.XfER O: 

MLCS1 = read: 

TIME OUT LOOP; 

TST.PAT = ONE; 

incr CNT from 0 to 15 do 
begin 

if .I0.BUF C.CNT3 neq ( not .TST.PAT) 
then 

ER&F (93. SYNC. DUMPER); 

PRINTS (FIV.FNT. URD.23, FNC 6, WRD.19. 
PRINTS (FNT~2, ( not .rST.PAT), .IO.BUF 
DODU.FLG = ONE; 
end; 

TST.PAT = ,TST_PAT*ONE; 
end; 

ENDSUB; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


112540 ST39: 

000040 123364 
123746 
177770 

000007 123346 
123342 

000001 


014022 

014022 


.S0TTL 

JSR 

BISS 

MOV 

BIC 

B1CB 

BISS 

CLR 

NOV 

CLR 

NOV 

ASL 

NOV 

CON 

ASL 


ST39 TEST CODE 

R1.SSAVE5 

#46.aMUREG+40 

ate 

#7.aNL.REG+40 

R5.8NL.REGH0 

R5 

#1.R 4 

rS.ri 

R1 

R4.I0.BUF (R1) 
I0.8UF(R1) 

R4 


SEfl 0417 
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19984 

19985 

19986 

19987 

19988 

19989 

19990 

19991 

19992 

19993 

19994 

19995 

19996 

19997 

19998 

19999 

20000 
20001 
20002 

20003 

20004 

20005 

20006 

20007 

20008 

20009 

20010 
20011 
20012 

20013 

20014 

20015 

20016 

20017 

20018 

20019 

20020 
20021 
20022 

20023 

20024 

20025 

20026 

20027 

20028 

20029 

20030 

20031 

20 032 

20033 

20034 

20035 

20036 

20037 

20038 


; ML 4 AD 


072130 

072132 

072136 

072140 

072144 

072152 

072156 

072160 

072162 

072164 

072166 

072170 

072174 

072176 

072202 

072204 

072212 

072216 

072222 

072230 

072234 

072240 

072246 

072252 

072254 

072260 

072262 

072264 

072266 

072272 

072274 

072276 

072300 

072302 

072304 

072306 

072310 

072312 

072314 

072320 

072324 

072330 

072334 

072340 

072344 

072350 

072352 

072354 

072356 

072360 

072364 

072370 


005200 

020027 

003765 

004767 

012777 

105777 

100375 

104402 

005000 

010001 

006301 

005061 

005200 

020027 

003770 

152777 

016703 

042703 

142777 

150377 

004767 

012777 

105777 

100375 

012704 

005002 

010201 

006301 

012703 

060103 

010401 

005101 

021301 

001447 

104455 

000135 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

011316 

010146 

046616 

040166 

052616 


000017 

126146 

000061 

123276 


014022 

000017 

000040 

123614 

177770 

000007 

123210 

126052 

000071 

123202 

000001 


014022 


123232 


123232 


123214 


123136 


011676 

011140 

010730 

012226 

010766 

010304 

000006 


000002 

000002 


TEST CODE SECTION 

INC RO 

CMP RO, #17 

BLE 1$ 

JSR PC.GD.8LK.XFER 
MOV #61 ,8ML.REG 

TSTB BML.REG*50 

BPL 2$ 

TRAP 2 

CLR RO 

MOV R0.R1 

ASL R1 

CLR I0.8UF(R1) 

INC RO 

CMP R0,#1 7 

BLE 4$ 

BISB #40,AML.REG*40 

MOV ML.PUT.R3 

SIC #1 77776, R3 

BIC8 #7,8ML.REG+40 

BISB R3.9ML.REG+40 

JSR PC.GD.BLK.XFER 

MOV #71 .dML.REG 

TSTB BML.REG+50 

BPL 5$ 

MOV #1 ,R4 

CLR R2 

MOV R2,R1 

ASL R1 

MOV #I0.8UF,R3 

ADD R1 ,R3 

MOV R4.R1 

COM R1 

CMP (R3),R1 

BEG 7 % 

TRAP 55 

.WORD 135 

.WORD SYNC 

.WORD DUMPER 

MOV #PHR.4.»(SP) 

MOV #URD.39,-(SP) 

MOV #WRD.19,-(SP) 

MOV #FNC.6,-<SP) 

MOV #URD.2$.-<SP> 

MOV #FIV.FNT,-($P> 

MOV #6,-(SP) 

MOV SP.RO 

TRAP 14 

MOV (R3MSP) 

MOV RI.-(SP) 

BIC 2(SP),(SP) 

BIC R1,2(SP) 

BIS (SP)MSP) 
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20040 

20041 

20042 

20043 

20044 

20045 

20046 

20047 

20048 

20049 

20050 

20051 

20052 

20053 

20054 

20055 

20056 

20057 

20058 

20059 
2006C 
20061 
20062 

20063 

20064 

20065 

20066 

20071 

20072 

20076 

20077 
20081 
20082 

20083 

20084 

20085 

20086 

20087 

20088 
20089 
20094 


072372 

072374 

072376 

072402 

072406 

072410 

072412 

072416 

072422 

072424 

072426 

072432 

072434 

072436 

072440 

072442 

072444 

072446 

072452 

072454 

072456 


072460 

072460 

072464 

072466 

072470 

072472 


; ML 4 AD 


011346 



MOV 

010146 



MOV 

012746 

006506 


NOV 

012746 

000004 


MOV 

010600 



MOV 

104414 



TRAP 

012705 

000001 


MOV 

062706 

000026 


ADD 

006304 


7S: 

ASL 

005202 



INC 

020227 

000017 


CMP 

003713 



BLE 

104467 



TRAP 

006000 



ROR 

103647 



BLO 

005305 



DEC 

001004 



BNE 

016700 

123356 


MOV 

104451 



TRAP 

104444 



TRAP 

000207 


8$: 

RTS 


TEST CODE SECTION 

<R3).-(SP> 

RI.-(SP) 

#FMT.2.-(SP> 

#4,-<SP> 

SP.RO 

14 

#1.R5 
#26. SP 
R4 
R2 

R2.#17 

6 $ 

67 

RO 

3$ 

R5 

8 $ 

ML.LUN.RO 

51 

44 

PC 


Routine Size: 133 words. 

Maximum stack depth per invocation: 


004767 177362 
104466 
006000 
103773 
000207 


8959 !<BLF/PAGE> 


T39:: 

IS: 


.S8TTL T39 TEST CODE SECTION 


J SR 
TRAP 
ROR 
810 
RTS 


PC.ST39 

66 

RO 

IS 

PC 


Routine Size: 6 words 

Maximus stack depth per invocation: 


; SP,* 

; *,DODU.FLG 

; TST.PAT 
; CNT 
; CNT,* 


; DODU.FLG 


17 words 


0 words 


SEO 0419 

29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


8943 

8939 

8946 

8934 


8947 


8951 

8954 

8875 


8956 
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SEQ 0421 


20152 

ML4AD 



29-Har-1982 16:23:04 TOPS-20 Bliss-16 V2(212> 

20153 

oni c/ 


TEST CODE SECTION 


29-Mar-1982 16:21:03 PA:<NEALE>HL4AD.8LI .4 (92) 

cO 1 

20155 

9012 

DSA ADRS = .DSA ADRS ♦ .RAS.INC; 


! INCREMENT DSA ADRS COUNTER 

20156 

9013 

HLWt = .W.C SIZE; 


M6K OR 64* WORDS 

20157 

9014 

HLBA = 10 80F; 


.'LOAD UBUS ADRS 

20158 

9015 

HLDA = .D3A.ADRS; 


.'LOAD DSA ADRS 

20159 

9016 

ML FUNC = write; 


.'DO A WRITE FUNCTION 

20160 

9017 

TlHE.OUT.LOOP; 



20161 

9018 




20162 

9019 

if .SC IS.NOT.SET 


! DID XFERR CAUSE AN SC 

20163 

9020 

then 



20164 

9021 

begin 


•XFERR WAS OK 

20165 

9022 

MLWC = .W C SIZE; 


•LOAD WORD COUNT 

20166 

9023 

HLBA = 10 BOF; 


!LOAD UBUS ADRS 

20167 

9024 

HLDA = .DSA ADRS; 


!LOAD DSA ADRS 

20168 

9025 

HL FUNC = WRT.CHK; 


.'DO A WRITE CHECK FUNCTION 

20169 

9026 

TlHE.OUT.LOOP; 



20170 

9027 




20171 

9028 

if .SC IS.NOT.SET 


!IS THIS CHUNK GOOD 

20172 

9029 

then 



20173 

9030 

FND.GD.CHK = ONE; 


! YES SET FLG 

20174 

9031 




20175 

9032 

end 



20176 

9033 




20177 

9034 

end 



20178 

9035 

i 



20179 

9036 

IVER CZHLAD CHANGED TEST TO UNSIGNED 

TEST 


20180 

9037 

j 



20181 

9038 

until (.FND_GD CHK IS.SET ) or I.DSA.ADRS ?qlU 

.LST.ARR ♦ .ARR.INC); 

20182 

9039 




20183 

9040 



•REPEAT UNTIL FOUND GOOD CHUNCK OR AT LBT 

20184 

9041 




20185 

9042 

i 

• 



20186 

9043 

•VER CZHLAD CHANGED TEST TO UNSIGNED 

TEST 


20137 

9044 

i 



20188 

9045 

if ,DSA_ADRS eqlU .LSTARR ♦ .ARR_INC 


20189 

9046 

then 



201 90 

9047 

begin 



20191 

9048 

ERRDF (111, INTER, DUHPER); 



20192 

9049 

PRINTS (FIV.FHT, FNC.13, FNC.17, 

yRD_50. yRD_60, WRD_56); 

20193 

9050 

PRINTB (THR.FHT, WRD“14, PHR 10, 

FNC.15); 


20194 

9051 

end 



20195 

9052 

else 


!A GOOD CHUNCK WAS FOUND CONTINUE TEST 

20196 

9053 

begin 



20197 

9054 

CLR.HBUS; 



20198 

9055 

BAI = ONE; 



20199 

9056 

ECC DIS = ONE; 


.'DISABLE ECC 

20200 

9057 

IO.BUF = ZEROES; 


! FIRST BLOCK IN CHUNCK GETS ZEROES 

20201 

9058 

HLDA = .DSA ADRS; 


!LOAD DSA 

20202 

9059 

HLUC = not 255; 


!LOAD WORD COUNT 

20203 

9060 

HLBA = 10.8UF; 


!LOAD UBUS ADRS 

20204 

9061 

HL.FUNC - write; 


.'DO A WRITE FUNCTION 

20205 

9062 

TlHE OUT.LOOP; 



20206 

9063 

CLR HBUS; 




CZMLADO ML-11 LOGIC TEST 
T39 TEST CODE SECTION 
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SEO 0422 


20208 

20209 

20210 
20211 
20212 

20213 

20214 

20215 

20216 

20217 

20218 

20219 

20220 
20221 
20222 

20223 

20224 

20225 

20226 

20227 

20228 

20229 

20230 

20231 

20232 

20236 

20237 

20241 

20242 

20243 

20244 

20245 

20246 

20247 

20248 

20249 

20250 

20251 

20252 

20253 

20254 

20255 

20256 

20257 

20258 

20259 

20260 
20261 
20262 


MI4AD 


9064 

9065 

9066 

9067 

9068 

9069 

9070 

9071 

9072 

9073 

9074 

9075 

9076 

9077 

9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 


TEST CODE SECTION 

BA I = ONE; 

10 BUF = ONES; 

ECC DIS = ONE; 

MLD* = .DSA ADRS ♦ 1; 
MLBA = IO.BOf ; 

MLWC * .W C SIZE ♦ 256; 
ML FUNC = W&T.CHK; 

TIME OUT .LOOP; 


29-Mar-1982 

29-Mar-198? 


16:23:04 TOPS-20 Bliss-16 V2(212) 

16:21:03 PA:<NEALE>ML4AD.BLI .4 (92) 


!READ REMAINING BLOCKS FOR ONES 

.'LOAD DSA WITH NEXT DSA INCREMENT 
'LOAD U6US ADRS 

'LOAD WORD COUNT WITH LESS ONE BLOCK 
•DO A WRITE CHECK FUNCTION 


if .WCE IS.SET 
then 

begin 

ERRDF (112. ASVNC. DUMPER); _ ^ 

PRINTS (FOR FMT, FNC.17. WRD.50, WRD.60. WRD.14); 
PR1NTB (FMT~9, (.MLD* - D); 

DODU (.ML.LON); 


!WERE ANT BITS DISTURBED 
! ERROR IF WRITE CHECK FOUND BAD DATA 


DOCLN; 

end; 


end; 

ENDTST; 


.S8TTL 


072474 

004167 

112040 


$T40: 

JSR 

072500 

012767 

177777 

121314 


MOV 

072506 

016702 

122634 



MOV 

072512 

005402 




NEG 

072514 

005000 




CLR 

072516 

152777 

000040 

122720 

IS: 

BISS 

072524 

016701 

123302 



MOV 

072530 

042701 

177770 



BIC 

072534 

142777 

000007 

122702 


BICB 

072542 

150177 

122676 



BISS 

072546 

152777 

000010 

122670 


BISB 

072554 

152777 

000002 

122742 


BISS 

072562 

066702 

122560 



ADD 

072566 

016777 

122552 

122620 


MOV 

072574 

012777 

014022 

122622 


MOV 

072602 

010277 

122626 



MOV 

072606 

142777 

000077 

122570 


BICB 

072614 

152777 

000061 

122562 


BISB 

072622 

105777 

122626 


2$: 

TST6 

072626 

100375 




BPL 

072630 

032777 

100000 

122546 


BIT 

072636 

001027 




ONE 


ST40 TEST CODE SECTION 

R1.SSAVE2 

#-1,I0.BUF 

RAS.INC.R2 

R2 

RO 

#40.3ML.REG+40 

#7,BML.REG*40 

R1.8ML.REG*40 

#10,8ML.R£G*40 

#2,8ML.R£G*120 

RAS.INC.R2 

W. C. SI ZE.BAL. REG+10 

#I0.8UF.aAL.R£G*20 

R2.aML.R£G*30 

#77.aML,REG 

#61. BMC. REG 

8ML.R£G*50 

2 $ 

# 1 00000. BML. REG 
4$ 


*. DSA. ADRS 
DSA. ADRS 
FND.GD.CHK 


*. DSA. ADRS 
DSA. ADRS.* 


8«58 

9003 

9004 

9005 
9008 


9010 

9011 

9012 

9013 

9014 

9015 

9016 


9019 


j 


L 1 

IZMLADO ML-11 LOGIC TEST MACRO Ml 113 30-MAR-82 11:18 PAGE *40 

ST40 TEST CODE SECTION 


20264 





;ML4AD 



20265 





9 


TEST CODE SECTION 

cUcbo 

20267 

072640 

016777 

122500 

122546 


MOV 

W.C.SlZE,iMl.REG+10 

20268 

072646 

012777 

014022 

122550 


MOV 

AI0.8UF.aML,REG*20 

20269 

072654 

010277 

122554 



MOV 

R2,aML.REG+30 

20270 

072660 

142777 

000077 

122516 


BIC8 

A77.aML.REG 

20271 

072666 

152777 

000051 

122510 


8IS8 

A51.aML.REG 

20272 

072674 

105777 

122554 


3$: 

TSTB 

iML.REG*50 

20273 

072700 

100375 




BPL 

3$ 

20274 

072702 

032777 

100000 

122474 


BIT 

A100000.dML.REG 

20275 

072710 

001002 




BNE 

4$ 

20276 

072712 

012700 

000001 



MOV 

A1.R0 

20277 

072716 

020027 

000001 


4$: 

CMP 

R0.A1 

20278 

072722 

001406 




BEQ 

5$ 

20279 

072724 

016701 

121070 



MOV 

LST.ARR.R1 

20280 

072730 

066701 

121050 



ADD 

ARR.1NC.R1 

20281 

072734 

020201 




CMP 

R2.R1 

20282 

072736 

001267 




BNE 

1$ 

20283 

072740 

016701 

121054 


5$: 

MOV 

LST.ARR.R1 

20284 

072744 

066701 

121034 



ADD 

ARR.1NC.R1 

2028* 

072750 

020201 




CMP 

R2.R1 

20286 

072752 

001043 




BNE 

6$ 

20287 

072754 

104455 




TRAP 

55 

20288 

072756 

000157 




.WORD 

15 7 

20289 

072760 

013114 




.WORD 

INTER 

20290 

072762 

026302 




.WORD 

DUMPER 

20291 

072764 

012746 

011344 



MOV 

AURD.56.-CSP) 

20292 

072770 

012746 

011400 



MOV 

#URD.60,-<SP> 

20293 

072774 

012746 

011270 



MOV 

AURD.50.-CSP) 

20294 

073000 

012746 

012404 



MOV 

AFNC.17.-CSP) 

20295 

073004 

012746 

012334 



MOV 

AFNC.13.-(SP) 

20296 

073010 

012746 

010304 



MOV 

AFIV.FMT.-(SP) 

20297 

073014 

012746 

000006 



MOV 

A6.-CSP) 

20298 

073020 

010600 




MOV 

SP, RO 

20299 

073022 

104414 




TRAP 

14 

20300 

073024 

012716 

012360 



NOV 

AFNC.15.CSP) 

20301 

073030 

012746 

012006 



MOV 

APHR.10,-<SP> 

20302 

073034 

012746 

010664 



MOV 

AURD.14,-(SP) 

20303 

073040 

012746 

010256 



MOV 

ATHR.FNT ,-(SP) 

20304 

073044 

012746 

000004 



MOV 

A4,-(SP> 

20305 

073050 

010600 




MOV 

SP.RO 

20306 

073052 

104414 




TRAP 

14 

20307 

073054 

062706 

000026 



ADD 

A26.SP 

20308 

073060 

000207 




RTS 

PC 

20309 

073062 

152777 

000040 

122354 

6$: 

BISS 

A40,aML.REGM0 

20310 

073070 

016701 

122736 



MOV 

ML.DUT.R1 

20311 

073074 

042701 

177770 



B1C 

A177770.R1 

20312 

073100 

142777 

000007 

122336 


81 CB 

A7,aML.REG*40 

20313 

073106 

150177 

122332 



B1SB 

R1.aML.REG*40 

20314 

073112 

152777 

000010 

122324 


B1SB 

Al6,aML.REG+40 

20315 

073120 

152777 

000002 

122376 


BISB 

A2,aML.REG*120 

20316 

073126 

005067 

120670 



CLR 

IO.BUF 

20317 

073132 

010277 

122276 



MOV 

R2.aML.REG*30 

20318 

073136 

012777 

177400 

122250 


MOV 

A-400,aML. REGGIO 


SEO 0423 

29-Nar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

9022 

9023 

DSA.ADRS,* 9024 

9025 


; *,FND.GD.CHK 
; FND.GD.CHK,* 

; DSA.ADRS,* 

; DSA.ADRS,* 


9028 

9030 

9038 

9045 

9048 

9049 


SP.* 


9050 


: SP,* 


9047 

9045 

9053 


DSA.ADRS,* 


9055 

9056 

9057 

9058 

9059 



CZMIADO Ml-11 LOGIC TEST 
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SEQ 0424 


20320 

20321 

20322 

20323 

20324 

20325 

20326 

20327 

20328 

20329 

20330 

20331 

20332 

20333 

20334 

20335 

20336 

20337 

20338 

20339 

20340 

20341 

20342 

20343 

20344 

20345 

20346 

20347 

20348 

20349 

20350 

20351 

20352 

20353 

20354 

20355 

20356 

20357 

20358 

20359 

20360 

20361 

20362 

20363 

20364 

20365 

20366 

20367 

20368 

20369 

20370 

20371 

20372 

20373 

20374 


073144 

073152 

073160 

073166 

073172 

073174 

073202 

073206 

073212 

073220 

073224 

073232 

073240 

073246 

073250 

073252 

073256 

073264 

073270 

073274 

073300 

073306 

073314 

073320 

073322 

073330 

073332 

073334 

073336 

073340 

073342 

073346 

073352 

073356 

073362 

073366 

073372 

073374 

073376 

073402 

073404 

073410 

073414 

073416 

073420 

073424 

073426 

073430 

073434 


012777 
142777 
152777 
105777 
100375 
152777 
016701 
042701 
142777 
150177 
152777 
012767 
152777 
010201 
005201 
010177 
012777 
016702 
062702 
010277 
142777 
152777 
105777 
100375 
032777 
001441 
104455 
000160 
012706 
026302 
012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
017716 
005316 
012746 
012746 
01 0600 
104414 
016700 
104451 
104444 
062706 
000207 


014022 

000077 

000061 

122262 

000040 

122624 

177770 

000007 

122220 

000010 

177777 

000002 


122156 

014022 

122054 

000400 

122114 

000077 

000051 

122134 


122252 

122224 

122216 


122242 


122224 

122212 

120562 

122256 


122140 


122076 

122070 


040000 122114 


010664 

011400 

011270 

012404 

010270 

000005 


122032 

007064 

000002 


122404 


000020 


;ML4AD 

TEST CODE SECTION 

MOV #IO.BUF.dML.REG+20 

81 CB #77.BML.REG 

BISB #61 , AML .REG 

7$: TSTB 8ML.REG+50 

BPL 7$ 

BISB #40.8ML.REG*40 

MOV ML.DUT.R1 

8IC #177770,R1 

BJCB #7,aML.REG+40 

BJSB R1.BML.REG+40 

BISB #l0.iML.REG*40 

MOV #-1 , JO.BUF 

BISB #2.aML.REG*120 

MOV R2.R1 ; DSA.ADRS,* 

INC R1 

MOV R1 .BML.REG+30 

MOV #J0.BUF,aML.REG+20 ; 

MOV U.C.S1ZE.R2 

ADD #400, R2 

MOV R2.3ML.REG+10 

BICB #77,iML.REG 

BISB #51.BML.REG 

6$: TSTB BML.REG+50 

BPL 8$ 

BIT #40000 ,BML . REG+40 

BEQ 9$ 

TRAP 55 

.WORD 160 


.WORD 

AS VNC 


.WORD 

DUMPER 


MOV 

#WRD.14,-(SP) 

• 

MOV 

#URD.60,-(SP) 


MOV 

#WRD.50,-(SP) 


MOV 

#FMC.17,-(SP) 


MOV 

#Fn.FMT,-(SP) 


MOV 

# r SP) 


MOV 

St.' ) 

; SP.* 

TRAP 

14 


MOV 

BML.REG+30,(SP) 

# 

DEC 

(SP) 


MOV 

#FMT.9,-(SP) 


MOV 

#2.-<s£> 


MOV 

SP.RO 

; SP.* 

TRAP 

14 


MOV 

ML.LUN # RO 

• 

# 

TRAP 

51 


TRAP 

44 


ADD 

#20,SP 

# 

RTS 

PC 

• 

# 


; Routine Size: 241 words 
; Maximum stack depth per invocation: 14 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA: < 

9060 

9061 


9062 


9064 

9065 

9066 

9067 


9068 

9069 


9070 


9073 

9076 


9077 


9078 


9079 


9075 

8958 
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SEQ 0425 


20376 

20377 

20378 

20383 

20384 

20388 

20389 

20393 

20394 

20395 

20396 

20397 

20398 

20399 

20400 

20401 

20406 

20407 

20408 


073436 

073436 

073442 

073444 

073446 

073450 


004767 

104466 

006000 

103773 

000207 


9086 


177032 


!<8LF/PAGE> 


; ML 4 AD 


TEST CODE SECTION 


.S8TTL T40 TEST CODE SECTION 

T40: : 

1$: JSR PC,ST40 

TRAP 66 

ROR RO 

BLO IS 

RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


9083 


CZNIADO HL-1 1 LOGIC TEST 
HO TEST CODE SECTION 


B 2 
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SEO 0426 


20410 ; ML 4 AD 

20411 ; 

20412 

20413 ; 9087 

20414 ; 9088 

20415 ; 9089 

20416 ; 9090 

20417 ; 9091 

20418 ; 9092 

20419 ; 9093 

20420 ; 9094 

20421 ; 9095 

20422 ; 90«6 

20423 ; 9097 

20424 ; 9098 

20425 ; 9099 

20426 ; 9100 

20427 ; 9101 

20428 ; 9102 

20429 ; 9103 

20430 ; 9104 

20431 ; 9105 

20432 ; 9106 

20433 ; 9107 

20434 ; 9108 

20435 ; 9109 

20436 ; 9110 

20437 ; 9111 

20438 ; 9112 

20439 ; 9113 

20440 ; 9114 

20441 ; 9115 

20442 ; 9116 

20443 ; 9117 

20444 ; 9118 

20445 ; 9119 

20446 ; 9120 

20447 ; 9121 

20448 ; 9122 

20449 ; 9123 

20450 ; 9124 

20451 ; 9125 

20452 ; 9126 

20453 ; 9127 

20454 ; 9128 

20455 ; 9129 

20456 ; 9130 

20457 ; 9131 

20458 ; 9132 

20459 ; 9133 

20460 ; 9134 

20461 ; 9135 

20462 ; 9136 

20463 ; 9137 

20464 ; 9138 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (93) 


BGNTST; 

+ TEST NUMBER: 
TEST NAME: 


TST 41 

NIBBLE OFFSET TEST 


TpCT nFSCRIPTION’ 

TEST NIBBLE OFFSET COUNTERS TO OFFSET GOOD NIBBLE DATA A WAX 
OF 14 WORDS ON DETECTION OF ALL BAD NIBBLES BY: 

1. LOADING FIRST 2 1/4 WORDS OF THE IO.BUF WITH ZEROES AND THE 
REMAINING OF BUFFER WITH ONES. 

2. VIA DAT DM MODE WRITE THE GOOD BLOCK WITH BACKGROUND 
ON ONES? 

3. VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD. 

4. VIA A MBUS WRITE FUNCTION LOAD IO.BUF INTO THE GOOD BLOCK. 

5. VIA DAT DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE 
REMAINING WORDS FOR ONES. 

IMPLICIT INPUTS: 

PD TEMP 

a Bit VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
ACCESSED FROM. 

10 BUF 

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
FUNCTIONS ARE FOUND. 


local 

DODU FLG, 

TST PAT, 

START, 

FINISH, 

ERR.FLG; 

CLR THRESHOLD; 

6GN5UB; 

CLR MBUS; 

DOD0.FLG = ZERO; 

incr WD CNT from 0 to 255 do 
IO.BUF [.WD.CNT3 = ONES; 

10 BUF [03 = ZEROES; 

IOIBUF [13 = ZEROES; 


!DROP UNIT FLAG 
! TEST PATTERN 
‘STARTING WORD 
•ENDING WORD 
! ERROR FLAG 

: CLEAR ERROR PRINT THRESHOLD 


.‘LOAD IO.BUF WITH ONES 

•LOAD FIRST 2 1/4 WORDS WITH ZEROES 


CZMLADO HL-11 LOGIC TEST 
T40 TEST CODE SECTION 
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SEQ 042 7 


20466 

20467 

20468 

20469 

20470 

20471 
204 72 

20473 

20474 

20475 

20476 

20477 

20478 

20479 

20480 

20481 

20482 

20483 

20484 

20485 

20486 

20487 

20488 

20489 

20490 

20491 

20492 

20493 

20494 

20495 

20496 

20497 

20498 

20499 

20500 

20501 

20502 

20503 

20504 

20505 

20506 

20507 

20508 

20509 

20510 

20511 

20512 

20513 

20514 

20515 

20516 

20517 

20518 

20519 

20520 


:ML4AD 


9139 

9140 

9141 

9142 

9143 

9144 

9145 

9146 

9147 

9148 

9149 

9150 

9151 

9152 

9153 

9154 

9155 

9156 

9157 

9158 

9159 

9160 

9161 

9162 

9163 

9164 

9165 

9166 

9167 

9168 

9169 

9170 

9171 

9172 

9173 

9174 

9175 

9176 

9177 

9178 

9179 

9180 

9181 

9182 

9183 

9184 

9185 

9186 

9187 

9188 

9189 

9190 


TEST CODE SECTION 

10 BUF C23 = *o' 177760* ; 

ML&1 = ONES; 

MLD2 = ONES; 

MLE2 = ONES; 

DAT DM.XFER (); 

MLCSl = write; 

incr UD CNT from 0 to 127 do 
begin 

DECAY (ONE.US); 

DAT.CLK = ONE; 
end; 

CLR.MBUS; 

WRT'PD (ONES, 19); 

PROfl RW = ONE; 

GD BCK.XFER O; 

MLCSl = write; 

TIME.OUT.LOOP; 

CtRjlBUS; 

START = ZERO; 

FINISH = 14; 

TST.PAT = ZEROES; 

DAT DM.XFER (); 

MLCSl = read; 

DELAY (ONE.US); 

incr TWICE from 0 to 1 do 
begin 

incr WRD.CNT from .START to .FINISH do 
begin 

P 0 TEMP = .MLPO; 

DAT CLX = ONE: 

OELXY (ONE.US); 

RO.LNG.WRO; 

incr NI8.PTR from 0 to 8 do 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA : <NE AL 0 >ML 4 AD. BL 1.4 (93) 


!LOAO DATA D1AG REGISTERS WITH ONES 


•SET UP A DATA DIAG MODE XFERR 
•DO A WRITE XFERR 

.'LOAD BLOCK WITH BG PAT 


if .PD.TEMP C.NIB.PTRJ IS.NOT.SET 
then 

TS?.LNG.WRD (.NI8.PTR, .TST.PAT, ERR.FLG); 


! FORCE ALL NIBBLES BAD 

'SET PROM READ WRITE 

•SET UP A GOOD BLOCK XFERR 

•WRITE ZEROES IN FIRST BLOCK WORD LOCATION 

! OFFSETTING 14 NIBBLES WITH ZEROES ALSO. 


•START AT THE FIRST BLOCK WORD 
!END AT THE 14' TH BLOCK WORD 
.•TEST FOR ZEROES IN FIRST 14 WORDS 
•SET UP A DATA DIAG MODE XFERR 
IDO A READ FUNCTION 


.'READ WORDS 0-14 FOR O'S AND 15-126 FOR 1*S 

•READ BLOCK WORDS FORM START TO FINISH 

•GET PROM DATA 

•CLOCK OUT THE DATA WORD 

•READ THE DATA DIAG REGISTERS 

•LOOK AT 9 NIBBLES 

•FIND GOOD NIBBLES 


if .ERR.FLG IS.SET 
then 

CM ?* 0 


.'COMPARE NIBBLE WITH TST PAT 
•SEE IF COMPARE FOUND AN ERROR 


v.- .THRESHOLD; 

ERR&F (94, ARRDAT, DUMPER). 

PRINTS (THR FMT, WRD .41. WRD.46, WRD.10); 
PRINT8 (FMTI6, .NIB.PTR); 


I ERROR AND SET DODU FLG IF ERROR FLG SET 
•COMPARE ERROR PRINT THRESHOLD 


CZHIADO RL-11 LOGIC TEST 
T40 TEST CODE SECTION 
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SEQ 0428 


20522 ;ML4A0 

20523 ; 

20524 

20525 ; 

9191 

TEST CODE SECTION 

DODUFLG = 

20526 ; 

9192 

end 

• 

20527 ; 

20528 ; 

9193 

9194 

end; 


20529 ; 

20530 ; 

9195 

9196 

end; 


20531 ; 

20532 ; 

9197 

9198 

TST PAT = not .TST. 

PAT; 

20533 ; 

9199 

START = 15; 


20534 ; 

9200 

FINISH = 126; 


20535 ; 

9201 

end 


20536 ; 

20537 ; 

9202 

9203 

ENDSUB; 


20538 ; 

20539 ; 

9204 

9205 

if .DODU.FLG IS.SET 


20540 ; 

9206 

then 


20541 ; 

9207 

begin 

DODU (.ML.LUN); 


20542 ; 

9208 


20543 ; 

9209 

DOCLN; 


20544 ; 

9210 

end; 


20545 ; 

20546 ; 

9211 

9212 

ENDTST; 


20550 

20551 

20555 073452 

004167 

111134 ST41 : 

.SBTTL 

JSR 

20556 073456 

162706 

000012 

SUB 

20557 073462 

C05067 

121710 

CLR 

20558 073466 

104402 

1$: 

TRAP 

20559 073470 

152777 

000040 121746 

BIS8 

20560 073476 

016704 

122330 

MOV 

20561 073502 

042704 

177770 

BIC 

20562 073506 

142777 

000007 121730 

BICB 

20563 073514 

150477 

121724 

BIS8 

20564 073520 

005066 

000004 

CLR 

20565 073524 

005002 

2S: 

CLR 

20566 073526 

010203 

MOV 

20567 073530 

006303 


ASL 

20568 073532 

012763 

177777 014022 

MOV 

20569 073540 

005202 


INC 

20570 073542 

020227 

000377 

CMP 

20571 073546 

003767 


BLE 

20572 073550 

005067 

120246 

CLR 

20573 073554 

005067 

120244 

CLR 

20574 073560 

012767 

: 77760 120240 

MOV 

20575 073566 

012777 

177777 122000 

MOV 

20576 073574 

012777 

177777 122002 

MOV 


29-Mer-1982 16:23:04 TOPS-20 Bliss-16 V2C212) 

29-Mer-1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (93) 

ONE; 


!NOU READ FOR ONES 
.'START A 15 
SEND AT 126 


•DROP THIS UNIT IF D0DU.FL6 SET 


ST41 TEST CODE SECTION 
R1.SSAVE5 
#12,SP 
P.CNT 
2 

#40.gPtL.REG*40 

ate 

#7,aML.REG*40 
R4,aML.REG*40 
4 (SP) 

R2 

R2.R3 

#-l,IQ,BUF(R3> 

R2 

R2.A377 

2 $ 

I0.8UF 
IO.BUF+2 
#-20,IO.BUF*4 
f-1 # BML.REG*170 
#-1 ,DML.REG*200 


DODU.FLG 

UD.CNT 

UD.CNT,* 


; UD.CNT 
; UD.CNT.* 


9085 

9127 

9129 

9130 


9132 

9134 

9135 


9134 


9137 

9138 

9139 

9140 

9141 



CZNLADO HL-11 LOGIC TEST 
ST41 TEST CODE SECTION 
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20578 

20579 

20580 

20581 

20582 

20583 

20584 

20585 
<4586 

20587 

20588 

20589 

20590 

20591 

20592 

20593 

20594 

20595 

20596 

20597 

20598 

20599 

20600 
20601 
20602 
20603 
2060* 

20605 

20606 

20607 

20608 

20609 

20610 
20611 
20612 
20613 
2C614 

20615 

20616 

20617 

20618 

20619 

20620 
20621 
20622 

20623 

20624 

20625 

20626 

20627 

20628 

20629 

20630 

20631 

20632 


;NL4AD 


073602 

073610 

073614 

073622 

073624 

073630 

073632 

073636 

073640 

073644 

073646 

073650 

073652 

073654 

073662 

073664 

073670 

073672 

073700 

073704 

073710 

073716 

073722 

073726 

073732 

C73736 

073744 

073750 

073756 

073762 

073764 

073772 

073776 

074002 

074010 

074014 

074020 

074026 

074030 

074034 

074042 

074046 

074050 

074054 

074056 

074062 

074064 

074066 

074070 

074072 

074074 

074100 


012777 

004767 

012777 

005001 

012702 

001411 

016703 

001404 

005066 

005303 

001374 

005302 

000766 

157777 

005201 

020127 

003755 

152777 

016704 

042704 

142777 

150477 

012746 

012746 

004767 

152777 

004767 

012777 

105777 

100375 

152777 

016704 

042704 

142777 

150477 

005066 

012766 

005005 

004767 

012777 

012702 

001411 

016703 

001404 

005066 

005303 

001374 

005302 

000766 

005004 

016601 

005301 


000177 

000040 

122126 

177770 

000007 

121522 

177777 

000023 

127512 

000100 

124342 

000061 

121472 

000040 

122034 

177770 

000007 

121430 


121754 

121562 


177777 

122576 

000061 

000001 

106260 

000010 


000020 121642 7$: 


121544 


121526 


121560 

121426 


121452 


121434 


000016 000004 


122356 

000071 

000001 

106042 

000014 


000006 


121342 


NOV 

JSP 

NOV 

CLP 

NOV 

BEQ 

NOV 

BEQ 

CLP 

DEC 

BNE 

DEC 

BP 

B1S8 

INC 

CNP 

BLE 

BJS8 

NOV 

BJC 

BICB 

BJS8 

NOV 

NOV 

JSP 

BiSB 

JSP 

NOV 

TSTB 

BPL 

BISB 

NOV 

6IC 

BICB 

BISB 

CLP 

NOV 

CLP 

JSP 

NOV 

NOV 

BEQ 

NOV 

BEQ 

CLP 

DEC 

BNE 

DEC 

BP 

CLP 

NOV 

DEC 


TEST CODE SECTION 

f-1.8NL.REG*160 

PC.DAT.DN.XFEP 

f6l.8NL.PEG 

PI 

fl.P 2 

7S 

ISDLV.P3 

6 $ 

IgCSPI 

ss 

P2 

4S 

#20.8NL.PEG020 

PI 

PI ,f 177 
3$ 

f40.8NL.REG*40 

f7.8HL.REG*40 

R4.8NL.PEG+40 

f-l.-(SP) 

f23.-(SP> 

PC.WRT.PD 

fl60.8NL.REG+120 

PC.6D.SLK.XFEP 

f61.8NL.RE6 

8NL.PEG+50 

f40 £ 8HL.REG*40 

ate 

f7.8NL.&EG*40 

R4.8NL.REG*40 

6(b) 

#16.4(SP) 

R5 

PC.DAT.DH.XFER 
f7l.8NL.REG 
f1.P2 
124 , 

LSDLV.R3 

11 $ 

14(SP) 

R3 

10$ 

P2 

9$ 

R4 

6(SP).R1 

PI 


L 


SEQ 0429 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


WD.CNT 

*.$$TNP2 

*,$$TNP1 

$$TNP 

$$TNP1 

$$TNP2 


WD.CNT 

WD.CNT.* 



START 

•.FINISH 

TST.PAT 


; *.$$TNP2 
; *,$$TNP1 


SSTNP 

$$TNP1 


; $$TNP2 


; TWICE 

; START. WRD.CNT 
; WRD.CNT 


TOPS 

PA:< 


9142 

9143 

9144 
9146 
9148 


9149 
9146 

9150 


9153 


9154 

9155 


9156 


9158 



9160 

9161 

9162 

9163 

9164 

9165 


9167 

9170 


L 


CZMLADO ML-11 LOGIC TEST 
$T41 TEST CODE SECTION 
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SEO 0430 


20634 

20635 

20636 

20637 

20638 

20639 

20640 

20641 

20642 

20643 

20644 

20645 

20646 

20647 

20648 

20649 

20650 

20651 

20652 

20653 

20654 

20655 

20656 

20657 

20658 

20659 

20660 
20661 
20662 

20663 

20664 

20665 

20666 

20667 

20668 

20669 

20670 

20671 

20672 

20673 

20674 

20675 

20676 

20677 

20678 

20679 

20680 
20681 
20682 

20683 

20684 

20685 

20686 

20687 

20688 


; ML 4 AD 


074102 

074104 

074112 

074120 

074124 

074126 

074132 

074134 

074140 

074142 

074144 

074146 

074150 

074156 

074164 

074172 

074174 

074176 

074200 

074202 

074204 

074210 

074212 

074214 

074220 

074224 

074226 

074232 

074236 

074240 

074242 

074244 

074246 

074252 

074254 

074260 

074266 

074270 

074274 

074302 

074304 

074310 

074312 

074314 

074316 

074320 

074322 

074326 

074332 

074336 

074342 

0743*6 


000545 

017767 

152777 

012702 

001411 

016703 

00K04 

005066 

005303 

001374 

005302 

000766 

017767 

017767 

017767 

005002 

010203 

006203 

006203 

006203 

062703 

010346 

010246 

042716 

012746 

005046 

004767 

062706 

005700 

001062 

010246 

010546 

012746 

060616 

004767 

026627 

001045 

005267 

026767 

003403 

062706 

000442 

104455 

000136 

013012 

026302 

012746 

012746 

012746 

012746 

012746 

010600 


121524 

000020 

000001 

105764 

000014 


121420 

121422 

121374 


015342 


177770 

000001 

107402 

000010 


000020 

124116 

000020 

121102 

121076 

000006 


010630 

011226 

011154 

010256 

000004 


121230 

121404 


117216 
117212 
1 1 7206 


000001 


121076 


TEST CODE SECTION 


29-M«r-1982 16:23:04 
29-Mjr-1982 16:21:03 



8R 

23$ 

14S: 

MOV 

8ML. RE 6*230, PD. TEMP 


8IS8 

#20,8ML.REG*120 


MOV 

#1.A2 

15$: 

BEQ 

18i 


MOV 

L$DLT.R3 


BEQ 

17$ 

16$: 

CLR 

14(SP) 


DEC 

R3 


BNE 

16$ 

17$: 

DEC 

R? 


BR 

15$ 

18$: 

MOV 

8ML.REG*170,D1 .TEMP 


MOV 

8ML.REG*200,D2.TEMP 


MOV 

8ML.REG*160,E2.TEMP 


CLR 

R 2 

19$: 

MOV 

R2,A3 


ASR 

R3 


ASR 

R3 


ASR 

R3 


ADD 

#PD. TEMP.R3 


MOV 

R3.-ISP) 


MOV 

R2,-(SP) 


81 C 

01 ^ 7770 . (SP) 


MOV 

#1.-<SP> 


CLR 

-(SP) 


JSR 

PC.8L$€T2 


ADD 

fl6,SP 


TST 

RO 


BNE 

22$ 


MOV 

r|,-(sp) 


MOV 

R5--(SP) 


MOV 

#26.-(SP) 


ADD 

SP,(SP) 


JSR 

PC # TST.LNG.«RD 


CMP 

20(SP),#1 


BNE 

21$ 


INC 

P.CNT 


CMP 

P-CNT, LIMIT 


BLE 

20$ 


ADD 

01 

ft* 

20$: 

TRAP 

$5 


.WORD 

136 


; *,$$TM P2 

; *.$$TMP1 

; SSTMP 
; S5TMP1 

; ISTMP2 


; NI8.PTR 
; NI8.PTR, 


; NI8.PTA,* 


9177 

9179 


; NI8.PTA.* 
; TST.PAT,* 

; EAR.FL6.* 

; ERR.FLG.* 


9186 


9188 


■WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 


AMR. DAT 
DUMPER 

#UR0.1O,-(SP> 

MD.46.-CSP) 

fyRD.41.-(SP) 

#THR.FMT.-(SP) 

JfcT 


; SP.* 


I CZMLADO Mt-1 1 LOGIC TEST 
tT41 TEST COOE SECTION 


20690 

20691 

20692 

20693 

20694 

20695 

20696 

20697 

20698 

20699 

20700 

20701 

20702 

20703 

20704 

20705 

20706 
207C7 

20708 

20709 

20710 

20711 

20712 
20’ 13 

20714 

20715 

20716 

20717 

20718 

20719 

20720 

20721 

20722 

20723 

20724 

20725 

20726 

20727 

20728 

20733 

20734 

20738 

20739 

20743 

20744 
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; ML 4 AD 
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074350 

104414 




074352 

010216 

006752 



074354 

012746 



074360 

012746 

000002 



074364 

010600 




074366 

104414 


000034 


074370 

012766 

000001 


074376 

062706 

000016 


21): 

074402 

062706 

000006 


074406 

005202 

000010 


22): 

074410 

020227 



074414 

003667 



23): 

074416 

005201 

000004 


074420 

020166 



074424 

003627 




074426 

005105 


000006 


074430 

012766 

000017 


074436 

012766 

000176 

000004 


074444 

005204 

000001 



074446 

020427 



074452 

003610 




074454 

022626 




074456 

104467 




074460 

006000 




074462 

103002 

176776 



074464 

000167 

000001 

24): 

074470 

026627 

000004 

074476 

001004 

121324 



074500 

016700 



074504 

104451 




074506 

104444 

000012 


25): 

074510 

062706 


074514 

000207 





TEST CODE SECTION 

TRAP 14 

MOV R2,(SP> 

MOV #FMT.6,-<SP> 

MOV #2,-(SP) 

MOV SP,RO 

TRAP 14 

MOV #1,34<S P) 

ADD #16,SP 

ADD #6,SP 

INC R 2 

CMP R2.#10 

BLE 19i 

INC R1 

CMP R1,4(SP> 

BLE 14i 

COM R5 

MOV #17,6(SP) 

MOV #176.4<SP> 

INC R4 

CMP R4,#1 

BLE 134 

CMP (SP) MSP)* 

TRAP 67 

ROR RO 

BHIS 24) 

JMP 1) 

CMP 4(SP),#1 

BNE 25) _ 

MOV ML.LUN,RO 

TRAP 51 

TRAP 44 

ADD #12, SP 

RTS PC 

Routine Silt: 274 words 
Maximus stack depth per invocation: 


074516 

074516 


004767 176730 


T41 : : 

1 ): 


.S8TTL T41 TEST CODE SECTION 
JSR PC,)T41 


SEO 0431 


29-Mar- 1982 

16:23:04 

TOPS 

29-Mar-1982 

16:21:03 

PA:< 

NIB.PTR, * 


9190 

SP,* 

*,DODU.FLG 


9191 

9186 

9181 

NI8.PTR 

NIB.PTR.* 


9177 

WRD.CNT 

WRD.CNT, FINISH 


9170 

TST.PAT 


9198 

*, START 


9199 

*, FINISH 


9200 

TWICE 

TWICE,* 


9167 

9129 

9201 

DODU.FLG,* 


9205 

9208 

9085 


23 words 


9210 


H 2 
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T41 TEST CODE SECTION 



;AL4AD 

; TEST CODE SECTION 

TRAP 66 

ROR RO 

BLO IS 

RTS PC 

; Routine Size: 6 words 

; Aaximuni stack depth per Invocation: 0 words 




SEQ 0432 


29-Aar-1982 16:23.04 TOP 

29-Aar-1982 16:21:03 PA: 



A </* 


CZMLADO *1-11 LOGIC TEST 
T41 TEST CODE SECTION 
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SEO 0433 


20764 

ML4AD 

20765 

20766 

20767 

9214 

20768 

9215 

20769 

9216 

20770 

9217 

20771 

9218 

20772 

9219 

20773 

9220 

20774 

9221 

20775 

9222 

20776 

9223 

20777 

9224 

20778 

9225 

20779 

9226 

20780 

9227 

20781 

9228 

20782 

9229 

20783 

9230 

20784 

9231 

20785 

9232 

20786 

9233 

20787 

9234 

20788 

9235 

20789 

9236 

20790 

9237 

20791 

9238 

20792 

9239 

20793 

9240 

20794 

9241 

20795 

9242 

20796 

9243 

20797 

9244 

20798 

9245 

20799 

9246 

20800 

9247 

20801 

9248 

20802 

9249 

20803 

9250 

20804 

9251 

20805 

9252 

20806 

9253 

20807 

9254 

20808 

9255 

20809 

9256 

20810 

9257 

20811 

9258 

20812 

9259 

20813 

9260 

20814 

9261 

20815 

9262 

20816 

9263 

20817 

9264 

208 18 

9265 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4A0.BLl .4 (94) 


BGNTST; 


*TEST NUMBER: 
TEST NAME: 


TST 42 

CS1 FUNCTION ABORT TEST 


TEST DESCRIPTION* 

TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS ‘A* t '8* ERRORS BT: 

1. VIA MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACKGROUND 
PATTERN OF ONES. 

2. CLEAR THE IO.BUF 

3. DO A MBUS READ FUNCTION. WHILE THE READ IS IN PROGRESS WRITE TO 
MLDA (CLASS ’A* ERROR) READ THE IO.BUF FOR ONES. 

4. CLEAR THE IO.BUF 

5. VIA PROM R/W MODE FORCE UV ERROR TO THE UV ADRS ERROR PROM 
(CLASS '8' ERROR). DO A MBUS READ. 

6. READ IO.BUF FOR ZEROES 

IMPLICIT INPUTS: 

10 BUF 

a Vector of 256 words where data for hbus reads and 

WRITE FUNCTION ARE FOUND. 


CLR THRESHOLD; 

CLRlMBUS; 

BAI = ONE; 

IO.BUF = ONES: 

GD BLK.XFER (); 

MLCS1 = write; 

TIME.OUT.LOOP; 

incr TWICE from 0 to 1 do 
begin 
8GNSUB; 

CLR.HBUS; 

incr CNT from 0 to 255 do 
IO.BUF C.CNT] = ZEROES; 

if .TWICE eql 1 
then 

begin 

PROM.RW = ONE; 


! CLEAR ERROR PRINT THRESHOLD 

‘SET ON FIRST IO.BUF ADRS 
1LOAD FIRST I0.80F ADRS 
‘SET UP A GOOD BLOCK XFERR 
‘WRITE BACKGROUND PATTERN 


.'FORCE CLASS *A' AND CLASS ’B’ ERRORS 


! CLEAR OUT IO.BUF 

‘IF 2ND PASS THEN FORCE 'B' ERROR 


iCZMLADO ML"! 1 LOCK TEST 
T41 TEST CODE SECTION 


J 2 
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SEQ 0434 


20820 ;ML4AD 

20821 ; 

20822 

20823 ; 9266 

20824 ; 9267 

20825 ; 9268 

20826 ; 9269 

20827 ; 9270 

20828 ; 9271 

20829 ; 9272 

20830 ; 9273 

20831 ; 9274 

20832 ; 9275 

20833 ; 9276 

20834 ; 9277 

20835 ; 9278 

20836 ; 9279 

20837 ; 9280 

20838 ; 9281 

20830 ; 9282 

20840 ; 9283 

20841 ; 9284 

20842 ; 9285 

20843 ; 9286 

20844 ; 9287 

20845 ; 9288 

20846 ; 9289 

20847 ; 9290 

20848 ; 9291 

20849 ; 9292 

20850 ; 9293 

20851 ; 9294 

20852 ; 9295 

20853 ; 9296 

20854 ; 9297 

20855 ; 9298 

20856 ; 9299 

20857 ; 9300 

20858 ; 9301 

20859 ; 9302 

20860 ; 9303 

20861 ; 9304 

20862 ; 9305 

20863 ; 9306 

20864 ; 9307 

20865 ; 9308 

20866 ; 9309 

20867 ; 9310 

20868 ; 9311 

20869 ; 9312 

20870 ; 9313 

20871 ; 9314 

20872 ; 9315 

2087 3 ; 9316 

20874 ; 9317 


TEST CODE SECTION 

HLPD = Xo'777'; 
end; 

GD BLK.XFER (>; 

MLCS1 = read; 

If .TWICE eql 0 then ML DA = ONES; 

TIME.OUT.LOOP; 

if .TWICE eql 0 
then 

begin 

incr WRD.CNT from 0 to 64 do 
begin 

if .IO.BUF C.WRD.CNTJ neq ONES 
then 

be^in 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V?(212> 
PA:<NEALE>ML4AD.BLI .4 (94) 


THRESHOLD; 

ERRDF (95. SYNC. DUMPER); 

PRINTS (FOR.FMT, PHR.8, FNC.13, WRDJ9. WRD.10); 

exit loop; 

end; 


f SET UP A GOOD BLOCK XF ERR 
♦DO A READ FUNCTION 

! IF FIRST PASS THEN FORCE AN 'A* ERROR 


•SEE WHICH PASS WE'RE ON 
•CLASS *A' ERROR 

! SEE IF XFERR WAV ALLOWED TO CONTINUE 

!READ IO.BUF FOR BG PAT 

•ERROR AND EXIT LOOP IF ZEROES 
•COMPARE ERROR PRINT THRESHOLD 


end; 


else 


end 


begin 

incr WRD CNT from 0 to 64 do 
begin 

if .IO.BUF C.WRD.CNTJ neq ZEROES 
then 

bj^in 


•CLASS *8* ERROR 

!SCE IF XFERR WAS ABORTED 

•READ IO.BUF CLEARED DATA 

•ERROR IF ONES AND EXIT LOOP 
•COMPARE ERROR PRINT THRESHOLD 


. THRESHOLD; 

ERRDF (96, SYNC. DUMPER): 

PRINTS (FOR FMT. PHR.9. rNC.13. WRD.19. WRD.10); 
ex it loop 
end; 


end; 

end; 

if .SC IS.NOT.SET 
then 

begin 

ERRDF (104, SYNC, DUMPER); 


•SEE IF SC BIT SET 
•ERROR IF NOT SET 



CZMLADO ML— 1 1 L06IC TEST 
HI TEST CODE SECTION 
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SEQ 0435 


20876 

20877 

20878 

20879 

20880 
20881 
20882 

20883 

20884 

20885 

20889 

20890 

20894 

20895 

20896 

20897 

20898 

20899 

20900 

20901 

20902 

20903 

20904 

20905 

20906 

20907 

20908 

20909 

20910 

20911 

20912 

20913 

20914 

20915 

20916 

20917 

20918 

20919 

20920 

20921 

20922 

20923 

20924 

20925 

20926 

20927 

20928 

20929 

20930 


;ML4AD 


074532 

074536 

074542 

074550 

074554 

074560 

074566 

074572 

074600 

074606 

074612 

074620 

074624 

074626 

074630 

074632 

074640 

074644 

074650 

074656 

074662 

074664 

074666 

074670 

074674 

074676 

074702 

074704 

074710 

074712 

074720 

074726 

074732 

074740 

074742 

074744 

074746 


TEST CODE SECTION 


29-M*r-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 BUss-16 V2(212) 
PA:<NEALE>M14AD.8LI .4 (94) 


9318 

9319 

9320 

9321 

9322 

9323 

9324 


004167 

005067 

152777 

016703 

042703 

142777 

150377 

152777 

012767 

004767 

012777 

105777 

100375 

005003 

104402 

152777 

016702 

042702 

142777 

150277 

005000 

010001 

006301 

005061 

005200 

020027 

003770 

020327 

001006 

152777 

012777 

004767 

012777 

005002 

005703 

001004 

005202 


PRINTB (FIV.FMT, WRD.59, PHR 1, URD 11, WRD 19, FNC 13) 
end; 


ENDSUB; 

end; 


ENDTST; 


110016 

120634 

000040 120674 

121256 

177770 

000007 120656 
120652 

000010 120644 
177777 117214 
123500 

000061 120564 

120630 


000040 120604 
121166 
177770 

000007 120566 
120562 


014022 

000377 

000001 

000100 120604 
000777 120706 
123360 

000071 120444 


.SBTTL 

JSR 

CLR 

BIS8 

MOV 

BIC 

BIC8 

81 SB 

BISS 

MOV 

JSR 

MOV 

TST8 

BPL 

CLR 

TRAP 

BIS8 

MOV 

BIC 

BIC8 

BIS8 

CLR 

MOV 

ASL 

CLR 

INC 

CMP 

BLE 

CMP 

BNE 

8ISB 

MOV 

JSR 

MOV 

CLR 

TST 


$T42 TF;ST CODE SECTION 

R1,$S/VE3 

P.C*!7 

#4C,dML.REG+40 
ML.DUT,R3 
#1 77776, R3 
#7,BHL.REG+40 
R3,8ML,REG+40 
#lO,aML.REG+40 
#-1,I0.8UF 
PC-GD.BLK.XFER 
#61,8ML.REG 
iML.REG+50 
IS 
R3 
2 

#40,BML.REG+40 

ML.DUT,R2 

#1*7776,R2 

#7,BML,REG+40 

R2,BML.RE6+40 


S ?'" 1 

ig.BUf(RI) 

RO 

R0,#377 

S'" 

#igg,8ML.R£G+ 

#777,8Mt.RE0*, 

PC.SO.BULXTEI 

f7l.aML.REG 


TWICE 


; CNT 
; CNT,* 


; CUT 
; CUT,* 

; TWICE,* 


; TWICE 


9212 

9215 

9246 


9248 

9249 

9250 

9251 


9254 

9255 

9256 


9259 

9260 


9259 


9265 

9266 

9269 

9270 
9272 



SEC 04 5c 


29-War- 1982 16:23:04 TOPS 

29-War- 1982 16:21:03 PA:< 


; URD.CNT 
; URD.CNT,* 


9276 

9280 

9283 


; SP.* 

; URD.CNT 
; URD.CNT.* 

• 

; URD.CNT 
; URD.CNT.* 


9288 


9289 

9280 


9276 

9298 

9301 


9303 


; SP.* 


9307 


kZMLADO HL-:i LOGIC TEST 
ST42 TEST CODc SECTION 


20988 

20989 

20990 

20991 

20992 

20993 

20994 

20995 
209% 

20997 

20998 

20999 

21000 
21001 
21002 

21003 

21004 

21005 

21006 

21007 

21008 

21009 

21010 
21011 
21012 

21013 

21014 

21015 

21016 

21017 

21018 

21019 

21020 

21025 

21026 

21030 

21031 

21035 

21036 

21037 

21038 

21039 

21040 

21041 

21042 
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SEO 0437 


075204 

075206 

075212 

075214 

075222 

075224 

075226 

075230 

075232 

075234 

075240 

075244 

075250 

075254 

075260 

075264 

075270 

075272 

075274 

075300 

075302 

075304 

075306 

075312 

075314 

075320 

075322 


005202 

020227 

003734 

032777 

001026 

104455 

000150 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103002 

000167 

005203 

020327 

003772 

000207 


C75324 

07S324 

075330 

075332 

075334 

075336 


004767 

104466 

006000 

103773 

000207 


000100 

100000 


012334 

010730 

010640 

011610 

011374 

010304 

000006 


000016 


177316 

000001 


; ML 4 AD 

e 


TEST CODE SECTION 

IIS: 

INC 

R2 


CMP 

R2,#100 


8LE 

9S 

12S: 

BIT 

#1 00000, 8ML. REG 


BNE 

13S 


TRAP 

55 


.WORD 

150 


.WORD 

SYNC 


.WORD 

DUMPER 


MOV 

#FNC.13.-(SP> 


MOV 

#WRD.19,-(SP) 


MOV 

#WRD.11,-<SP> 


MOV 

fPHR.I.-CSP) 

#WRD.59,-(SP> 

#FIV.FMT,-(SP) 


MOV 


MOV 


MOV 

#6.-<SP) 


MOV 

SP.RO 


TRAP 

14 


ADD 

#16, SP 

13S: 

TRAP 

67 


ROR 

RO 


BNIS 

15S 

14S: 

JMP 

2S 

15S: 

INC 

R3 


CMP 

R3.#1 


8LE 

I4i 


RTS 

PC 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


; WRD.CNT 
; WRD.CNT.* 


; SP.* 


9316 

9319 


; TWICE 
; TWICE.* 


; Routine Size: 189 words 
; Maxima stack depth per invocation: 11 words 


177202 


T42: : 

IS: 


.SBTTL T42 TEST CODE SECTION 


J5R 

TRAP 

ROR 

8L0 

RTS 


PC.ST42 

66 

RO 

IS 

PC 


; Routine Size: 6 words 


CZMtADO ML-11 LOGIC TEST 
T 42 TEST CODE SECTION 


N 2 

MACRO Nil 13 30-MAR-82 11:18 PAGE 455 


21044 

21045 
210A6 
21047 

21052 

21053 


21054 ; 



TEST CODE SECTION 


; Maximum stack depth per invocation: 


9325 !<8LF/PAGE> 


SEP 0438 


29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 


0 words 



CZMLADO ML-11 LOGIC TEST 
T42 TEST CODE SECTION 
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21056 

21057 

21058 

21059 

21060 
21061 
21062 

21063 

21064 

21065 

21066 

21067 

21068 

21069 

21070 

21071 

21072 

21073 

21074 

21075 

21076 

21077 

21078 

21079 

21080 
21081 
21082 

21083 

21084 

21085 

21086 

21087 

21088 

21089 

21090 

21091 

21092 

21093 

21094 

21095 

21096 

21097 

21098 

21099 

21100 
21101 
21102 

21103 

21104 

21105 

21106 

21107 

21108 

21109 

21110 


ML4AD 


9326 

9327 

9328 

9329 

9330 

9331 

9332 

9333 

9334 

9335 

9336 

9337 

9338 

9339 

9340 

9341 

9342 

9343 

9344 

9345 

9346 

9347 

9348 

9349 

9350 

9351 

9352 

9353 

9354 

9355 

9356 

9357 

9358 

9359 

9360 

9361 

9362 

9363 

9364 

9365 

9366 

9367 

9368 

9369 

9370 

9371 

9372 

9373 

9374 

9375 

9376 

9377 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 43 

TEST NAME: LAST BLOCK TRANSFER TEST 

TEST DESCRIPTION: 

TEST THE LAST BLOCK INDICATOR BIT 
FOR SETTING/NOT SETTING AND THE 
DSA REGISTER FOR INCREMENTING BY: 

1. DOING MBUS TRANSFERRS AT EACH 
BLOCK FROM BLOCK ZERO TO 
LAST BLOCK -1 AND TEST LBT 
CLEAR AND DSA REGISTER TO BE 
INCREMENTED. 

2. DO A MBUS TRANS F ERR AT 
THE LAST BLOCK. 

TEST LBT TO BE SET AND 
TEST FOR CLEAR. 

TEST DSA REG TO BE INCREMENTED. 

IMPLICIT INPUTS: 

IOBUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


CLR.THRESHOLD; 


'VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 
« 

incrU DSA.CNT from 0 to .LSTJBLK - 1 do 
begin 
BGNSUB; 

CLR.MBUS; 

ECC DIS = ONE; 

MLWC = not 255; 

ML6A = IO.0UF; 

MLDA = .DSA CNT; 

MLCS1 = write; 

TIME.OUT.LOOP; 

if .LBT IS.SET 


SEQ 0439 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar- 1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (95) 


.'CLEAR ERROR PRINT THRESHOLD 


•DO XFERRS UP TO THE LAST BLOCK 


•DISABLE ECC 
'.LOAD WORD COUNT 
•LOAD UBUS ADRS 
•LOAD DSA WITH DSA CNT 
•DO A WRITE FUNCTION 


• SEE IF THE LAST BLOCK XFERR BIT SET 



CZHLADO ML-11 LOGIC TEST 
T42 TEST CODE SECTION 


C 3 
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SEQ 0440 


21112 

21113 

21114 

21115 

21116 

21117 

21118 

21119 

21120 
21121 
21122 
2* 123 

21124 

21125 

21126 

21127 

21128 

21129 

21130 

21131 

21132 

21133 

21134 

21135 

21136 

21137 

21138 
2r39 

21140 

21141 

21142 

21143 

21144 

21145 

21146 

21147 

21148 

21149 

21150 

21151 

21152 

21153 

21154 

21155 

21156 

21157 

21158 

21159 

21160 
21161 
21162 

21163 

21164 

21165 

21166 


;M14AD 


9378 

9379 

9380 

9381 

9382 

9383 

9384 

9385 

9386 

9387 

9388 

9389 

9390 

9391 

9392 

9393 

9394 

9395 

9396 

9397 

9398 

9399 

9400 

9401 

9402 

9403 

9404 

9405 

9406 

9407 

9408 

9409 

9410 

9411 

9412 

9413 

9414 

9415 

9416 

9417 

9418 

9419 

9420 

9421 

9422 

9423 

9424 

9425 

9426 

9427 

9428 

9429 


TEST CODE SECTION 
then 

begin 

CM P THRESHOLD; 

ERR0F <97, ASYNC, DUMPER); 

PRINTS (THR FMT, WRD 27, PHR.5, WRD.29); 

PRINTS (FMT.7, .DSA.rNT); 

end; 

if .MLD4 neq .DSA.CNT ♦ 1 
then 

begin 

CMP THRESHOLD; 

ERRBF (98, ASYNC, DUMPER); 

PRINTS (THR FMT, REG 6. URD.31, URD.14); 

PRINTS (FMT“7, .DSA.tNT); 

end; 

ENDSU8; 

end; 

BGNSUB; 

CLR.MBUS; 

ECC DIS = ONE; 

LAST BLK.XFER (); 

MLCST = write; 

TIME.OUTJ.OOP; 

if .MLDA neq .LST.8LK ♦ 1 
then 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2<212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (95) 


! COMPARE ERROR PRINT THRESHOLD 


! SEE IF THE DSA REG INCREMENTED 


! COMPARE ERROR PRINT THRESHOLD 


! DISABLE ECC 

I SET UP A LAST SLOCK XFERR 
IDO A WRITE FUNCTION 


•SEE IF DSA REGISTER INCREMENTED 


begin 

ERRDF (101, ASYNC, DUMPER); 

PRINTS (THR.FMT, REG 6, WRD 31, WRD 
PRINTS (FMT.7, .LSTJ5LK); 
end; 

if .LBT IS.SET 
then 


.14); 


•SEE IF LBT BIT SET 


begin 
MLDA = 


ONES; 


if .LBT IS.SET 
then 

begin 

ERRDF (99, ASYNC . DUMPER); 
PRINTS (FIV.FMT, WRD.27, PHR.2, 
end; 


else 


end 


begin 

ERRDF (100, ASYNC, DUMPER); 

PRINTS (FOR.FMT, WRD.27, PHR.1. WRD.11, WRD.27); 


•IF SET THEN TRY TO CLEAR IT 
•SEE IF BIT CLEARED 
•ERROR IF NOT 
WRD.11, WRD.17, REG.6); 

I LBT NOT SET 


CZMLADO NL-11 LOGIC TEST 
T42 TEST COOE SECTION 
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SEQ 0441 


21168 

21169 

21170 

21171 

21172 

21173 
21 74 

21178 

21179 

21183 

21184 

21185 

21186 

21187 

21188 

21189 

21190 

21191 

21192 

21193 

21194 

21195 

21196 

21197 

21198 

21199 

21200 
21201 
21 202 

21203 

21204 

21205 

21206 

21207 

21208 

21209 

21210 
21211 
21212 

21213 

21214 

21215 

21216 

21217 

21218 

21219 

21220 
21221 
21222 


.NL4AD 


075340 

075344 

075350 

075354 

075356 

075360 

075362 

075364 

075366 

075370 

075376 

075402 

075406 

075414 

075420 

075426 

075434 

075442 

075446 

075454 

075460 

075462 

075470 

075472 

075476 

075504 

075506 

075510 

075512 

075514 

075516 

075522 

075526 

075532 

075536 

075542 

075544 

075546 

075550 

075554 


9430 

9431 

9432 

9433 


004167 
005067 
Cl 6703 
005303 
005001 
000551 
010102 
005202 
104402 
152777 
016700 
042700 
142777 
150077 
152777 
012777 
012777 
010177 
012777 
105777 
100375 
032777 
001437 
005267 
026767 
003076 
104455 
000141 
012706 
026302 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
010116 
012746 
012746 


TEST COOE SECTION 


ENDSU6; 

ENOTST; 


107210 

120026 

116440 


000040 

120430 

177770 

000007 

120024 

000002 

177400 

014022 

117766 

000061 

117774 


120046 


120030 

120076 

117760 

117762 

117730 


002000 117764 


117700 

117674 


011032 

011714 

011024 

010256 

000004 


007002 

000002 


117674 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


T0Pi-20 Bliss-16 V2(212) 
PA:<NEALE>NL4AD.8LI .4 (95) 


.SBTTL 

JSR 

CLR 

NOV 

DEC 

CLR 

BR 

NOV 

INC 

TRAP 

BISB 

NOV 

BIC 

BICB 

BISB 

BISB 

NOV 

NOV 

NOV 

NOV 

TSTB 

BPL 

BIT 

BEQ 

INC 

CMP 

BGT 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 


ST43 TEST CODE SECTION 

R1.SSAVE3 

P.CNT 

LST.BLK.R3 

R3 

R1 

7$ 

R1.R2 

R2 

2 

#40.BMl.REG*40 


; DSA.CNT 
; DSA.CNT.* 


nl.dut.ro 
Ari77776.R0 
#7.aNL.REG+40 
R0.BNL.REG+40 
#2,9NL.REG+120 
A-400.8NL.REG+10 
0IO.8UF ,8NL .REG+20 
R1.BNL.REG+30 
#61. mi. REG 
BNL.REG+50 
3S 

#2000.aNL.REG+50 

4$ 

P.CNT 

P.CNT.LIN1T 

61 

55 

141 

ASVNC 

DURPER 

#UR0.29.«<SP> 

#PHR.5.-(SP) 

#WRD.27.-(SP> 

#THR.FNT.-(SP) 

#4,-(SP> 

SP.RO 

14 

RI.(SP) 

#F^T.7.-(SP) 

#2.-($P) 


DSA.CNT.* 


9324 

9328 

9366 


9367 

9368 


9370 

9371 

9372 

9373 

9374 


9377 


; SP.* 

; DSA.CNT.* 


i 


1 CZMLADO Hl-11 LOGIC TEST 

MACRO 81113 

30-MAR-82 

c 3 

11:18 PAGE 459 

$T43 TEST CODE 

SECTION 






21224 




;ML4AD 


21225 




0 


TEST CODE SECTION 

21226 







21227 075560 

010600 




80V 

SP.RO 

21228 075562 

104414 




TRAP 

14 

21229 075564 

062706 

000016 



ADO 

#16, SP 

21230 075570 

027702 

117640 


4$: 

C8P 

8Nl.REG+30,R2 

( 21231 075574 

001437 




BEG 

51 

21232 075576 

005267 

117574 



INC 

P.CNT 

i 21233 075602 

026767 

117570 

117570 


CMP 

P.CNT, LIMIT 

21234 075610 

003034 




BGT 

6S 

21235 075612 

104455 




TRAP 

55 

21236 075614 

000142 




.WORD 

142 

21237 07561* 

012706 




.WORD 

ASVNC 

21238 075620 

026302 




.WORD 

DUMPER 

21239 075622 

012746 

010664 



80V 

#WRD.14,-(SP) 

21240 075626 

012746 

011054 



MOV 

fWRD.31 ,-(SP) 

21241 075632 

012746 

012540 



MOV 

#RE6.6,-(SP) 

21242 075636 

012746 

010256 



MOV 

#THR.FMT,-(SP> 

21243 075642 

012746 

000004 



MOV 

#4,-(SP) 

21244 075646 

010600 




MOV 

SP,RO 

21245 075650 

104414 




TRAP 

1 4 

21246 075652 

010116 




MOV 

R1 , (SP) 

21247 075654 

012746 

007002 



MOV 

#FMT.7,-(SP) 

21248 075660 

012746 

000002 



MOV 

#2,-<SP) 

21249 075664 

010600 




MOV 

SP.RO 

21250 075666 

104414 




TRAP 

14 

21251 075670 

062706 

000016 



ADD 

#16, SP 

21252 075674 

104467 



5$: 

TRAP 

67 

21253 r 75676 

006000 




ROR 

RO 

21254 075700 

103632 




BIO 

2$ 

21255 075702 

005201 



6$: 

INC 

Rl 

21256 075704 

020103 



7$: 

CMP 

R1.R3 

21257 075706 

101625 




BLOS 

1$ 

21258 075710 

104402 



8$: 

TRAP 

2 

21259 075712 

152777 

000040 

117524 


BISS 

#40,aML.REG+40 

21260 075720 

016703 

120106 



MOV 

ML.DUT.R3 

21261 075724 

042703 

177770 



BIC 

#1 77770. R3 

21262 075730 

142777 

000007 

117506 


BICB 

#7,aML.REG+40 

21263 075736 

150377 

117502 



BISS 

R3.8ML.REG+40 

21264 075742 

152777 

000002 

117554 


BISS 

#2,9ML.REG+120 

21265 075750 

004767 

122370 



JSR 

PC.tAST.BLK.XF2R 

21266 075754 

012777 

000061 

117422 


MOV 

#61. an.. REG 

21267 075762 

105777 

117466 


9$: 

TST8 

9ML.REG+50 

21268 075766 

100375 




BPL 

9S 

21269 075770 

016701 

116020 



MOV 

LST.8LK.R1 

21270 075774 

005201 




INC 

Rl 

21271 075776 

027701 

117432 



CMP 

aML.REG+30,R1 

21272 076002 

001432 




BEG 

10$ 

21273 076004 

104455 




TRAP 

55 

21274 076006 

000145 




.WORD 

145 

21275 076010 

012706 




.WORD 

ASVNC 

21276 076012 

026302 




.WORD 

DUMPER 

21277 076014 

012746 

010664 



MOV 

#WRD.14,-(SP) 

21278 076020 

012746 

011054 



MOV 

#WRD.31 ,-(SP) 



SEQ 0442 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

; SP,* 

; 9379 

; 9386 

; 9388 

; 9390 


; 9391 

; SP,* 

; DSA.CNT,* 

; S P,* 


; DSA.CNT 
; DSA.CNT,* 


9400 

9401 

9402 


9405 


9408 


9392 

9388 

9393 

9366 

9396 

9398 


9409 


CZHLADO Ht-11 LOGIC TEST 
ST43 TEST CODE SECTION 


21280 

21281 

21282 

21283 

21284 

21285 

21286 

21287 

21288 

21289 

21290 

21291 

21292 

21293 

21294 

21295 

21296 

21297 

21298 

21299 

21300 

21301 

21302 

21303 

21304 

21305 

21306 

21307 

21308 

21309 

21310 

21311 

21312 

21313 

21314 

21315 

21316 

21317 

21318 

21319 

21320 

21321 

21322 

21323 
21»4 

21325 

21326 
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SEQ 0443 


21331 

21332 

21333 


076024 

076030 

076034 

076040 

076042 

076044 

076050 

076054 

076060 

076062 

076064 

076070 

076076 

076100 

076106 

0 7 6114 

076116 

076120 

076122 

076124 

076126 

076132 

076136 

076142 

076146 

076152 

076156 

076162 

076164 

076166 

076172 

076174 

076176 

076200 

076202 

076204 

076210 

076214 

076220 

Ofcjjo 

0762% 

076240 

076244 

076246 

076250 

076252 


012746 

012746 

012746 

010600 

104414 

016716 

012746 

012746 

010600 

104414 

062706 

032777 

001436 

012777 

0^777 

001453 

104455 

000143 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

000424 

104455 

000144 

012706 

026302 

012746 

012746 

012746 

012746 

012744 

m 

104414 

062706 

104467 


21327 076244 104467 

21328 076246 006000 

21329 076250 103617 


103617 

000207 


; HI 4 AO 


012540 

010256 

000004 


115744 

007002 

000002 


000016 

002000 

177777 

002000 


012540 

010712 

010640 

011626 

011024 

010304 

000006 


000016 


011024 

010640 

011610 

011024 

oiogo 


000014 


117356 10$: 


117326 

117340 


HOV 

nov 

HOV 

HOV 

TRAP 

HOV 

HOV 

HOV 

HOV 

TRAP 

A0D 

81 T 

8EQ 

HOV 

BIT 

BEQ 

TRAP 

.WORD 

.WORD 

.WORD 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

TRAP 

ADO 


11$: TRAP 


HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

TRAP 

ADO 

TRAP 

ROR 

BLO 

RTS 


TEST CODE SECTION 

#REG.6,-<SP> 

tfTHR.FHT,-(SP> 

#4.-<SP> 

SP.RO 

14 

LST.8UC, (SF) 
#FHT.V<SP) 
#2,-(SP) 

SP.RO 

14 

016.SP 

#2000.8RL.REG*50 

11 $ 

#-1.8HL.REG*30 
02000. 8HL.REG+50 

W 

143 

ASVHC 

DUHPER 

tfRE6.6 4 -(SP> 

tfWRD.1?.-<$P> 

fhN0.11,-<$P> 


29-Ha r- 1982 16:23:04 
29-Ha r- 1982 16:21:03 


; SP.* 


; SP.* 


2 4 -< SP) 

#WRO. 2£.-<$P> 
fFIV.FHt.-(SP) 
#6.-<SP) 


; SP.* 


r 

ASVHC 

DUHPER. 


9420 

9413 

9428 


MND.27.-(SP) 

tfUAD.II.-(SP) 

tfPHR.1 4 -($P) 

tfURD.27.-(SP) 

tfEOR.FHf.-(SP) 

t*" 

8** $p 

S 


; SP#* 


9427 

9430 


; Routine Size: 230 uords 
; Haxtaua stack depth per Invocation: 11 words 


G 3 
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ST43 TEST COOE SECTION 


21342 

21343 

21347 

21348 

21352 

21353 

21354 

21355 

21356 

21357 

21358 

21359 

21360 

21365 

21366 


076254 

076254 004767 177060 

076260 104466 
076262 006000 
076264 103773 
076266 000207 


21367 ; 9434 !<8LF/PAGE> 


.S8TTL T43 TEST CODE SECTION 

T43: : 

1$: JSR PC.ST43 

TRAP 66 

ROR RO 

BLO IS 

RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 



CZHLADO ML-11 LOGIC TEST 
T43 TEST CODE SECTION 
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SEQ 0445 


21369 

21370 

21371 

21372 

21373 

21374 

21375 

21376 

21377 

21378 

21379 

21380 

21381 

21382 

21383 

21384 

21385 

21386 

21387 

21388 

21389 

21390 

21391 

21392 

21393 

21394 

21395 

21396 

21397 

21398 

21399 

21400 

21401 

21402 

21403 

21404 

21405 

21406 

21407 

21408 

21409 

21410 

21411 

21412 

21413 

21414 

21415 

21416 

21417 

21418 

21419 

21420 

21421 

21422 

21423 


ML4AD 


9435 

9436 

9437 

9438 

9439 

9440 

9441 

9442 

9443 

9444 

9445 

9446 

9447 

9448 

9449 

9450 

9451 

9452 

9453 

9454 

9455 

9456 

9457 

9458 

9459 

9460 

9461 

9462 

9463 

9464 

9465 

9466 

9467 

9468 

9469 

9470 

9471 

9472 

9473 

9474 

9475 

9476 

9477 

9478 

9479 

9480 

9481 

9482 

9483 

9484 

9485 

9486 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 44 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA : <NE ALE >ML4AD .8L 1 . 4 (96) 


TEST NAME: 


INVALID ADRS TEST 


TEST DESCRIPTION: 


TEST THE DETECTION OF ILLEGAL DSA 
ADDRESSES BY: 

1. DOING A ABUS WRITE FUNCTION 
AT ALL POSSIBLE ILLEGAL DSA 
ADDRESSES AND TEST THE 
IAE BIT SET. 


IMPLICIT INPUTS: 


10 „BUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 

IAE.CNT; 

CLR THRESHOLD; 
1AE.CNT = .LST.BLK; 


*>egin 

IAE CNT = .IAE.CNT ♦ 1; 

BGNSUB; 

CLR MBUS; 

MLD* - .JAE CNT; 

MLWC = not 255; 

MLBA = IO.BUF; 

MLCS1 = write; 

if .IAE IS.NOT.SET 
then 

begin 

CMP THRESHOLD; 

ERRBF (102, ASYNC, DUMPER); 
PRINTS (FIV.FMT, URD.30, PHR 
end; 


! INVLID ADRS COUNT 

* CLEAR ERROR PRINT THRESHOLD 
] START AT LAST BLOCK ♦ 1 

•TEST FOR ALL INVALID ADDRESSES 

•INCREMENT IAE.CNT 


! LOAD DSA 
•LOAD WORD COUNT 
•LOAD UBUS ADRS 
•DO A WRITE FUNCTION 

! SET IF IAE SET 

•ERROR IF NOT SET 

•COMPARE ERROR PRINT THRESHOLD 


J, WRDJ1, WRD.30, WRDJO); 


r ZALADO AL-11 LOGIC TES T 
H3 TEST CODE SECTION 
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SEO 0446 


21425 

21426 

21427 

21428 

21429 

21430 

21431 

21432 

21433 

21434 

21435 
21*36 

21440 

21441 

21445 

21446 

21447 

21448 

21449 

21450 

21451 

21452 

21453 

21454 

21455 

21456 

21457 

21458 

21459 

21460 

21461 

21462 

21463 

21464 

21465 

21466 

21467 

21468 

21469 

21470 

21471 

21472 

21473 

21474 

21475 

21476 

21477 

21478 

21479 


;AL4A0 


076270 
076272 
076276 
076302 
076304 
076306 
076314 
076320 
076324 
076332 
076336 
076342 
076350 
076356 
076364 
076372 
076374 
076400 
076406 
076410 
076412 
076414 
076416 
076420 
076424 
076430 
076434 
07*440 
0/ _ «44 
076450 
076454 
076456 
076460 
076464 
076466 


29-Aer-l 982 16:23:04 T0PS-20 BUss-16 V2(212> 

TEST CODE SECTION 29-Aar-1982 16:21:03 PA:<NEALE>AL4AD.8LI.4 (96) 

9487 

9488 ENDSU8; 

9489 end 

9490 ' 

9491 'VERSION C2ALAD CHANGED TEST TO UNSIGNED TEST 

9492 1 

9493 until .IAE CNT eqlU *0*177777*; IREPEAT UNTIL ALL TESTED 

9494 

9495 ENDTST; 


.S8TTL ST44 TEST CODE SECTION 


010146 



ST44: 

AOV 

R1,-(SP> 

# 

005067 

117100 



CLR 

P.CNT 

; 

016701 

H5512 



AOV 

LST.8UC.A1 

; * # IAE.CNT 

005201 



IS: 

INC 

R1 

; IAE.CNT 

104402 



2S: 

TRAP 

2 


152777 

000040 

117130 


BISS 

f40,iAt.REG*40 

• 

• 

016700 

117512 



AOV 

Al.DUT.RO 


042700 

177770 



BIC 

f 177770.R0 


142777 

000007 

117112 


BICS 

#7,aAL.REG+40 


150077 

117106 



SI SB 

R0.8AL.REG+40 


010177 

117072 



AOV 

R1.BAL.REG+30 

; IAE.CNT,* 

012777 

177400 

117044 


AOV 

#-400,8AL.REG+10 

0 

012777 

014022 

117046 


AOV 

flO.BUF,aAl.REG+20 

• 

0 

012777 

000061 

117020 


AOV 

f61.iAL.REG 

• 

9 

032777 

002000 

117072 


BIT 

#2000,8AL.REG*60 

9 

001034 




BNE 

3$ 


005267 

116776 



INC 

P.CNT 

• 

9 

026767 

116772 

116772 


CAP 

p.cnt.liait 


003031 




BGT 

4S 


104455 




TRAP 

55 

• 

9 

000146 




.WORD 

146 


012706 




.WORD 

ASYNC 


026302 




.WORD 

DUAPER 


012746 

010630 



AOV 

fURD.10,**(SP) 

9 

012746 

011046 



AOV 

fURD.30,-(SP) 


012746 

010640 



AOV 

fURD.11 ,-(SP) 


012746 

011610 



AOV 

fPHR.I.-(SP) 


012746 

011046 



AOV 

fURD.30,-(SP) 


012746 

010304 



AOV 

fEIV.FAT.-(SP) 


012746 

000006 



AOV 

f6,-(SP> 


010600 




AOV 

SP.RO 

: sp.* 

104414 




TRAP 

14 


062706 

000016 



ADD 

f16,SP 

9 

104467 



3$: 

TRAP 

67 

0 

006000 




ROR 

RO 



9433 

9465 

9468 

9472 


9473 


9475 

9476 

9477 

9478 
9480 

9482 


9484 


9485 I 


9482 i 
9486 ! 


i 
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$£Q 044? 


29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 

; 1AE.CNT,* 9493 

9433 


8 words 


9493 


0 words 


| 

i 


l 
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SEG 0448 


21523 

21524 

21525 

21526 

21527 

21528 
21329 

21530 

21531 

21532 

21533 

21534 

21535 

21536 

21537 

21538 

21539 

21540 

21541 

21542 

21543 

21544 

21545 

21546 

21547 

21548 

21549 

21550 

21551 

21552 

21553 

21554 

21555 

21556 

21557 

21558 

21559 

21560 

21561 

21565 

21566 

21570 

21571 

m 

21574 

21575 

21576 

21577 


ML4AD 


TEST CODE SECTION 


29-Mar- 1982 16:23:04 
29-Mar-1982 16:21:03 


076520 

076526 

076532 

076536 

076544 

076550 

076556 

076564 


9497 

9498 

9499 

9500 

9501 

9502 

9503 

9504 

9505 

9506 

9507 

9508 

9509 

9510 

9511 

9512 

9513 

9514 

9515 

9516 

9517 

9518 

9519 

9520 

9521 

9522 

9523 

9524 

9525 

9526 

9527 

9528 

9529 

9530 

9531 

9532 


152777 

016700 

042700 

142777 

150077 

012777 

012777 

016777 


8GNTST; 


*TEST NUMBER: 
TEST NAME: 


TST 45 

ADRS OVERFLOW BIT TEST 


TEST DESCRIPTION: 

TEST THE DETECTION OF ADDRESS OVERFLOWS BY: 

1. STARTING AT THE LAST BLOCK DO A TWO BLOCK TRANSFER. 

2. READ THE AOE BIT SET. 

IMPLICIT INPUTS: 

10 8UF 

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
FUNCTIONS ARE FOUND. 


CLR MBUS; 

MLWt = not 511; 

HL8A = IO.BUF; 

HLDA = .lST BLK; 

MLCS1 = write; 

T I ME .OUT J_ OOP; 

i* .AOE IS.NOT.SET 
then 

ErId? (103. SYNC, DUMPER); 


IDO TWO BLOCK XFERR 
'LOAD UBUS ADRS 
! START AT LAST BLOCK 
•DO A WRITE FUNCTION 


•SEE IF AOE SET 
•ERROR IF NOT SET 


PRINTS (FOR.FMT, WRD.26, PHR.1, WRD.11, FNC.19); 
end; 


ST45 TEST CO0E SECTION 
#40,aML.REG*40 


ENDTST; 

000040 

116716 ST45: 

.SBT 

BISS 

117300 


MOV 

177770 


BIC 

000007 

116700 

81 CB 

116674 


BISB 

177000 

116636 

MOV 

014022 

1 1 5224 

116640 

MOV 

116642 

MOV 


y-M 0 


f i r f f i v.RO 
#7,aML.REGH0 
R0.8ML.REG+40 
f-fOOO.iML. REGGIO 
f 10. BUF .8ML.REG+20 
LST .BLK ,BML .REG*30 


T0PS-20 Bliss-16 V2(212) 

PA : <NE ALE >ML4 AD .8L 1.4 (97) 


9498 ' 


9519 

9520 

9521 



iCZMLADO ML-11 LOGIC TEST 
IT45 TEST CODE SECTION 
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21579 

21580 

21581 

21582 

21583 

21584 

21585 

21586 

21587 

21588 

21589 

21590 

21591 

21592 

21593 

21594 

21595 

21596 

21597 

21598 

21599 

21600 
21601 
21602 
21603 
21608 
21609 

21613 

21614 
21618 

21619 

21620 
21621 
21622 

21623 

21624 

21625 

21626 

21631 

21632 

21633 


076572 

076600 

076604 

076606 

076614 

076616 

076620 

076622 

076624 

076626 

076632 

076636 

076642 

076646 

076652 

076656 

076660 

076662 

076666 


076670 

076670 

076674 

076676 

076700 

076702 


012777 

105777 

100375 

032777 

001024 

104455 

000147 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

000207 


000061 

116650 


116604 


; ML 4 AD 


It: 


001000 116650 


012426 

010640 

011610 

011016 

010270 


oooqjs 

00001 



2 $: 


TEST CODE SECTION 

MOV #61 ,iML .REG 

TST8 8MI.REG+50 

BPL It 

BIT #1000,8ML.REG+60 

8NE 2t 

TRAP 55 

.WORD 147 

.WORD SYNC 

.WORD DUMPER 

MOV #FNC.19,-($P> 

MOV #WRD.11 ,-(SP) 

MOV fPHR.I.-(SP) 

MOV #WRD.26,-(SP) 

MOV #F0R.FMT,-(SP) 

MOV #5,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #14. SP 

RTS PC 


; SP,* 


; Routine Size: 52 words 

; Maximum stack depth per invocation: 6 words 


177624 


004767 

104466 

006000 

103773 

000207 


9533 *<8LF/PAGE> 


T45: : 
It: 


.S8TTL T45 TEST COOE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.ST45 

66 

RO 

It 

PC 


Routine Size: 6 words 

Maximum stack depth per invocation: 


0 words 


SEO 0449 

29-Mar- 1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 

9522 

9525 

9528 

9529 


9527 

9495 


9530 
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SEQ 0450 


21635 ;HL4AD 

21636 ; 

21637 

21638 ; 

21639 ; 

21640 ; 

21641 ; 

21642 ; 

21643 ; 

21644 ; 

21645 ; 

21646 ; 

21647 ; 

21648 ; 

21649 ; 

21650 ; 

21651 ; 

21652 ; 

21653 ; 

21654 ; 

21655 ; 

21656 ; 

21657 ; 

21658 ; 

21659 ; 

21660 ; 

21661 ; 

21662 ; 

21663 ; 

21664 ; 

21665 ; 

21666 ; 

21667 ; 

21668 ; 

21669 ; 

21670 ; 

21671 ; 

21672 ; 

21673 ; 

21674 ; 

21675 ; 

21676 ; 

21677 ; 

21678 ; 

21679 ; 

21680 ; 

21681 ; 

21682 ; 

21683 ; 

21684 ; 

21685 ; 

21686 ; 

21687 ; 

21686 ; 

21689 ; 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>ML4AD.8LI.4 (98) 


TST 46 

SYNC BUS PARITY TEST 


9534 ! 

9535 BGNTST; 

9536 

9537 

9538 ! TEST NUMBER: TST 46 

9539 ! 

9540 ! TEST NAME: SYNC BUS PARITY TEST 

9541 ! 

9542 ! TEST DESCRIPTION: 

9543 ! TEST ABILITY OF SYNC BUS TO DETECT * 

9544 • GOOD PARITY BY: 

9545 ! 

9546 ! 1. VIA MBUS WRITE FUNCTION WRITE Al 

9547 • DEVICE AND READ THE DPAR BIT CLI 

9548 ! 

9549 ! 2. REPEAT WITH SHIFTED DATA 

9550 ! 

9551 ! 3. VIA MBUS READ FUNCTION READ THE 

9552 ! 

9553 ! IMPLICIT INPUTS: 

9554 ! 10 BUF 

9555 .» a Vector of 256 words where data foi 

9556 J FUNCTIONS ARE FOUND. 

9557 ! — 

9558 

9559 if .PARJJIS IS.SET 

9560 then 

9561 begin 

9562 PRINTS (THR FHT, FNC 3, WRD.7, WRD.37); 

9563 EXIT.TST; 

9564 end; 

9565 

9566 CLR.MBUS; 

9567 BAI = ONE; 

9568 10 BUF = Jo' 125252'; 

9569 

9570 incr TWICE Iron 0 to 1 do 


TEST DESCRIPTION: 

TEST ABILITY OF SYNC BUS TO DETECT AND GENERATE 
GOOD PARITY BY: 

1. VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE 
DEVICE AND READ THE DPAR BIT CLEARED. 

2. REPEAT WITH SHIFTED DATA 

3. VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED. 

IMPLICIT INPUTS: 

10 BUF 

a Vector of 256 words where data for mbus reads and writes 

FUNCTIONS ARE FOUND. 


!SEE IF PARITY IS DISABLED 
.’PRINT MESSAGE AND EXIT TST IF YES 


9571 

9572 

9573 

9574 

9575 

9576 

9577 

9578 

9579 

9580 

9581 

9582 

9583 

9584 

9585 


begin 

BGNSUB; 

GD BLK.XFER (>; 
MLtSI = write; 
TIME.OUT.LOOP; 


if .DPAR IS.SET .'SEE I 

then 

begin .'ERROR 

ERRDF (105. SYNC. DUMPER); 

PRINTS (FOR.FMT, WRD.23. WRD.6. WRD.7. WRD.9); 
end; 


‘SET ON FIRST 10 BUF ADRS 
‘ALTERNATE 1. 0 PATTERN 

‘REPEAT LOOP TWICE 


! SET UP A GOOD BLOCK XFERR 
! DO A WRITE 'UNCTION 

.'SEE IF DPAR GOT SET 


.'ERROR IF SET 


10 BUF = .10 BUF* ONE; 
MLfR = ZEROES; 


•SHIFT THE 10 BUF 1 REPEAT 
•CLEAR OUT ERROR REG l REPEAT 
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SEQ 0451 


21691 

21692 

21693 

21694 

21695 

21696 

21697 

21698 

21699 

21700 

21701 

21702 

21703 

21704 

21705 

21706 

21707 

21708 
21700 

21710 

21711 

21712 

21713 

21714 

21715 

21716 

21717 

21718 

21719 

21720 

21724 

21725 

21729 

21730 

21731 

21732 

21733 

21734 

21735 

21736 

21737 

21738 

21739 

21740 

21741 

21742 

21743 

21744 

21745 


;ML4AD 

• 





29-Mar-1982 16:23:04 TOPS-20 Btiss-16 V2(212) 


TEST CODE SECTION 



29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BH.4 (98) 


9586 

9587 

9588 

9589 

ENDSU8; 

end; 





incr TWICE from 0 to 

1 do 


1REPEATE LOOP TWICE 


9590 

9591 

begin 

BGNSUB; 





9592 

CLR.MBUS; 



I SET ON FIRST 10 BUF ADRS 


9593 

BA I = ONE; 




9594 

GD BLK.XFER (); 



! SET UP A GOOD BCOCK XFERR 
.'DO A READ XFERR 


9595 

MLtSI = read; 




9596 

T1ME.0UT.L00P; 





9597 






9598 

if .MDPE 1S.SET 



! SEE IF READ GENERATED BAD PARITY 


9599 

then 



.'ERROR IF MDPE SET 


9600 

begin 

ERRDF (106, 




9601 

SYNC, DUMPER); 

WRD.8) ; 


9602 

PRINTS (FOR. 

FMT, WRD.23 

, WRD.6, WRD.7, 


9603 

end; 




9604 






9605 

ENDSUS; 



I MAKE DATA PATTERN HAVE ONE LESS ONE 


9606 

I0.8UF = .10 BUF 

*0NE; 



9607 

GD BLK.XFER 7); 



•SET UP A GOOD BLK XFER 


9608 

MtCSI = write; 



•CHANGE THE BACKGROUND IN MEMORY 


9609 

TIME.OUT.LOOP; 





9610 

end; 





9611 






9612 

ENDTST; 

.S8TTL 

ST46 TEST CODE 

SECTION 

076704 

010146 

ST46 

MOV 

R1 ,-(SP) 

• 

• 

076706 

026727 

115076 000001 

CMP 

PAR.DI$,#1 

# 

076714 

001021 


BNE 

IS „ 


076716 

012746 

011122 

MOV 

#MRD.3?,-(SP> 

• 

0 

076722 

012746 

010566 

MOV 

#URD.7,-(SP) 


076726 

012746 

012172 

MOV 

*FNC.3.-<SP> 


076732 

012746 

010256 

MOV 

#THR.FMT,-(SP) 


076736 

012746 

000004 

MOV 

#4,-(SP) 

; SP,* 

076742 

010600 


MOV 

SP,R0 

076744 

104414 


TRAP 

14 


076746 

104463 


TRAP 

63 


076750 

062706 

000012 

ADD 

#12,SP 

• 

076754 

000167 

000402 

JMP 

9S 

0 

076760 

152777 

000040 116456 IS: 

B1S6 

#40.aML.REGt40 

0 

076766 

016701 

117040 

MOV 

ML.DUT.R1 

#177776,R1 


076772 

042701 

177770 

31 C 


076776 

142777 

000007 116440 

BICB 

#7,aML.REGU0 



9532 

9559 

9562 


9559 

9561 

9564 
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21747 

21748 

21749 

21750 

21751 

21752 

21753 

21754 

21755 

21756 

21757 

21758 

21759 

21760 

21761 

21762 

21763 

21764 

21765 

21766 

21767 

21768 

21769 

21770 

21771 

21772 

21773 

21774 

21775 

21776 

21777 

21778 

21779 

21780 

21781 

21782 
21765 

21784 

21785 

21786 

21787 

21788 

21789 

21790 

21791 

21792 

21793 

21794 

21795 

21796 

21797 

21798 

21799 

21800 
21801 


;ML4AD 


077004 

077010 

077016 

077024 

077026 

077030 

077034 

077042 

077046 

077050 

077056 

077060 

077062 

077064 

077066 

077070 

077074 

077100 

077104 

077110 

077114 

077120 

077122 

077124 

077130 

077134 

077140 

077142 

077144 

077146 

077150 

077154 

077156 

077160 

077162 

077170 

077174 

077200 

077206 

077212 

077220 

077224 

077232 

077236 

077240 

077246 

077250 

077252 

077254 

077256 

077260 

077264 


150177 

152777 

012767 

005001 

104402 

004767 

012777 

105777 

100375 

132777 

001424 

104455 

000151 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

006367 

005077 

104467 

006000 

103730 

005201 

020127 

003724 

005001 

104402 

152777 

016700 

042700 

142777 

150077 

152777 

004767 

012777 

105777 

100375 

032777 

001424 

104455 

000152 

012750 

026302 

012746 

012746 


116434 

000010 116426 
125252 114776 


121256 

000061 116342 
116406 3$: 

000040 116406 


010616 

010566 

010560 

010766 

010270 

000005 


000014 

114666 

116324 


000001 


000040 116254 

116636 

177770 

000007 116236 
116232 

000010 116224 
121066 

000071 116152 

116216 

000400 116176 


010602 

010566 


TEST CODE SECTION 

BISfi Rl.aML.REGHO 

B1S6 4M0.aflL.REG+40 

MOV #-52526,IO.BUF 

CLR R1 

TRAP 2 

JSR PC.GD.BLK.XFER 

MOV #61,8ML.REG 

TSTB 8ML.REG+50 

BPL 3$ 

BITB #40,dML.REG+60 

BEQ 4$ 

TRAP 55 

.WORD 151 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.9,-(SP) 

MOV #WRD.7,-(SP) 

MOV #WRD.6.-(SP) 

MOV #WRD.23,-(SP) 

MOV #F0R.FMT,-(SP) 

MOV #5,-<SP) 

MOV SP,R0 

TRAP 14 

ADD #14, SP 

ASL IO.BUF 

CLR 8ML.REG+60 

TRAP 67 

ROR RO 

BLO 2$ 

INC R1 

CMP R1 ,#1 

BLE 2 S 

CLR R1 

TRAP 2 

B1S8 #40,8ML.REG + 40 

MOV ML.DUT.RO 

BIC #177776,R0 a 

BICB #7,aML.REG+40 

BJ SB R0.8ML.REG+40 

B1S6 #10,aML.REG+40 

JSR PCj6D.BLK.XFER 

MOV #71,aML.REG 

TSTB 3ML.REG+50 

BPL 6$ 

BJT #400,BML.REG+40 

BEO 7 % 

TRAP 55 

.WORD 152 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.8,-(SP) 

MOV #WRD.7,-(SP) 


SEQ 0452 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TWICE 


; SP,* 


9579 

9584 

9585 


; TWICE 
; TWICE,* 

; TWICE 


9570 


9589 

9590 

9591 


9593 

9594 

9595 


9602 
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SEQ 0453 


21803 

21804 

21805 

21806 

21807 

21808 

21809 

21810 
21811 
21812 

21813 

21814 

21815 

21816 

21817 

21818 

21819 

21820 
21821 
21822 

21823 

21824 

21825 

21826 

21827 

21828 

21833 

21834 

21838 

21839 

21843 

21844 

21845 

21846 

21847 

21848 

21849 

21850 

21851 

21856 

21857 


077270 

077274 

077300 

077304 

077310 

077312 

077314 

077320 

077322 

077324 

077326 

077332 

077336 

077344 

077350 

077352 

077354 

077360 

077362 

077364 


077366 

077366 

077372 

077374 

077376 

077400 


;ML4AD 


012746 

012746 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103715 

006367 

004767 

012777 

105777 

100375 

005201 

020127 

003677 

012601 

000207 


010560 

010766 

010270 

000005 


000014 


114470 

120754 

000061 116040 

116104 


000001 


; TEST CODE SECTION 

MOV #WRD.6,-(SP> 

NOV #WRD.23,-(SP> 

NOV #FOR.FNT,-(SP> 

NOV #5,-<SP> 

NOV SP, RO 

TRAP 14 

ADD #14, SP 

7$: TRAP 67 

ROR RO 

BLO 5$ 

ASL IO.BUF 

JSR PC.GD.BLK.XFER 

NOV #61,8NL.REG 

8$: TSTB 8NL.REG+50 

6PL 8$ 

INC R1 

CNP R1,#1 

BLE 5$ 

9$: NOV (SP)+,R1 

RTS PC 

; Routine Size: 153 words 
; Naximum stack depth per Invocation: 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


; SP,* 


; TWICE 
; TWICE,* 


9606 

9607 

9608 


9589 


7 words 


004767 

104466 

006000 

103773 

000207 


177312 


T46: : 
IS: 


.SBTTL T46 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BIO 

RTS 


PC,ST46 

66 

RO 

IS 

PC 


9610 


; Routine Size: 6 words 

; NaxlfMjR stack depth per Invocation: 0 words 


!<BLF/PAGE> 
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21859 

21860 
21861 
21862 

21863 

21864 

21865 

21866 

21867 

21868 

21869 

21870 

21871 

21872 

21873 

21874 

21875 

21876 

21877 

21878 

21879 

21880 
21881 
21882 

21883 

21884 

21885 

21886 

21887 

21888 

21889 

21890 

21891 

21892 

21893 

21894 

21895 

21896 

21897 

21898 

21899 

21900 

21901 

21902 

21903 

21904 

21905 

21906 

21907 

21908 

21909 

21910 

21911 

21912 
21917 


NL4AD 


9614 

9615 

9616 

9617 

9618 

9619 

9620 

9621 

9622 

9623 

9624 

9625 

9626 

9627 

9628 

9629 

9630 

9631 

9632 

9633 

9634 

9635 

9636 

9637 

9638 

9639 

9640 

9641 

9642 

9643 

9644 

9645 

9646 

9647 

9648 

9649 

9650 

9651 

9652 

9653 

9654 

9655 

9656 

9657 

9658 

9659 

9660 

9661 

9662 

9663 

9664 

9665 


TEST COOE SECTION 


6GNTST; 


TEST NUMBER: TST 47 

TEST NAME: WRITE READ Mill 

TEST DESCRIPTION: 

PROVIDES A MBUS READ/WRITE 
DATA TRANSFER TROUBLE SHOOTING 
LOOP BY: 

1. LOAD APPROPRIATE RH REGISTERS. 
DO A WRITE FUNCTION. 

2. LOAD APPROPRIATE RH REGISTERS 
DO A WRITE CHECK FUNCTION. 

3. COMPLIMENT DATA AND 
REPEAT. 

IMPLICIT INPUTS: 

IOJBUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READ AND WRITE 
FUNCTIONS IS FOUND. 


local 

TST.PAT; 

TST.PAT = Xo' 052525' ; 

fncr TWICE from 0 to 1 do 
begin 
CLR.MBUS; 

BAI = ONE; 

IO.SUF = .TST PAT; 
6D.BLK.XFER (T; 

MLtSI = write; 

TIME OUT.LOOP; 
CLR.flBUS; 

BAI = ONE; 

6D.BLK.XFER (); 

MLtSI = WRT.CHK; 
TIME.OUT.LO0P; 


SEQ 0*54 


29-Mar-1982 16:23-04 T0PS-20 Bliss-16 V2<212) 

29-Mar-1982 16:21:03 PA:<N£ALE>ML4AD.0LI .4 (99) 


.'TEST PATTERN 


'WRITE READ 1*S AND O'S ON MBUS 


•SET ON FIRST 10 .8UF ADRS 
I LOAD FIRST lO.BOF ADRS 
•SET UP A GOOD BLOCK XFERR 
IDO A WRITE FUNCTION 


! SET ON FIRST IO.BUF ADRS 
! SET UP A GOOD BtOCK XFERR 
IDO A WRITE CHECK FUNCTION 



CZMLADO Ml-11 LOGIC TEST 
T46 TEST CODE SECTION 


M ACRO Ml 113 


E 4 

30-MAR-82 11:18 PAGE 472 


SEO 0455 


21915 

21916 

21917 

21918 

21919 

21920 

21921 

21922 

21923 

21924 

21925 

21926 

21927 

21928 

21932 

21933 

21937 

21938 

21939 

21940 

21941 

21942 

21943 

21944 

21945 

21946 

21947 

21948 

21949 

21950 

21951 

21952 

21953 

21954 

21955 

21956 

21957 

21958 

21959 

21960 

21961 

21962 

21963 

21964 

21965 

21966 

21967 

21968 

21969 


;ML4AD 


077402 

077406 

077412 

077414 

077422 

077426 

077432 

077440 

077444 

077452 

077456 

077462 

077470 

077474 

077476 

077504 

C77510 

077514 

077522 

077526 

077534 

077540 

077546 

077552 

077554 

077562 

077564 

077566 

077570 

077572 

077574 

077600 

077604 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


T0PS-2C Bllss-16 V2(212) 
PA:<NEALE>ML4AD.0LI.4 (99) 


9666 

9667 

9668 

9669 

9670 

9671 

9672 

9673 

9674 

9675 

9676 


004167 

012701 

005002 

152777 

016700 

042700 

142777 

150077 

152777 

010167 

004767 

012777 

105777 

100375 

152777 

016700 

042700 

142777 

150077 

152777 

004767 

012777 

105777 

100375 

032777 

001430 

104455 

000155 

013250 

026 T 92 

012746 

012746 

012746 


If .MCE I$_SET I SEE IF WRITE CHECK ERROR SET 

then 

begin ! ERROR IF SET 

ERRDF (109. TR8LE LOOP. DUMPFR); 

PRINTS (SIX.FMT. FnC_ 4. WRDJO. WRD.12. FNC.5, FNC.6. FNC.3); 
end; 


.'ERROR IF SET 


TST PAT = not .TST.PAT; 
end; 


ENDTST; 


105132 

052525 

000040 

116404 

177770 

000007 

116000 

000010 

114344 

120630 

000061 

115760 

000040 

116322 

177770 

000007 

115716 

000010 

120552 

000051 

115702 


ST47: 


116022 IS: 


116004 

115772 


115714 


115740 


115722 

115710 

115636 


040000 115662 


012172 

012226 

012216 


.S8TTL 

JSR 

MOV 

CLR 

BISB 

MOV 

BIC 

BICB 

BISB 

BISB 

MOV 

JSR 

MOV 

TSTB 

BPL 

BISB 

MOV 

BIC 

B1C8 

BISB 

BISB 

JSR 

MOV 

TSTB 

BPL 

BIT 

BEO 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 


.'COMPLIMENT TST.PAT AND REPEAT 


ST47 TEST CODE SECTION 
R1.SSAVE2 
#5$525,R1 
R2 

#40.BML.REG+40 

ML.DUT.RO 

f177776.R0 

#7.aML.REG+40 

RO.aML.REG+40 

f IO.aML.REG+40 

R1.I0.BUF 

PC.6D.BLK.XFER 

f61.aML.REG 

3ML.REG+50 

2S 

f40,aML.REG+40 

ML.DUT.RO 

fl 77776. RO 

f7,aML.REG*40 

R0.BML.REG+40 

fl6.BML.REGH© 

PC.6D.BLK.XFER 

f51.aML.REG 

gL.REG+50 

#40000.aML.REG+40 


*, TST. PAT 
TWICE 


9612 

9650 

9652 

9653 


TST. PAT.* 


155 

TR8LE.L00P 


9661 

9662 

9663 


9669 


fFMC.3.-(SP) 

fFMC.6.-(SP) 

fFNC.5.-CSP) 
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SEO 0456 


21971 

21972 

21973 

21974 

21975 

21976 

21977 

21978 

21979 

21980 

21981 

21982 

21983 

21984 

21985 

21986 

21987 

21988 

21989 

21994 

21995 

21999 

22000 

22004 

22005 

22006 

22007 

22008 

22009 

22010 
22011 
22012 

22017 

22018 
22019 


; ML 4 AD 


077610 

077614 

077620 

077624 

077630 

077634 

077636 

077640 

077644 

077646 

077650 

077654 

077656 


077660 

077660 

077664 

077666 

077670 

077672 


004767 177516 

104466 
006000 
103773 
000207 


9677 f <BLF/PA6E> 


TEST CODE SECTION 


012746 

0127-6 

010650 

MOV 

#WRD.12,-(SP) 


010630 

MOV 

fWRD.lO.-(SP) 


012746 

012200 

MOV 

#FNC.4.-(SP> 


012746 

010322 

MOV 

fSIX.FMT.-(SP) 


012746 

000007 

MOV 

#7,-<SP> 


010600 

104414 


MOV 

TRAP 

SP.RO 

14 

• 

062706 

000020 

ADD 

#20. SP 


005101 


4S: COM 

R1 


005202 


INC 

R2 


020227 

003657 

000001 

CMP 

BLE 

R2,#1 

IS 


000207 


RTS 

PC 

9 


; SP.* 


Routine Size: 87 words 

Maximum stack depth per invocation: 


11 words 


T47: : 
IS: 


.SBTTL T47 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC,$T47 

66 

RO 

IS 

PC 


Routine Size: 6 words 

Maximum stack depth per invocation: 


0 words 


29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


9668 

9673 

9652 


9612 


9674 
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22021 

22022 

22023 

22024 

22025 

22026 

22027 

22028 

22029 

22030 

22031 

22032 

22033 

22034 

22035 

22036 

22037 

22038 

22039 

22040 

22041 

22042 

22043 

22044 

22045 

22046 

22047 

22048 

22049 

22050 

22051 

22052 

22053 

22054 

22055 

22056 

22057 

22058 

22059 

22060 
22061 
22062 

22063 

22064 

22065 

22066 

22067 

22068 

22069 

22070 

22071 

22072 

22073 

22074 

22075 


ML4AD 


TEST CODE SECTION 


9678 * 

9679 BGNTST; 


9687 

9688 

9689 

9690 

9691 

9692 

9693 

9694 

9695 

9696 

9697 

9698 

9699 

9700 

9701 

9702 

9703 

9704 

9705 

9706 

9707 

9708 

9709 

9710 

9711 

9712 

9713 

9714 

9715 

9716 

9717 

9718 

9719 

9720 

9721 

9722 

9723 

9724 

9725 

9726 

9727 

9728 

9729 


TEST NUMBER: TST 48 

TEST NAME: CRC DATA BUS TEST 

TEST DESCRIPTION: 

TEST THE CRC DATA BUS BETWEEN THE CRC 

GENERATORS AND THE CRC/MBUS DATA 

MUX FOR CONTINUITY AND BIT UNIQUENESS 

BY: 

1. WHILE IN ECC DIAGNOSTIC MODE DO 
GOOD BLOCK TRANSFERS WITH VARIOUS 
CRC A, CRC B AND PAR CRC WRD WHICH 
WILt EXERCISE BUS CONTINUITY AND 
UNIQUENESS. 

2. THEN IN DATA D1AGN0STEC MODE READ 
THE CRC NIBBLES FROM ONE CRC GROUP 
FOR CORRECT CRC.A.CRC.B AND PAR.CRC, 
DATA PATTERNS. 

IMPLICIT INPUTS: 

PD TEMP 

A BIT VECTOR OF 16 BITS WHERE THE READ 

PROM DATA IS STORED QAND ACCESSED FROM. 


local 

TMPE1, 

DODO FLG, 

CRC.NIB, 

CRC.TSTED. 

EAR FLG. 

NIBlPAT; 

CLR. THRESHOLD; 

CRC NIB = 9; 

DOD0.FLG = ZERO; 

iricr LOOP from 0 to 4 do 
begin 
BGNSUB; 

CLR.MBUS; 

ECC. DM = ONE; 

case .LOOP from 0 to 4 of 


SEQ 0457 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

29-Mar- 1982 16:21:03 PA:<NEALE>ML4AD.BLI.4 (100) 


WRD 


•TEMP STORAGE FOR El DATA WORD 

•DROP UNIT FLAG 

•POINTER TO THE CRC NIBBLE 

•STORES HOW MANY CRC NIBBLES WE HAVE TESTED 

•ERROR FLAG 

•TEST DATA FOA THE CRC NIB8LE 

•CLEAR ERROR PRINT THRESHOLD 
! SET CRC NIBBLE POINTER 
!CL C AR THE DROP UNIT FLAG 

! REPEAT THE TEST WITH FIVE NIBBLE PATTERNS 

.'START OF THE SCOPE LOOP 

•SET ECC DIAG MOD 

! SELECT ONE OF THE FIVE NIBBLE PATTERNS 
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SEtJ 0458 


220 77 


22080 

22081 

m 

22084 

22085 

22086 
22087 


22089 

22090 

22091 


22094 

22095 

22096 

22097 

22098 

22099 

22100 
22101 
22102 

22103 

22104 

22105 

22106 

22107 

22108 

22109 

22110 
22111 
22112 

22113 

22114 

22115 

22116 

22117 

22118 

22119 

22120 
22121 
22122 

22123 

22124 

22125 

22126 
22127 
22121 

22129 

22130 

22131 


NL4AD 


9738 

9739 

9740 

9741 

9742 

9743 

9744 

9745 

9746 

9747 

9748 

9749 

9750 

9751 

9752 

9753 

9754 

9755 

9756 

9757 

9758 

9759 

9760 

9761 

9762 

9763 

9764 

9765 

9766 

9767 

9768 

9769 

9770 

9771 

9772 

9773 

9774 

9775 

9776 

9777 

9778 

9779 

9780 

9781 


TEST CODE SECTION 


NIB.PAT * lb* 110*; 
begin 

MLE1 * ONES; 

NLE2 * ONES; 
NIB.PAT * ifc'OOr; 
end; 

begin 

CRC.A * ONES; 

CRC“8 = ONES; 
NIBIPAT * lb* 000'; 


begin 

PAR.CRC.WRD = ONES; 

CRC“B = ONES: 

NIBlPAT = Xb'OII'; 
end; 

13 : 

begin 

► 

THE FOLLOWING ASSIGNMENT: 

ML El = .TMP.E1 

IS EQUIVALENT TO THE FOLLOWING 
TWO ASSlNGMENTS: 

PAR.CRC.WRD = ONES; ! 

CRC“A = ONES; 


>9-M*r-1982 16:23:04 
*9-Mer-1982 16:21:03 


[PATTERN 0 


TOPS-20 BH**-16 V2I212) 

PA : <NE ALE >ML4 AD. 8L I .4 (100) 


•PATTERN 1 


.'PATTERN 2 


! PATTERN 3 


[PATTERN 4 


•LOAD PAR.CRC.WRD WITH REN.TBL 
TOAD CRC.A WITH R&M.T8L 


THIS IS NECESSARY DUE TO THE FACT THAT 
THE El REGISTER IS WORD ORIENTATED AND 
THE BLISS COMPILER GENERATES BYTE INST 
TO ACCESS THE REGISTER. 


TMP.E1 = ZEROES; 
TNP.EKO. 6> = ONES; 
THP.EK8. 6> = ONES; 
MLET = .TMP.E1; 

NIB PAT = lb' 101'; 
end; 


.'CLEAR OUT THE TEMP WORD 
.'LOAD CRC.A WITH REN TBL 
.'LOAD PAR'CRC.WRD WITH REN.TBL 

.Toad the ei register with data 
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SEQ 0459 


22133 

22134 

22135 

22136 

22137 

22138 

22139 

22140 

22141 

22142 

22143 

22144 

22145 

22146 

22147 

22148 

22149 

22150 

22151 

22152 

22153 

22154 

22155 

22156 

22157 
22153 

22159 

22160 
22161 
22162 

22163 

22164 

22165 

22166 

22167 

22168 

22169 

22170 

22171 

22172 

22173 

22174 

22175 

22176 

22177 

22178 

22179 

22180 
22181 

m 

22184 

22185 


Ml 4 AD 


9782 

9783 

9784 

9785 

9786 

9787 

9788 

9789 

9790 

9791 

9792 

9793 

9794 

9795 

9796 

9797 

9798 

9799 

9800 

9801 

9802 

9803 

9804 

9805 

9806 

9807 

9808 

9809 

9810 

9811 

9812 

9813 

9814 

9815 

9816 

9817 

9818 

9819 

9820 

9821 

9822 

9823 

9824 

9825 

9826 

9827 

9828 

9829 

9830 

9831 


TEST CODE SECTION 
tes; 

CD SLK XFER O; 
NLtSI = write: 
TINE OOTJ.OOP; 

DAT PM = ONE; 
GD.8U.XFER O; 
NLtSI = read; 

CRC TSTED = ZERO; 
DEL*Y (ONE.US); 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<2 12) 
PA:<NEALE>NL4AD.8lI .4 (100) 


do 


begin 

PD TEMP = .MLPD; 

DAT CLK * ONE: 

DEL*Y (ONE.US); 

RD.LNG.URD; 

it .PD.TENP C.CRC.N1B3 IS.NOT.SET 
then 

begin 

CRC TSTED = .CRC TSTED ♦ 1; 

• 1 4. * A 


I SET UP A GOOD BLOCK TRANSFER 
!D0 A WRITE TRANSFER 
! WAI T UNTIL DRIVE READY 
•SET DATA D1AG NODE 
'SET UP A GOOD BLOCK TRANSFER 
•DO A READ TRANSFER 


TEST ONE CRC GROUP *6 CRC NIBBLES' 


.•READ THE PROM DATA FOR THIS ARRAY WORD 

•CLOCK OUT AN ARRAY WORD INTO THE DATA DIAG REG'S 

•DELAY ONE MICRO SECOND 

•READ THE DATA DIAG REG'S INTO MEMORY 

•TEST THIS CRC NIBBLE IF GOOD 


•INCREMENT THE GOOD NIBBLE COUNTER 


TSTlLNG.WRD (.CRt.NIB, .NIB.PAT, ERP.FLG); ! TEST THE CRC NIBBLE 


if .ERR.FLG IS.SET 
then 

cj$ 1>n 


•SEE IF THE TEST FOUND AN ERROR 

•REPORT ERROR IF FLAG IS SET 
! COMPARE ERROR PRINT THRESHOLD 


. THRESHOLD; 

ERRPF (131. SYNC. DUMPER); 

PRINTS (FOR.FMT. URD 64. WRD 24, WRD 73, WRD 10); 
PRINTS (F NT" 5. .NIB.PAT, .NlB.SAVE CRIB 93, 8); 


DODU.FLG * ONE; 
end; 

end; 

end 

until .CRC. TSTED eql 6; 

ENDSUB; 

end; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


•SET THE DROP UNIT FLAG 


•REPEAT UNTIL ONE CRC GROUP HAS BEEN TESTED 
•END OF SCOPE LOOP 
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22193 

22194 

22198 

22199 

22200 
22201 
22202 

22203 

22204 

22205 

22206 

22207 

22208 

22209 

22210 
22211 
22212 

22213 

22214 

22215 

22216 

22217 

22218 

22219 

22220 
22221 
22222 

22223 

22224 

22225 

22226 

22227 

22228 

22229 

22230 

22231 

22232 

22233 

22234 

22235 

22236 

22237 

22238 

22239 

22240 

22241 

22242 

22243 


077674 

077700 

077704 

077710 

077714 

077720 

077722 

077724 

077732 

077736 

077742 

077750 

077754 

077762 

077764 

077766 

077772 

077774 

077776 

100000 

100002 

100004 

100010 

100012 

100020 

100026 

100032 

100034 

100042 

100050 

100052 

100054 

100062 

100070 

100074 

100076 

100102 

100110 

100116 

100122 

100126 

100134 

100140 

100142 

100150 

100154 


004167 
162706 
005067 
012746 
005066 
005001 
104402 
152777 
016705 
042705 
142777 
1 50577 
152777 
010105 
006305 
066507 
000012 
000020 
000042 
000062 
000104 
012703 
000444 
012777 
012777 
012703 
000433 
152777 
152777 
ro50 r i 
000.23 
0 r ^777 
,52777 
012703 
000412 
005066 
052766 
016677 
012703 
004767 
012777 
105777 
100375 
152777 
004767 
012777 


104712 

000012 

115466 

000011 

000006 


000040 

116074 

177770 

000007 

115470 

000001 


077772 


000006 

177777 

177777 

000001 

J00077 

000077 


037400 

000077 

000003 

000002 

037477 

000002 

000005 

120164 

000061 

115314 

000G1C 

120136 

000071 


115512 


115474 

115542 


115534 4$: 
115536 


115512 5S: 
115514 


115472 6$: 
115474 


000002 

115436 


115250 


115354 

115222 


.SBTTL 

JSR 

SUB 

ClR 

NOV 

CLR 

CLR 

TRAP 

BISB 

NOV 

SIC 

B1C8 

BISB 

BISB 

NOV 

ASL 

ADD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

NOV 

BR 

NOV 

NOV 

NOV 

BR 

BISB 

BISB 

CLR 

BR 

BIS 

BISB 

NOV 

BR 

CLR 

BIS 

NOV 

NOV 

JSR 

NOV 

TST8 

BPL 

BISB 

JSR 

NOV 


ST48 TEST CODE SECTION 

R1.SSAVE5 

#1$.SP 

P.CNT 

#11.-(SP) 

6 (sh 

R1 

2 

#40,BNL.REGMO 

ms* 

#7.BNL.REG*40 

R5,8NL.REG*40 

#1,8NL.REG*1?0 

R1.R5 

R5 

2$(R5> ,PC 

3S-2S 

4$-2$ 

5S-2S 

6S-2S 

7S-2S 

#6.R3 

8$ 

4M,iNL.REG*150 
#-1.8NL.REG*160 
#1 ,R3 

8* 

#77,»«l.REG+15Q 

#77,3NL.REG+160 

R3 

as 

#37400, BNL . RE G ♦ 1 50 

#77 # BNL.REG+160 

#3,R3 

03%77£($P) 

2<SP) .BNL.REG+150 
#5.R3 

PC.GD.BLK.XFER 

#6i.aNL.R|G 

BNL.REG+50 

9S 

#10,8NL.REG*120 

PC.GD.BLK.XFER 

#7l,8NL.REG 


SEO 0460 


*,CRC.NIB 

DODU.FLG 

LOOP 



9676 

9717 

9720 

9721 

9723 

9724 

9725 


9727 

9729 


*.NIB.PAT 

9733 

9729 


9737 


9738 

*.NIB.PAT 

9739 

9729 


9744 


9745 

NIB. PAT 

9746 

9729 


9751 


9752 

*, NIB. PAT 

9753 

9729 

TNP.E1 

9775 

*.TNP.E1 

9777 

TNP.E1 ,* 

9778 

♦.NI8.PAT 

9780 

9784 


978* 


9787 

9788 

9789 



SEQ 0461 


K 4 
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$T48 TEST CODE SECTION 


22245 





;ML4AD 




22246 





# 


TEST CODE SECTION 


CCC*4f 

22248 

100162 

005066 

003004 



CLR 

4(SP) 

; CRC.TSTED 

22249 

100166 

012704 

000001 



MOV 

#1.R4 

; *.$$TMP2 

22250 

100172 

001411 



10$: 

8EQ 

13$ 


22251 

100174 

016705 

101716 



MOV 

LSDLY.R5 

; *,$$TMP1 

22252 

100200 

001404 




8EQ 

12$ 


22253 

100202 

005066 

000012 


11$: 

CLR 

12(SP) 

$$TMP 

22254 

100206 

005305 




DEC 

R5 

; $$TMP1 

222“' 

100210 

001374 




BNE 

11$ 


2225b 

100212 

005304 



12$: 

DEC 

R4 

; $$TMP2 

22257 

100214 

000766 




BR 

10$ 


22258 

100216 

011602 



13$: 

MOV 

(SPJ.R2 

; CRC.NI8,* 

22259 

100220 

006202 




ASR 

R2 


22260 

100222 

006202 




ASR 

R2 


22261 

100224 

006202 




ASR 

R2 


22262 

100226 

062702 

015342 



ADD 

fPD.TEMP.R2 


22263 

100232 

017767 

115376 

115102 

14$: 

MOV 

BML.REG+230.PD.TEMP 

• 

0 

22264 

100240 

152777 

000020 

115256 


BISB 

#20.8ML.REG+120 

; 

22265 

100246 

012704 

000001 



MOV 

f1«fa 

; *,$$TMP2 

22266 

100252 

001411 



15$: 

BEQ 

18$ 


22267 

100254 

016705 

101636 



MOV 

L$DLY.R5 

; *,$$TMP1 

22268 

100260 

001404 




BEQ 

17$ 


22269 

100262 

005066 

000012 


16$: 

CLR 

12(SP) 

; $$TMP 

22270 

100266 

005305 




DEC 

R5 

; $$TMP1 

22271 

100270 

001374 




BNE 

16$ 


22272 

100272 

005304 



17$: 

DEC 

R4 

; $$TMP2 

22273 

100274 

000766 




BR 

15$ 


22274 

100276 

017767 

115272 

113070 

18$: 

MOV 

BML.REG+170.D1 .TEMP 


22275 

100304 

017767 

115274 

113064 


MOV 

8ML.REG+200.D2.TEMP 


22276 

100312 

017767 

115246 

113060 


MOV 

BML.REGM60.E2.TEMP 


22277 

100320 

010246 




MOV 

R2.-(SP> 

# 

22278 

100322 

016646 

000002 



MOV 

2<SPK-(SP> 

; CRC.NI8,* 

22279 

100326 

042716 

177770 



BJC 

#1 77770, CSP) 


22280 

100332 

012746 

000001 



MOV 

#1,-<SP) 


2228 1 

100336 

005046 




CLR 

-(SP) 


22282 

100340 

004767 

103270 



JSR 

PC.8LSGT2 


22283 

100344 

062706 

000010 



ADD 

#10. SP 


22284 

100350 

005700 




TST 

RO 


22285 

100352 

001102 




BNE 

21$ 


22286 

100354 

005266 

000004 



INC 

4 (SP) 

; CRC.TSTED 

22287 

100360 

011646 




MOV 

(SP).-(SP) 

; CRC.NIB,* 

22288 

100362 

010346 




MOV 

R3.-CSP) 

; N1B.PAT,* 

22289 

100364 

012746 

000016 



MOV 

#16. -<SP) 


22290 

100370 

060616 




ADD 

SP.(SP) 

; ERR.FLG,* 

22291 

100372 

004767 

120000 



JSR 

PC.TST.LNG.WRD 


22292 

100376 

026627 

000016 

000001 


CMP 

16(SP).#1 

; ERR.FLG,* 

22293 

100404 

001063 




BNE 

20$ 


22294 

100406 

005267 

114764 



INC 

P.CNT 

• 

0 

22295 

100412 

026767 

1147o0 

114760 


CMP 

P.CNT. LIMIT 


22296 

100420 

003403 




BLE 

19$ 


22297 

100422 

062706 

000006 



ADD 

#6.SP 


22298 

100426 

000460 




BR 

22$ 


22299 

100430 

104455 



19$: 

TRAP 

55 

9 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

9790 

9791 


9800 


9795 

9796 

9797 


9800 

9803 

9804 

9806 

9808 

9810 
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SEQ 0462 


22301 




22302 




223C3 




22304 100432 

000203 



22305 100434 

012750 



22306 100436 

026302 



22307 100440 

012746 

010630 


22308 100444 

012746 

011532 


22309 100450 

012746 

010774 


22310 100454 

012746 

011446 


22311 100460 

012746 

010270 


22312 100464 

012746 

000005 


22313 100470 

010600 



22314 100472 

104414 



22315 100474 

012716 

000010 


22316 100500 

016705 

112674 


22317 100504 

006205 



22318 100506 

006205 



22319 100510 

006205 



22320 100512 

006205 



22321 100514 

000305 



22322 100516 

042705 

177770 


22323 100522 

010546 



22324 100524 

010346 



22325 100526 

012746 

006650 


22326 1G0532 

012746 

000004 


22327 100536 

010600 



22328 100540 

104414 



22329 100542 

012766 

000001 

000040 

22330 100550 

062706 

000024 


22331 100554 

062706 

000006 


22332 100560 

026627 

000004 

000006 

22333 100566 

001221 



22334 100570 

104467 



22335 100572 

006000 



22336 100574 

103002 



22337 100576 

000167 

177120 


22338 100602 

005201 



22339 100604 

020127 

000004 


22340 100610 

003772 



22341 100612 

026627 

000006 

000001 

22342 100620 

001004 



22343 100622 

016700 

115202 


22344 100626 

104451 



22345 100630 

104444 



22346 100632 

062706 

000014 


22347 100636 

000207 



22348 




22349 




22350 





.-ML4A0 

• 

• 


TEST CODE SECTION 


.WORD 

203 


.WORD 

SYNC 


.WORD 

DUMPER 


MOV 

#WRD.10,-(SP) 


MOV 

#WRD.73,-(SP> 


MOV 

#WRD.24,-(SP> 


MOV 

#WRD.64,-(SP) 


MOV 

#FOR.FMT,-(SP) 


MOV 

#5 , — < SP> 


MOV 

SP.RO 


TRAP 

14 


MOV 

#10, (SP) 


MOV 

NIB. SAVE +4, R5 


ASR 

R5 


ASR 

R5 


ASR 

R5 


ASR 

R5 


SWAB 

R5 


BIC 

#1 77770. R5 


MOV 

R5.-(SP> 


MOV 

R3,-(SP) 


MOV 

#FMT.5,-(SP> 


MOV 

#4 ,-<SP) 


MOV 

SP.RO 


TRAP 

14 


MOV 

01 ,40(SP) 


ADD 

#24. SP 

20$: 

ADD 

#6,SP 

21$: 

CMP 

4(SP) ,#6 


8NE 

14$ 

22$: 

TRAP 

67 


ROR 

RG 


BHJS 

24$ 

23$; 

JMP 

1$ 

24$: 

INC 

R1 


CMP 

R1.#4 

23i 


BLE 


CMP 

6(SP) ,#1 


BNE 

25$ 


MOV 

ML.LUN.RO 


TRAP 

51 


TRAP 

44 

25$: 

ADD 

#14. SP 


RTS 

PC 


; Routine Size: 242 words 
; Maximum stack depth per invocation: 


29-Mar-1982 16: 23 04 
29-Mar-1982 16:21:03 


SP,* 


; NIB. PAT,* 

; SP,* 

; *,DODU.FLG 
0 

; CRC.TSTED,* 


; LOOP 
; LOOP,* 

; DODU.FLG,* 


25 words 


TOPS 

PA:< 


9811 


9812 


9813 

9808 

9802 

9819 


9723 


9824 

9827 


9676 
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22362 

22363 

2236 7 

22368 

22369 

22370 

22371 

22372 

22373 
2237A 
22375 

22380 

22381 

22382 


100640 

100640 004767 177030 
100644 104466 
100646 006000 
100650 103773 
100652 000207 


9832 !<8LF/PAGE> 


T48: : 
IS: 


.S8TTL T48 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC,ST48 

66 

RO 

IS 

PC 


SEQ 0463 


9829 


; Routine Size: 6 words 

; Maximum stack depth per Invocation: 0 words 


! 


CZMLADO 
T48 TEST 

22384 

22385 

22386 

22387 

22388 

22389 

22390 

22391 

22392 

22393 

22394 

22395 

22396 

22397 

22398 

22399 

22400 

22401 

22402 

22403 

22404 

22405 

22406 

22407 

22408 

22409 

22410 

22411 

22412 

22413 

22414 

22415 

22416 

22417 

22418 

22419 

22420 

22421 

22422 

22423 

22424 

22425 

22426 

22427 

22428 

22429 

22430 

22431 

22432 

22433 

22434 

22435 

22436 
22 
22 
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SEQ 0464 


TEST CODE SECTION 


BGNTST; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 BUss-16 V2(212) 
PA:<NEALE>ML4AD.8LI .4 (101) 


9858 

9859 


TEST NUMBER: TST 49 

TEST NAME: UNIQUE NIBBLE CRC GENERATION TEST 

TEST DESCRIPTION: 

TEST CRC CODES GENERATED FOR ONE CRC 
GROUP (52 UNIQUE UNIBUS NIBBLES) BY: 

1. DOING MASS BUS WRITE TRANSFERSS WITH THE 
FIRST 10 BUF CRC GROUP HAVING 51 NIBBLES 

OF XB’OOOO* PATTERN AND THE REMAINING NIBBLE 
WITH PATTERNS OF XB'OOOO* TO XB'11H\ 

2. THEN IN DATA DIAGNOSTIC MODE CALCULATE 
THE CRC CODE FOR THE FIRST CRC 

GROUP AND COMPARE IT AGAINST THE 
HARDWARE GENERATED CRC CODE. 

3. REPEAT PATTERN OF IB'OOOO* TO 18*1111 * 
FOR EACH OF THE 52 NIBBLES. 

IMPLICIT INPUTS: 

I0.8UF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


* www 

9867 local 

9868 DODU.FLG, 

9869 TEMP. 

9870 NIB.SEL; 

9871 

9872 DODU FLG = ZEROES; 

9873 CLR THRESHOLD; 

9874 

9875 incr CNT from 0 to 13 do 

9876 IO,BUF C.CN.J = ZEROES; 

9877 

9878 incr WRD CNT from 0 to 12 do 

9879 begin 

9880 NIB.SEL = -4; 

9881 

9882 incr NIB TST from 0 to 3 do 


•DROP UNIT FLAG 

.•TEMPORARY STORAGE LOCATION 

•SELECTS 4 BITS ’ONE NIBBLE* FROM THE 10, BUF 

•CLEAR THE DROP UNIT FLAG 
•CLEAR ERROR PRINT THRESHOLD 

•CLEAR THE FIRST 14 10, BUF WORDS 

•DO THIS TEST ON 13 I0.8UF WORDS 

•RESET THE NIBBLE SELECTOR 

IDO THIS TEST ON 4 NIBBLES PER WORD 
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22440 

22441 

22442 

22443 

22444 

22445 

22446 

22447 

22448 

22449 

22450 

22451 

22452 

22453 

22454 

22455 

22456 

22457 

22458 

22459 

22460 

22461 

22462 

22463 

22464 

22465 

22466 

22467 

22468 

22469 

22470 

22471 

22472 

22473 

22474 

22475 

22476 

22477 

22478 

22479 

22480 

22481 

22482 

22483 

22484 

22485 

22486 

22487 

22488 

22489 

22490 

22491 


ML4AD 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 

9899 

9900 

9901 

9902 

9903 

9904 

9905 

9906 

9907 

9908 

9909 

9910 

9911 

9912 

9913 

9914 

9915 

9916 

9917 

9918 

9919 

9920 

9921 

9922 

9923 

9924 

9925 

9926 

9927 

9928 

9929 

9930 

9931 

9932 

9933 


TEST CODE SECTION 29-Mar-19BZ 16:2 

if (.WRD.CNT eql 12) and (.NI8.TST eql 2) then exitloop; 


SEO 0465 

TOPS-20 Bliss-16 V21212) 

PA ; <NE ALE >ML4 AD .BL i . 4 (101) 

f THE LAST 2 NIBBLES ARE NOT TESTED 


NIB SEL = .NIB.SEL ♦ 4; 
TEMP = ZEROES; 


’INCREMENT THE NIBBLE SELECTED 
.'CLEAR TEMP LOCATION 


incr NIB.PAT from Xb'OOOO* to Xb’IMI’ by Xb’0001' do .'RUN PATTERNS ON THE IS NIBBLE 

BgUsuB; * START OF SCOPE LOOP 

TEMP<.NI8 SEL, 4> = .NIB PAT; 'LOAD PATTERN INTO TEMP AT THIS NIBBLE 

10 BUF C.ORD CNTJ = .TEMP; .'LOAD THE GENERATED PATTERN INTO THE IO.BUF 


TEMP<.NIB SEL, 4> = .NIB PAT; 
10 BUF C.ORD CNTJ = .TEMP; 
CLP.MBUS; 

GD 0LK XFER <); 

MLtSI = write; 

TIME OUT LOOP; 

A GER = ZEROES; 

8 GEN = ZEROES; 

P GEN = ZEROES; 

A CAL = ZEROES; 

B"CAL = ZEROES; 

P~CAL = ZEROES; 

CXL.CRC <); 

if ERR.CHK.CRC () 
then 

begin 

CMP THRESHOLD; 


CMP THRESHOLD; » COMPARE 
ERR&F (132, SYNC, DUMPER); 

PRINTB (THR.FMT, WRD 5, WRD 64, WRD 8); 
PRINTS (FMT 19, .B.GEN, .A.BEN, .P.CEN); 
PRINTB (FMT~20, .BlCAL, .A.CAL, .P.CAL); 
DODU.FLG = ONE; 


.'SET UP A GOOD BLOCK TRANSFER 

!D0 A WRITE TRANSFER 

.'WAIT FOR THE TRANSFER TO COMPLETE 

• CLEAR THE GEN t CAL STORAGE LOCATIONS 


!CALL ROUTINE TO CALCULATE THE CRC CODE FOR THIS PATTERN 

.'NOW SEE IF THE GEN CRC IS SAME AS CAL CRC 

•REPORT THE ERROR IF NOT THE SAME 
•COMPARE ERROR PRINT THRESHOLD 


ENDSUB; 

end; 

10 BUF C.WRD.CNT3 = ZEROES; 
en3; 


if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 

ENDTST; 


.'END OF SCOPE LOOP 


.•CLEAR THIS IO.BUF WORD FO NEXT NIBBLE 


.'DROP THIS UNIT IF THE DODU FLAG GOT SET 
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SEO 0466 


22496 




; ML 4 AD 


22497 

22498 




# 


22499 

22500 




ST49: 

.SBTTL 

22504 100654 

004167 

103732 


JSR 

22505 100660 

024646 

000002 



CMP 

22506 100662 

005066 



CLR 

22507 100666 

005067 

114504 



CLR 

22508 100672 

005000 



IS: 

CLR 

22509 100674 

010001 



MOV 

22510 100676 

006301 

014022 



ASL 

22511 100700 

005061 



CLR 

22512 100704 

005200 




INC 

22513 100706 

020027 

000015 



CMP 

22514 100712 

003770 




BLE 

22515 100714 

005002 

177774 


2S: 

CLR 

22516 100716 

012716 


MOV 

22517 100722 

010201 




MOV 

22518 100724 

006301 




ASL 

22519 100726 

005004 



3S: 

CLR 

22520 100730 

020227 

000014 


CMP 

22521 100734 

001003 




BNE 

22522 100736 

020427 

000002 



CMP 

22523 100742 

001575 



4S: 

BEQ 

22524 100744 

062716 

000004 


ADD 

22525 100750 

005005 




CLR 

22526 100752 

005003 



5$: 

CLR 

22527 100754 

104402 



TRAP 

22528 100756 

010546 

000002 



MOV 

22529 100760 

016646 



MOV 

22530 100764 

012746 

000004 



MOV 

22531 100770 

010346 




MOV 

22532 100772 

004767 

103000 



JSR 

22533 100776 

010005 

014022 



MOV 

22534 101000 

010561 

114432 


MOV 

22535 101004 

152777 

000040 


8158 

22536 101012 

016700 

115014 



MOV 

22537 101016 

042700 

177770 



BIC 

22538 101022 

142777 

000007 

114414 


BICB 

22539 101030 

150077 

114410 



BJS8 

22540 101034 

004767 

117252 

114336 


JSR 

22541 101040 

012777 

000061 


MOV 

22542 101046 

22543 101052 

105777 

100375 

114402 


6S: 

TSTB 

BPL 

22544 101054 

005067 

114310 



CLR 

22545 101060 

005067 

114306 



CLR 

22546 101064 

22547 101070 

005067 

114304 



CLR 

005067 

114266 



CLR 

22548 101074 

005067 

114264 



CLR 

22549 101100 

005067 

\\i® 



CLR 

22550 101104 

004767 



JSR 


TEST CODE SECTION 


ST49 TEST CODE SECTION 
R1 .SSAVE5 
-(SP),-(SP> 

2(SP) 

P.CNT 

RO 

R0.R1 

R1 

IO.aUF(Rl) 

RO 

R0.#15 

IS 

R2 

#-4.<SP) 

R2.R1 

R1 

R4 

R2.#14 

4$ 

R4 .#2 

ioi 

#4. (SP) 

R5 

R3 

2 

R5 ,-<SP> 

2CSPJ ,-(SP) 

#4,-(SP) 

R3.-CSP) 

PC.BLSPUl 

R0.R5 

R5.I0.BUF<R1) 
#40.aML.REG+40 
WL.DUT.RO 
#1 77776, RO 
#7.3ML.REG*40 
R0.iML.REG*40 
PC.GD.BLK.XFER 
#61 .3ML.REG 
BNL.REG+50 
6 $ 

A. GEN 

B. GEN 
P.GEN 

A. CAL 

B. CAL 
P.CAL 

PC.CAL.CRC 


29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


# 

9831 

; DODU.FLG 

9872 

; CNT 

9875 

; CNT,* 

9876 

; CNT 
; CNT,* 

9875 

; WRD.CNT 

9878 

; *,NI8.SEL 

9880 

; WRD.CNT,* 

9894 

; NIB.TST 

9882 

; WRD.CNT.* 

9885 

; NIB.TST.* 

; *.NIB.SEL 

9887 

; TEMP 

9888 

; NIB. PAT 

9890 


9891 

; TEMP.* 

; NJ8.SEL,* 

9893 

; NIB. PAT,* 

; *,TEMP 

9891 

; TEMP.* 

9894 


• 

9896 

0 

• 

• 

9897 


9899 


9900 


9901 


9902 


9903 


9904 


9905 



CZMLADO Ml-11 LOGIC TEST 
$T49 TEST CODE SECTION 


MACRO H1 113 30-MAR-82 11:18 PAGE 484 


SEO 0467 


22552 

22553 

22554 

22555 

22556 

22557 

22558 

22559 

22560 

22561 

22562 

22563 

22564 

22565 

22566 

22567 

22568 

22569 

22570 

22571 

22572 

22573 

22574 

22575 

22576 

22577 

22578 

22579 

22580 

22581 

22582 

22583 

22584 

22585 

22586 

22587 

22588 

22589 

22590 

22591 

22592 

22593 

22594 

22595 

22596 

22597 

22598 

22599 

22600 
22601 
22602 

22603 

22604 

22605 

22606 


101110 

101114 

101116 

101120 

101124 

101132 

101134 

101140 

101142 

101144 

101146 

101150 

101152 

101156 

101162 

101166 

101172 

101176 

101200 

101202 

101206 

101212 

101216 

101222 

101226 

101230 

101232 

101236 

101242 

101246 

101252 

101256 

101260 

101262 

101270 

101274 

101300 

101302 

101304 

101306 

101310 

101314 

101316 

101322 

101324 

101330 

101332 

101336 

101340 

101344 

101346 

101352 


004767 

006000 

103066 

005267 

026767 

003403 

062706 

000462 

104455 

000204 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

016716 

016746 

016746 

012746 

G12746 

010600 

104414 

016716 

016746 

016746 

012746 

012746 

010600 

104414 

012766 

062706 

062706 

104467 

006000 

103623 

005203 

020327 

003617 

005061 

005204 

020427 

003002 

000167 

005202 

020227 

003002 

000167 

026627 


116326 


114252 

114246 114246 
000010 


010602 

011446 

010552 

010256 

000004 


114166 

114156 

114154 

007632 

000004 


114130 

114120 

114116 

007702 

000004 


000001 000044 

000032 
000010 


000017 

014022 

000003 

177372 

000014 

177344 


; ML 4 AD 




• 


TEST CODE SECTION 



JSR 

PC.ERR.CHK.CRC 

9 


ROR 

RO 



BCC 

8$ 



INC 

P.CNT 

9 


CMP 

P.CNT, LIMIT 



BLE 

7$ 



ADD 

*10, SP 



BR 

9$ 


7$: 

TRAP 

55 

• 


.WORD 

204 



.WORD 

SYNC 



.WORD 

DUMPER 



MOV 

#WRD.8.-(SP> 

9 


MOV 

#WRD.64,-(SP) 



MOV 

#WRD.5,-(SP> 



MOV 

#THR.FMT,-(SP> 



MOV 

#4,-<SP> 



MOV 

SP,RO 

; SP.* 


TRAP 

14 



MOV 

P.GEN.(SP) 

• 

9 


MOV 

A.GEN,-<SP> 



MOV 

B.GEN.-(SP) 



MOV 

#FMT.l9 f -(SP) 



MOV 

#4,-<SP) 



MOV 

SP.RO 

; SP.* 


TRAP 

14 



MOV 

P.CAL, (SP) 

# 


MOV 

A.CAL,-<SP> 



MOV 

B.CAL.~(SP) 



MOV 

#FMT.20,-(SP> 



MOV 

#4,-<SP> 



MOV 

SP.RO 

; SP.* 


TRAP 

14 



MOV 

#1 -44(SP) 

; *.D0DU.FL6 


ADD 

#32. SP 

• 

# 

8$: 

ADD 

#10.SP 

• 

9 


TRAP 

67 

9 


ROR 

RO 



BLO 

5$ 


9$: 

INC 

R3 

; NIB. PAT 


CMP 

R3,#17 

; NIB. PAT,* 


BLE 

5$ 



CLR 

I0.BUF(R1) 

; 


INC 

R4 

; NIB.TST 


CMP 

R4,#3 

; NIB.TST,* 


BGT 

ioi 



JMP 

3$ 


10$: 

INC 

R 2 

; WRD.CNT 


CMP 

R2,#14 

; WRD.CNT,* 


BGT 

111 



JMP 

2$ 


11$: 

CMP 

2(SP),#1 

; DODU.FLG,* 


29-Mar- 1982 16:23:04 
?9-Mar-1982 16:21:03 


9915 
9909 
9891 

9916 


9890 


9878 


E 5 
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CZMLADO ML -11 LOGIC TEST 
$T49 i EST CODE SECTION 


22608 

22609 

22610 
22611 
22612 

22613 

22614 

22615 

22616 

22617 

22618 
22619 

22624 

22625 

22629 

22630 

22634 

22635 

22636 

22637 

22638 

22639 

22640 

22641 

22642 

22647 

22648 

22649 

22650 


101360 

101362 

101366 

101370 

101372 

101374 


001004 

016700 

104451 

104444 

022626 

000207 


101376 

101376 

101402 

101404 

101406 

101410 


004767 

104466 

006000 

103773 

000207 


9934 

9935 


114442 


177252 


!<BLE/PAGE> 


; ML 4 AD 
0 

BNE 
MOV 
TRAP 
TRAP 
12$: CMP 

RTS 


TEST CODE SECTION 
12 $ 

ML.LUN,RO 

51 

44 

(SP)*,(SP)* 

PC 


; Routine Size: 169 words, 

; Maximum stack depth per invocation: 25 words 


.S8TTL T49 TEST CODE SECTION 

T49* * 

1$: JSR PC,$T49 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


SEQ 0468 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


9929 


9831 


9931 


~\ 

\ 



CZKLADO ML-11 LOGIC TEST 
TA9 TEST CODE SECTION 


F 5 

MACRO HI 113 30-MAR-82 11:18 PAGE 486 


SEO 0469 


22652 

22653 

22654 

22655 

22656 

22657 

22658 

22659 

22660 
22661 
22662 

22663 

22664 

22665 

22666 

22667 

22668 

22669 

22670 

22671 

22672 

22673 

22674 

22675 

22676 

22677 

22678 

22679 

22680 
22681 
22682 

22683 

22684 

22685 

22686 

22687 

22688 

22689 

22690 

22691 

22692 

22693 

22694 

22695 

22696 

22697 

22698 


; HI 4 AD 


ii 


699 

700 

701 

$ 

704 

705 

706 


9936 

9937 

9938 

9939 

9940 

9941 

9942 

9943 

9944 

9945 

9946 

9947 

9948 

9949 

9950 

9951 

9952 

9953 

9954 

9955 

9956 

9957 

9958 

9959 

9960 

9961 

9962 

9963 

9964 

9965 

9966 

9967 

9968 

9969 

9970 

9971 

9972 

9973 

9974 

9975 

9976 

9977 

9978 

9979 

9980 

9981 


998 



29-Mar-1982 16:23:04 T0PS-20 BUss-16 V2(212) 

TEST CODE SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI.4 (102) 

i 

BGNTST; 


TEST NUMBER: TST 50 

TEST NAME: UNIQUE WORD CRC GENERATION TEST 

TEST DESCRIPTION: 

TEST CRC CODES GENERATED FOR ONE 
CRC GROUP (13 UNIBUS WORDS) BY: 

1. DOING MASS BUS WRITE TRANSFERS 
USING VARIOUS WORD DATA PATTERENS. 

2. THEN IN DATA DIAGNOSTIC MODE 
CALCULATE THE CRC CODE FOR THE 
FIRST CRC GROUP AND COMPARE IT TO 
THE HARDWARE GENERATED CRC CODE. 

IMPLICIT INPUTS: 

I0.8UF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


local 

DODU FLG, 

TST.PAT; 

DODU.FLG = ZEROES; 

incr PAT.SEL fro* 0 to 3 do 
begin 
BGNSUB; 

CLR.MBUS; 

case .PAT SEL from 0 to 3 of 
set 

COJ : 

TST.PAT = ONES; 

C1J : 

TST.PAT = Xo *052525*; 

C2J : 

TST.PAT * Xo*125252*; 

C3] : 


•DROP UNIT FLAG 

•TEST PATTERN SAVE LOCATION 

•CLEAR THE DROP UNIT FLAG 

!RUN THE TEST ON 4 PATTERNS 

.•START OF SCOPE LOOP 

•SELECT ONE OF THE 4 PATTERNS 


CZMLADO Ht-n logic test 
T49 TEST COOE SECTION 


G S 

MACRO M1113 30-MAA-82 11:18 PAGE <.87 


SEG 0470 


22708 

22709 

22710 

22711 

22712 

22713 

22714 

22715 

22716 

22717 

22718 

22719 

22720 

22721 

22722 

22723 

22724 

22725 

22726 

22727 

22728 

22729 

22730 

22731 

22732 

22733 

22734 

22735 

22736 

22737 

22738 

22739 

22740 

22741 

22742 

22743 

22744 

22745 

22746 

22747 

22748 



ML4AD 


l 757 

Ztl 58 

22759 

22760 

22761 

22762 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI .4 (102) 


101412 

101416 

101420 

101422 

101424 

101432 


9988 

9989 

9990 

9991 

9992 

9993 

9994 

9995 

9996 

9997 

9998 

9999 

10000 
10001 
10002 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 
10011 
10012 

10013 

10014 

10015 

10016 

10017 

10018 

10019 

10020 
10021 
10022 

10023 

10024 

10025 


004167 

005005 

005004 

15277 ? 

016703 


TST PAT = Xo’ 070707’; 

tes; 

incr CNT from 0 to 255 do 
IO_BUF C-CNT3 = .TST.PAT; 

GD blk.xfer O; 

MLtSI = write; 

TINE OUT LOOP; 

A GEN = ZEROES; 

B GEN = ZEROES; 

P GEN = ZEROES; 

AlCAL = ZEROES; 

B CAL = ZEROES; 

P CAL = ZEROES; 

C*L.CRC (); 

if ERR CHK.CRC <) 
then 

ER^DF (133, SYNC, DUMPER) ; J 
PRINTS (THR.FMT, WRD 5, WRD 64, 
PRINTS (FMT 19, .B.GEN, .A.BEN, 
PRINT8 (FNT~2 0, .8.CAL, .A. CAL, 
DODU.FLG = ONE; 
end; 

ENDSUS; 

end; 

if .DODU.FLG IS.SET 
then 

begin 

DODU (.ML.LUN); 

DOCLN; 

end; 


!L0AD THE FIRST 13 IO.BUF WORDS WITH TST.PAT 

! SET UP A GOOD BLOCK TRANSFER 
•DO A WRITE TRANSFER 
1WAIT FOR THE TRANSFER TO COMPLETE 
•CLEAR THE GEN t CAL SAVE LOCATIONS 


•CALCULATE WHAT THE CRC CODE SHOULD BE 

•NOW SEE IF THE GENERATED CRC CODE IS THE SAME 

•REPORT THE ERROR IF NOT THE SAME 


WRD-8); 

.P.fiEN); 

.P.CAL); 


!END OF SCOPE LOOP 


.•DROP THIS UNIT IF THE DODU FLAG GOT SET 


ENDTST; 


103174 


000040 

T.4374 


114012 


.S8TTL ST50 TEST COOE SECTION 

$T50: JSR R1,$SAVE5 

CLR R5 

CLR R4 

IS: TRAP 2 

BISS #40,a*L.REG+40 

MOV HL.DUT,R3 


DODU.FLG 

PAT.SEL 


9933 

9968 

9970 

9971 

9972 



C2NLAD0 NL-11 LOGIC TEST 
ST50 TEST CODE SECTION 


H 5 
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22 7 64 
22765 

m 

22768 

m 

22771 

P 

22774 

2277 5 

P 

22778 


;NL4AD 


22794 

22795 


22798 

22799 

22800 
22801 
22802 

22803 

22804 

22805 

22806 

22807 

22808 

22809 

22810 
22811 
22812 

22813 

22814 

22815 

22816 

22817 

22818 


P 

22782 

22783 

22784 

22785 

22786 

22787 

22788 

22789 

22790 

22791 


101436 
101442 
101450 
101454 
101456 
101460 
101464 
101466 
101470 
101472 
101474 
101500 
101502 
101506 
101510 
101514 
101516 
101522 
101524 
101526 
101530 
101534 
101536 
101542 
101 544 
101550 
101556 
101562 
101564 
101570 
101574 
101600 
101604 
101610 
101614 
101620 
101624 
101626 
101630 
101632 
101634 
101636 
101640 
101644 
101650 
101654 
101660 
101664 
101666 
101670 
101674 
101700 


042703 

142777 

150377 

010403 

006303 


177770 

00^007 113774 


101464 


012701 

000410 

012701 

000405 

012701 

000402 

012701 

005002 

010203 

006303 

010163 

005202 

020227 

003770 

004767 

012777 

105777 

100375 

005067 

005067 

005967 

005067 

005067 

005067 

004767 

004767 

006000 

103054 

104455 

000205 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

016716 

016746 

016746 


177777 

052525 

125252 

070707 


014022 

000377 

116542 

000061 113626 

113672 

113600 

113576 

113574 

113556 

113554 

113552 

115222 

115616 


010602 

011446 

010552 

010256 

000004 


113500 

113470 

113466 


8IC 

81 CB 

BISS 

NOV 

ASL 

ADD 

.WORD 

.WORD 

.WORD 

.WORD 

NOV 

BR 

NOV 

BR 

NOV 

BR 

NOV 

CLR 

NOV 

ASL 

NOV 

INC 

CNP 

BLE 

JSR 

NOV 

TSTB 

BPL 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 

JSR 

ROR 

BCC 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 


TEST CODE SECTION 

#1 77770, R3 

#7.BNL.REG*40 

R3.8NL.REG+40 

R4,R3 

R3 

2S(R3).PC 

3S-2S 

4S-2S 

58-2S 

68-28 

#-1.R1 

7$ 

#52525,R1 

7% 

#-52526, R1 

7$ 

#70707,R1 

R2 

jg,R3 

R1,I0.BUHR3) 

R2 

R2.#377 

8$ 

PC.GD.BLK.XFER 
#61 ,dNL.R|G 
3NL.REG+S0 
9$ 

A. GEN 

B. GEN 
P.GEN 

A. CAL 

B. CAL 
P.CAL 

PC.CAL.CRC 

PC,ERR.CHK.CRC 

% 

205 

STNC 

DUMPER 

#WRD.8,-(SP) 

#WRD.64,-(SP> 

#WRD. 5, -(SP) 

#THR.FNT.-(SP) 

#4.-<SP> 

SP.RO 

14 

P.GEN, (SP) 

A. GEN,-(SP) 

B. GEN, -(SP) 


5EQ 0471 


29-Nar-1982 16:23:04 TOPS 

29-N«r-1982 16:21:03 PA:< 


; PAT.SEL,' 9975 


•.TST.PAT 

9979 

9975 

•.TST.PAT 

9982 

9975 

*,TST.PAT 

9985 


9975 

*,TST.PAT 

9988 

CNT 

9991 

CNT.* 

9992 

TST.PAT,* 

CNT 

9991 

CNT.* 

9994 


9995 


9997 


9998 


9999 


1000 


1000 


1000 


1000 


1000 


1000 


1000 


; SP.* 

1001 




CZALADO At -11 LOGIC TEST 
ST50 TEST CODE SECTION 


I 5 
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SEO 04/2 


22820 

22821 

22822 

22823 

22824 

22825 

22826 

22827 

22828 

22829 

22830 

22831 
228 
228 

22834 

22835 

22836 

22837 

22838 

22839 

22840 

22841 

22842 

22843 

22844 

22845 

22846 

22847 

22848 

22849 

22850 

22855 

22856 
22860 
22861 

22865 

22866 

22867 

22868 

22869 

22870 

22871 

22872 

22873 


; At 4 AD 


101704 

012746 

007632 


AOV 

101710 

012746 

000004 


AOV 

101714 

010600 



AOV 

101716 

104414 



TRAP 

101720 

016716 

113442 


AOV 

101724 

016746 

113432 


AOV 

101730 

016746 

113430 


AOV 

101734 

012746 

007702 


AOV 

101740 

012746 

000004 


AOV 

101744 

010600 



AOV 

101746 

104414 



TRAP 

101750 

012705 

000001 


AOV 

101754 

062706 

000032 


ADD 

101760 

104467 


10S: 

TRAP 

101762 

006000 



ROR 

101764 

103616 



BLO 

101766 

005204 



INC 

101770 

020427 

000003 


CAP 

101774 

003612 



BLE 

101776 

005305 



DEC 

102000 

001004 



BNE 

102002 

016700 

114022 


AOV 

102006 

104451 



TRAP 

102010 

104444 



TRAP 

102012 

000207 


IIS: 

RTS 


102014 

102014 

102020 

102022 

102024 

102026 


004767 177372 
104466 
006000 
103773 
000207 


TEST CODE SECTION 

#FAT.19,-(SP> 

#4.-(SP> 

SP.RO 

14 

P.CAL.(SP) 

A. CAL,-<SP> 

B. CAL.-(SP) 
#FAT.20,-(SP> 
#4.-<SP) 

SP.RO 

14 

#1.R5 
#32. SP 
67 
RO 
1 $ 

R4 

R4.#3 

1$ 

R5 

IIS 

AL.LUN.RO 

51 

44 

PC 


Routine Size: 129 words 
Aaxirmja stack depth per invocation: 


T 50 : : 
IS: 


.S8TTL T50 TEST COOE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC.ST50 

66 

RO 

IS 

PC 


Routine Size: 6 words 

Aaximut stack depth per invocation: 


; SP.* 


; SP.* 

; *.DODU.FLG 
# 

; PAT.SEL 
; PAT.SEL.* 

; DODU.FLG 


19 words 


0 words 


29-Aar-1982 16:23:04 
29-Aar-1982 16:21:03 


TOPS 

PA:< 


1001 


1001 

1000 

1001 


9970 

1001 

1002 


9933 


1002 


CZNLADO ML-11 LOGIC TEST 
T 50 TEST CODE SECTION 


J 5 

MACRO MTU 3 3Q-MAR-82 11:18 PAGE 490 


SEQ 0473 


22882 

22883 

22884 ; 10026 !<8LF/PAGE> 


CZMLADO HL-11 LOGIC TEST 
T50 TEST CODE SECTION 


MACRO H1 1 1 5 30-NAR-82 11:18 PAGE 491 


SEQ 0474 


22886 

22887 

22888 

22889 

22890 

22891 

22892 

22893 

22894 

22895 

22896 

22897 

22898 

22899 

22900 

22901 

22902 

22903 

22904 

22905 

22906 

22907 

22908 

22909 

22910 

22911 

22912 

22913 

22914 

22915 

22916 

22917 

22918 

22919 

22920 

22921 

22922 

22923 

22924 

22925 

22926 

22927 

22928 

22929 

22930 

22931 

22932 

22933 

22934 

22935 

22936 

22937 

22938 

22939 

22940 


HL4AD 


TEST CODE SECTION 


29-Har-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 BU*s-16 V2(212) 
PA:<NEALE>ML4A0.8L1 .4 (103) 


10027 

10028 

10029 

10030 

10031 

10032 

10033 

10034 

10035 

10036 

10037 

10038 

10039 

10040 

10041 

10042 

10043 

10044 

10045 

10046 

10047 

10048 

10049 

10050 

10051 
1005? 

10053 

10054 

10055 

10056 

10057 

10058 

10059 

10060 
10061 
10062 

10063 

10064 

10065 

10066 

10067 

10068 

10069 

10070 

10071 

10072 

10073 

10074 

10075 

10076 

10077 

10078 


BGNTST; 

! ♦♦ 

! TEST NUMBER: 

i 

j TEST NAME: 


TST 51 


CORRECTABLE ERROR SYNDRONE DECODE TEST 


TEST DESCRIPTION: 

TEST SYNDRONE DECODE AND ERROR 
CORRECTION TO DECODE AND CORRECT 
SINGLE BIT AND MULTIPLE BIT 
CHANNEL ERRORS BY: 

1. VIA ECC DIAG MODE FORCE SYNDRONE 
BITS TO DECODE SINGLE BIT AND 
MULTIPLE BIT CHANNEL ERRORS. 

2. THEN DO A MASS BUS READ TRANSFER 
AND EXAM THE 10 BUF FOR CORRECT 
BIT COMPLIMENTING. 

IMPLICIT INPUTS: 

10. BUF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


local 

BITS.XFERED; 

CLR THRESHOLD; 

BAI’= ONE; 

10 BUF = ZEROES; 

GD BLK.XFER (); 

MLfSI = write; 

TIME.OUT LOOP; 

BITS.XFERED = -1; 

incr PLOG from 0 to 5 do 
begin 

incr CHANNEL fro* 0 to 35 do 
begin 
BGNSUB; 

CLR MBUS* 

BITS.XFERED = .BITS.XFERED ♦ 1; 
incr CNT from 0 to 255 do 


'POINTS TO THE CHANNEL BEING TESTED 

! CLEAR ERROR PRINT THRESHOLD 

‘BEFORE WE START LETS CLEAR OUT THE MLll'S 

‘GOOD BLOCK BY WRITTING ZEROES TO IT 


•RESET THE CHANNEL POINTER 

•TEST ONE CRC GROUP *6 ARRAY WORDS' 

•TEST 36 BITS IN EACH ARRAY WORD 

! START OF SCOPE LOOP 

! CLEAR THE DRIVE 

•INCREMENT THE CHANNEL POINTER 

• CLEAR THE FIRST CRC GROUP IN THE IO.BUF 
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SEQ 0475 


22942 

22943 

22944 

22945 

22946 

22947 

22948 

22949 

22950 

22951 

22952 

22953 

22954 

22955 

22956 

22957 

22958 

22959 

22960 

22961 

22962 

22963 

22964 

22965 

22966 

22967 

22968 

22969 

22970 

22971 

22972 

22973 

22974 

22975 

22976 

22977 

22978 

22979 

22980 

22981 

22982 

22983 

22984 

22985 

22986 

22987 

22988 

22989 

22990 

22991 

22992 

22993 

22994 

22995 

22996 


M14AD 


10079 

10080 
10081 
10082 

10083 

10084 

10085 

10086 
10C87 
10088 

10089 

10090 

10091 

10092 

10093 

10094 

10095 

10096 

10097 

10098 

10099 

10100 
10101 
10102 

10103 

10104 

10105 

10106 

10107 

10108 

10109 

10110 
10111 
10112 

10113 

10114 

10115 

10116 

10117 

10118 

10119 

10120 
10121 
10122 

10123 

10124 

10125 

10126 

10127 

10128 

10129 

10130 


TEST CODE SECTION 

IO.BUF C.CNTJ = ZEROES; 

FORCE REM (.PLOG, .CHANNEL); 

GD 8L* XFER (); 

ECt DIS = ZERO; 

MLCSl = read; 

TIME.OUT.LOOP; 

if not FIND.C0MP.8IT (.BITS.XFERED) 
then 

begin 

CMP THRESHOLD; 

ERRBF (134, SYNC, DUMPER); 

PRINTS (THR FMT, URD 74. WRD 75. 
PRINTS (FMT.21 , .PLOG, .CHANNEL); 
end; 

incr WRD.CNT from 0 to 12 do 

if .IO.BUF C.WRD.CNT3 neq ZEROES 
then 

be^in 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 

PA : <NEALE>ML4AD .8L I . 4 (103) 


.'FORCE THIS BIT IN THIS WORD IN ERROR 

.'SET UP A GOOD BLOCK TRANSFER 

.'CLEAR ECC DISABLE 

.'DO A READ TRANSFER 

!WAIT FOR THE TRANSFER TO COMPLETE 

.'SEARCH THE IO.BUF FOR THE COMP BIT 

! REPORT AN ERROR IF THIS BIT IS NOT COMP 
•COMPARE ERROR PRINT THRESHOLD 


PHR.1); 


... THRESHOLD; 

ERRBF (135. SYNC, DUMPER); 

PRINTB (FOR FMT. URD 61, WRD 74. WRD.75, PHR.5); 

PRINTB (FMTI21, .PLOG, .CHANNEL); 

end; 


! SEE IF ANY OTHER BITS GOT COMP'ED 

•TEST THE IO.BUF FOR ZEROES 

•REPORT AN ERROR IF ANY OTHERS ARE SET 
.'COMPARE ERROR PRINT THRESHOLD 


ENDSUB; 

end; 


end; 

BITS.XFERED = -1; 

incr CHANNEL from 0 to 35 do 
begin 
BGNSUB; 

CLR MBUS* 

BITS.XFERED = .BITS.XFERED ♦ 1; 

incr CNT fro« 0 to 20 do 
IO.BUF C.CNT3 = ZEROES; 

FORCE.REM (58. .CHANNEL); 

GD BL? XFER (); 

ECr DIS = ZERO; 

MLC51 = read; 

TIME.OUT.LOOP; 

incr BIT.OFFSET from 0 to 180 by 36 do 


•END OF SCOPE LOOP 

! RESET THE CHANNEL POINTER 

•TEST 36 CHANNELS FOR MULTIPLE BIT ERRORS 

‘START OF SCOPE LOOP 

•CLEAR THE DRIVE 

•INCREMENT THE CHANNEL POINTER 

•CLEAR THE FIRST CRC GROUP IN THE IO.BUF 


•FORCE ALL 6 8ITS IN THIS CHANNEL IN ERROR 

•SET UP A GOOD BLOCK TRANSFER 

.•CLEAR ECC DISABLE 

•DO A READ TRANSFER 

.•WAIT FOR THE TRANSFER TO CMOPLETE 

•SEE IF EVERY 36TH BIT GOT COMP'ED 
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SEQ 0476 


22998 

22999 

23000 

23001 

23002 

23003 

23004 

23005 

23006 

23007 

23008 

23009 

23010 

23011 

23012 

23013 

23014 

23015 

23016 

23017 

23018 

23019 

23020 

23021 

23022 

23023 

23024 

23028 

23029 

23033 

23034 

23035 

23036 

23037 

23038 

23039 

23040 

23041 

23042 

23043 

23044 

23045 

23046 

23047 

23048 

23049 

23050 

23051 

23052 


; NLA AD 


102030 

102034 

102036 

102042 

102050 

102054 

102060 

102066 

102072 

102074 

102100 

102102 

102104 

102106 

102114 

102120 

102124 

102132 

102136 

102140 


10131 

10132 

10133 

10134 

10135 

10136 

10137 

10138 

10139 

10140 

10141 

10142 

10143 

10144 

10145 

10146 

10147 

10148 

10149 

10150 

10151 

10152 

10153 

10154 


004167 

005746 

005067 

152777 

005067 

004767 

012777 

105777 

100375 

012716 

005005 

005004 

104402 

152777 

016703 

042703 

142777 

150377 

005216 

005001 


TEST CODE SECTION 

If not nND.C0NP.8IT (.8ITS.XPERED ♦ 
then 

begin 

CMP THRESHOLD; 

ERR&F (134, SYNC. DUMPER); 

PRINT8 (THR.FMT, URD.74, WRD 75, 
PRINTS (FMTI21. 58, .CHANNEL!; 
end; 

incr WRD.CNT from 0 to 12 do 

if .IO.BUF C. WRD.CNT J neq ZEROES 
then 

begin 

CM P THRESHOLD; 

ERR0F (135, SYNC. DUMPER); . 
PRINTS (FIV.FMT, WRD.61, WRD 74. 
PRINTS (FMT.21 • 58. .CHANNEL!; 
end; 

ENDSUB; 

end; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (103) 


.BIT.OFFSET) 


! SEARCH THE IO.BUF FOR THE COMP’ED SITS 


.'REPORT AN ERROR IF ANY OF THE BITS ARE NOT COMP’ED 
•COMPARE ERROR PRINT THRESHOLD 


PHR.1 ) ; 


.'ALSO SEE IF ANY OTHER BIT GOT COMP’ED 

'TEST THE IO.BUF FOR ALL ZEROES 

.'REPORT AN ERROR IF ANY OTHERS ARE COMP’ED 
! COMPARE ERROR PRINT THRESHOLD 

WRD.75, WRD.12, WRD.67); 


.'END OF SCOPE LOOP 


ENDTST; 


102556 

113334 

000010 113374 

111746 

116232 

000061 113316 

113362 

177777 


000040 113330 

113712 

177770 

000007 113312 
113306 


.S8T7L 

JSR 

TST 

CLR 

BISS 

CLR 

JSR 

MOV 

TST8 

BPL 

MOV 

CLR 

CLR 

TRAP 

BISS 

MOV 

BIC 

BIC8 

BISS 

INC 

CLR 


ST51 TEST CODE SECTION 

R1 .SSAVE5 

-(SP> 

P.CNT 

#10,aML.REG+40 

IO.BUF 

PC.GD.BLK.XFER 
#61 .3ML.REG 
8ML.REG+50 
IS 

#-1,(SP) 

R5 

R4 

2 

#40,8ML.REG+40 

ML.DUT.R3 

#177776.R3 

#7,BML.REG+40 

R3.BML.REG+40 

(SP) 

ai 


♦.BITS.XFERED 

PLOG 

CHANNEL 


; BITS.XFERED 
; CNT 
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STS 1 TEST CODE 

SECTION 








SEO 04 7 r 

23054 




:M14AD 



29-Mar- 1982 

16:23:04 

TOPS 

23055 




• 

§ 


TEST CODE SECTION 


29-Mar-1982 

16:21:03 

PA:< 

23056 

23057 102142 

010102 



48: 

MOV 

R1.R2 

• 

• 

CNT,* 


1007 

23058 102144 

006302 




ASL 

R2 





23059 102146 

005062 

014022 



CLR 

IO.BUF (R2) 


CNT 


1007 

23060 102152 

005201 




INC 

R1 

9 


23061 102154 

020127 

000377 



CMP 

R1,#377 

9 

CNT,* 



23062 102160 

003770 




BLE 

48 




1008 

23063 102162 

010546 




MOV 

R5.-ISP) 

9 

PLOG.* 


23064 102164 

010446 




MOV 

R4,-(SP> 

» 

9 

CHANNEL,* 



23065 102166 

004767 

115640 



JSR 

PC. FORCE. REM 




1008 

23066 102172 

004767 

116114 



JSR 

PC.GD.BLK.XFER 

9 



23067 102176 

142777 

000002 

113320 


BICB 

#2.BML.REG+120 
#71 .3ML.REG 

9 



1008 

23068 102204 

012777 

000071 

113172 


MOV 

• 

9 



1008 

23069 102212 

105777 

113236 


58: 

TSTB 

8ML.REG+50 





23070 102216 

100375 




BPL 

58 


8ITS.XFERED,* 


1008 

23071 102220 

016646 

000004 



MOV 

4 (SP) ,-(SP) 

9 


23072 102224 

004767 

115430 



JSR 

PC, FIND. COMP. BIT 





23073 102230 

005726 




TST 

<SP>* 





23074 102232 

006000 




ROR 

RO 





23075 102234 

103442 




BLO 

78 




1008 

23076 102236 

005267 

113134 



INC 

P.CNT 

« 

9 



23077 102242 

026767 

113130 

113130 


CMP 

P.CNT.LIMIT 





23078 102250 

003402 




BLE 

68 





23079 102252 

022626 




CMP 

(SP)+,<SP)+ 





23080 102254 

000512 




BR 

118 




1009 

23081 102256 

104455 



68: 

TRAP 

55 

• 

9 



23082 102260 

000206 




.WORD 

206 





23083 102262 

012750 




.WORD 

SYNC 





23084 102264 

026302 




.WORD 

DUMPER 




1009 

23085 102266 

012746 

011610 



MOV 

#PHR.1.-(SP> 

#WRD.75.-(SP> 

• 

9 



23086 102272 

012746 

011552 



MOV 





23087 102276 

012746 

011540 



NOV 

#WR0.74,-(SP) 

#THR.FMf.-<SP) 





23088 102302 

012746 

010256 



MOV 





23089 102306 

012746 

000004 



MOV 

#4,-CSP) 


SP ,* 



23090 102312 

010600 




MOV 

SP.RO 

9 



23091 102314 

104414 




TRAP 

14 


CHANNEL.* 


1009 

23092 102316 

010416 




MOV 

R4,(SP) 

• 

« 


23093 102320 

010546 




MOV 

R5,-(SP) 

• 

9 

PL06,* 



23094 102322 

012746 

007754 



MOV 

#FMT.21,-($P) 

#3,-($P> 





23095 102326 

012746 

000003 



MOV 


SP.* 



23096 102332 

010600 




MOV 

SP.RO 

• 

9 



23097 102334 

104414 




TRAP 

14 




1008 

23098 102336 

062706 

000020 



ADD 

#20. SP 

i 

URD.CNT 


23099 102342 

005003 



78: 

CLR 

R3 

• 

9 


1009 

23100 102344 

010302 



88: 

MOV 

R3.R2 

• 

# 

URD.CNT,* 


1009 

23101 102346 

006302 




ASL 

R2 





23102 102350 

005762 

014022 



TST 

IO.BUF (R2) 





23103 102354 

001442 




8E0 

98 




1010 

23104 102356 

005267 

113014 



INC 

P.CNT 

• 



23105 102362 

026767 

113010 

113010 


CMP 

P.CNT.LIMIT 

1&8 





23106 102370 

003040 




BGT 




1010 

23107 102372 

104455 




TRAP 

55 

• 

• 



23108 102374 

000207 




.WORD 

207 
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23110 

23111 

23112 

23113 

23114 

23115 

23116 

23117 

23118 

23119 

23120 

23121 

23122 

23123 

23124 

23125 

23126 

23127 

23128 

23129 

23130 

23131 

23132 

23133 

23134 

23135 

23136 

23137 

23138 

23139 

23140 

23141 

23142 

23143 

23144 

23145 

23146 

23147 

23148 

23149 

23150 

23151 

23152 

23153 

23154 

23155 

23156 

23157 

23158 

23159 

23160 

23161 

23162 

23163 

23164 


;ML4AD 


102376 

102400 

102402 

102406 

102412 

102416 

102422 

102426 

102432 

102434 

102436 

102440 

102442 

102446 

102452 

102454 

102456 

102462 

102464 

102470 

102472 

102474 

102476 

102500 

102502 

102504 

102510 

102512 

102516 

102520 

102524 

102526 

102532 

102536 

102540 

102542 

102550 

102554 

102560 

102566 

102572 

102574 

102576 

102600 

102602 

102606 

102610 

102614 

102616 

102622 

102624 

102630 


012750 

026302 

0*2746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010416 

010546 

012746 

012746 

010600 

104414 

062706 

005203 

020327 

003725 

022626 

104467 

006000 

103601 

005204 

020427 

003002 

000167 

005205 

020527 

003002 

000167 

012716 

005003 

104402 

152777 

016705 

042705 

142777 

150577 

005216 

005001 

010102 

006302 

005062 

005201 

020127 

003770 

012746 

010346 

004767 

004767 


011714 

011552 

011540 

011416 

01027C 

000005 


007754 

000003 


000022 

000014 


000043 

177366 

000005 

177350 

177777 


000040 112674 

113256 

177770 

000007 112656 
112652 


014022 

000024 

000072 

115202 

115456 


TEST CODE SECTION 

.WORD SYNC 

.WORD DUMPER 

MOV #PHR.5,-(SP) 

MOV #WRD.75,-(SP) 

MOV #URD.74,-(SP) 

MOV #WRD.61,-(SP) 

MOV #FOR.FMT,-(SP) 

MOV #5,-(SP) 

MOV SP.RO 

TRAP 14 

MOV R4, (SP) 

MOV R5,-(SP) 

MOV #FMT.21,-(SP> 

MOV #3,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #22, SP 

INC R3 

CMP R3,#14 

BLE 8$ 

CMP (SPH.(SP)* 

TRAP 67 

ROR RO 

BLO 3$ 

INC R4 

CMP R4 t #43 

BGT 1 2i 

JMP 3$ 

INC R5 

CMP R5,#5 

BGT 13$ 

JMP 2$ 

MOV #-1,(SP) 

CLR R3 

TRAP 2 

BIS6 #40,9ML.REG+40 

MOV HL.DUT.R5 

BIC #1 77770, R5 

BICB #7,3ML.REG*40 

B1SB R5,8Ml.REG+40 

INC (SP) 

CLR R1 

MOV R1 ,R2 

ASL R2 

CLR I0.BUFIR2) 

INC R1 

CMP R1.#24 

BLE 15$ 

MOV #72,- (SP) 

MOV R3,-(SP> 

JSR PC. FORCE. REM 

J SR PC.GD.BLK.XFER 


SEO 0478 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


; SP,* 

; CHANNEL,* 
; PLOG,* 


; SP,* 

; WRD.CNT 
; WRD.CNT,* 


; CHANNEL 
; CHANNEL,* 


; PLOG 
; PLOG.* 


•.BITS.XFERED 

CHANNEL 


BITS.XFERED 

CNT 

CNT,* 


; CNT 
; CNT.* 

; CHANNEL,* 
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23166 





;ML4AD 




23167 





# 


TEST CODE SECTION 


23168 

23169 

102634 

142777 

000002 

112662 


81 CB 

#2.3ML.REG+120 

9 

23170 

102642 

012777 

000071 

112534 


MOV 

#71 .8ML.REG 

9 

23171 

102650 

105777 

112600 


16$: 

TSTB 

3ML.REG+50 


23172 

102654 

100375 




BPL 

16$ 


23173 

102656 

005002 




CLR 

R2 

; BIT. OFFSET 

23174 

102660 

010246 



17$: 

MOV 

R2,-(SP) 

; BIT. OFFSET,* 

23175 

102662 

066616 

000006 



ADD 

6(SP) , (SP) 

; Bf TS.XFERED,* 

23176 

102666 

004767 

114766 



JSR 

PC, FIND. COMP. BIT 


23177 

102672 

005726 




TST 

(SP)* 


23178 

102674 

006000 




ROR 

RO 


23179 

102676 

103441 




BLO 

18$ 


23180 

102700 

005267 

112472 



INC 

P.CNT 

• 

9 

23181 

102704 

026767 

112466 

112466 


CMP 

P.CNT, LIMIT 


23182 

102712 

003040 




BGT 

19$ 


23183 

102714 

104455 




TRAP 

55 

• 

9 

23184 

102716 

000206 




.WORD 

206 


23185 

102720 

012750 




.WORD 

SYNC 


23186 

102722 

026302 




.WORD 

DUMPER 


■^187 

102724 

012746 

011610 



MOV 

#PHR.1 .-(SP) 

• 

9 

23188 

102730 

012746 

011552 



MOV 

#WRD.75,-(SP) 


23189 

102734 

012746 

011540 



MOV 

#WRD.74,-(SP) 


23190 

102740 

012746 

010256 



MOV 

#THR.FMT,-(SP) 


23191 

102744 

012746 

000004 



MOV 

#4,-(SP) 


23192 

102750 

010600 




MOV 

SP.RO 

; SP,* 

23193 

102752 

104414 




TRAP 

14 


23194 

102754 

010316 




MOV 

R3.(SP) 

; CHANNEL.* 

23195 

102756 

012746 

000072 



MOV 

M72,-(SP) 


23196 

102762 

012746 

007754 



MOV 

#FMT.21,-(SP) 


23197 

102766 

012746 

000003 



MOV 

#3.-(SP> 


23198 

102772 

010600 




MOV 

SP.RO 

; SP,* 

23199 

102774 

104414 




TRAP 

14 


23200 

102776 

062706 

000020 



ADD 

#20, SP 

• 

23201 

103002 

062702 

000044 


18$: 

ADD 

#44. R2 

; *,BIT. OFFSET 

23202 

103006 

020227 

000264 



CMP 

R2.#264 

; BIT. OFFSET,* 

23203 

103012 

003722 




BLE 

17$ 


23204 

103014 

005001 



19$: 

CLR 

R1 

; WRD.CNT 

23205 

103016 

010102 



20$: 

MOV 

R1.R2 

; WRD.CNT.* 

23206 

103020 

006302 




ASL 

R2 


23207 

103022 

005762 

014022 



TST 

I0.8UF (R2) 


23208 

103026 

001445 




BEO 

21$ 


23209 

103030 

005267 

112342 



INC 

P.CNT 

# 

23210 

103034 

026767 

112336 

112336 


CMP 

P.CN T,LIMIT 


23211 

103042 

003043 




BGT 

22$ 


23212 

103044 

104455 




TRAP 

55 

9 

23213 

103046 

000207 




.WORD 

207 


23214 

103050 

012750 




.WORD 

SYNC 


23215 

103052 

026302 




.WORD 

DUMPER 


23216 

103054 

012746 

011462 



MOV 

#WRD.67,-(SP) 

• 

• 

23217 

103060 

012746 

010650 



MOV 

#WRD.12,-(SP) 


23218 

103064 

012746 

011552 



MOV 

#WRD.75,-(SP) 


23219 

103070 

012746 

011540 



MOV 

#WRD.74,-(SP) 


23220 

103074 

012746 

011416 



MOV 

#WRD.61 ,-(SP) 



SEO 0479 

29-M*r-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 

1012 

1012 


1012 

1013 


1013 


1013 


1013 


1013 

1013 
1012 

1014 
1014 

1014 

1014 

1014 



CZMLADO ML-11 LOGIC TEST 
*T51 TEST CODE SECTION 


D 6 
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SEfi 0480 


23222 

23223 

23224 

23225 

23226 

23227 

23228 

m 

23231 

23232 

23233 

23234 

23235 

23236 

23237 

23238 

23239 

23240 

23241 

23242 

23243 

23244 

23245 

23246 

23247 

23248 

23249 

23250 

23251 

23256 

23257 

23261 

23262 

23266 

23267 

23268 

23269 

23270 

23271 

23272 

23273 

23274 


;ML4AD 


103100 

012746 

010304 


MOV 

103104 

012746 

000006 


MOV 

103110 

010600 



MOV 

103112 

104414 



TRAP 

103114 

010316 



MOV 

103116 

012746 

000072 


MOV 

103122 

012746 

007754 


MOV 

103126 

012746 

000003 


MOV 

103132 

010600 



MOV 

103134 

104414 



TRAP 

103136 

062706 

000024 


ADD 

103142 

005201 


21$: 

INC 

103144 

020127 

000014 


CMP 

103150 

003722 



BLE 

103152 

022626 


22$: 

CMP 

103154 

104467 



TRAP 

103156 

006000 



ROR 

103160 

103002 



BH1S 

103162 

000167 

177352 

23$: 

JMP 

103166 

005203 


24$: 

INC 

103170 

020327 

000043 


CMP 

103174 

003772 



BLE 

103176 

005726 



TST 

103200 

000207 



RTS 


103202 

103202 

103206 

103210 

103212 

103214 


004767 176622 
104466 
006000 
103773 
000207 


TEST CODE SECTION 

#FIV.FMT,-(SP) 

#6.-<$P> 

$P,RO 

14 

R3,<SP> 

#7$, -(SP> 

#FMT.21 f -(SP> 

#3,-<SP) 

SP,RO 

14 

#24, SP 
R1 

R1.#14 

20 $ 

<SP)+,(SP>* 

67 

RO 

24$ 

14$ 

R3 

R3,#43 

23$ 

(SP)* 

PC 


Routine Size: 309 words 
Maximum stack depth per invocation: 


T51 : 
IS: 


.S8TTL T51 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC,$T51 

66 

RO 

IS 

PC 


Routine Size: 6 words 

Maximum stack depth per invocation: 


; SP,* 

; CHANNEL,* 

; SP,* 

; WRD.CNT 
; WRD.CNT,* 


; CHANNEL 
; CHANNEL,* 


19 words 


0 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


1014 

1014 

ion 

1011 

ion 

1011 

1002 


1015 
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SEQ 0481 


23283 

23284 

23285 ; 


10155 !<8LE/PAGE> 


J 


CZMLADO ML-11 LOGIC TEST 
T51 TEST CODE SECTION 


F 6 
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SEQ 0482 


23287 

23288 

23289 

23290 

23291 

23292 

23293 

23294 

23295 

23296 

23297 

23298 

23299 

23300 

23301 

23302 

23303 

23304 

23305 

23306 

23307 

23308 

23309 

23310 

23311 

23312 

23313 

23314 

23315 

23316 

23317 

23318 

23319 

23320 

23321 

23322 

23323 

23324 

23325 

23326 

23327 

23328 

23329 

23330 

23331 

23332 

23333 

23334 

23335 

23336 

23337 

23338 

23339 

23340 

23341 


ML4A0 


TEST CODE SECTION 


29-Mar -1982 1 6:23:04 T0PS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI.4 (104) 


10156 

10157 

10158 

10159 

10160 
10161 
10162 

10163 

10164 

10165 

10166 

10167 

10168 

10169 

10170 

10171 

10172 

10173 

10174 

10175 

10176 

10177 

10178 

10179 

10180 
10181 
10182 

10183 

10184 

10185 

10186 

10187 

10188 

10189 

10190 

10191 

10192 

10193 

10194 

10195 

10196 

10197 

10198 

10199 

10200 
10201 
10202 

10203 

10204 

10205 

10206 
10207 


BGNTST; 

*TEST NUMBER: 
TEST NAME: 


TST 52 


UNCORRECTABLE ERROR SYNDROME DECODE TEST AT CHANNELS > 35 


TEST DESCRIPTION: 

TEST SYNDRONE DECODE TO DETECT BUT 
NOT CORRECT UNCORRECTABLE CHANNEL 
ERRORS BY: 

1. VIA ECC DIAG MODE FORCE SYNDRONE 
81 TS TO INDICATE CHANNEL ERRORS 

AT WORDS OF A CRC GROUP BUT AT CHANNELS 
GREATER THAN 35. 

2. DO A MASS BUS READ TRANSFER 

3. THEN EXAMIN THE 10 BUF FOR NO 
BITS COMPLIMENTED XND ECH AND 
BITS SET 

IMPLICIT INPUTS: 

10 BUF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


local 

PLOG; 

CLR THRESHOLD; 

BAI = ONE; 

IO.BUF = ZEROES; 

GD 8LKJCFER (); 

MLtSI = write; 

TIME.OUT.LOOP; 

incr PLOG.SEL fra* 0 to 6 do 
begin 

case .PLOG.SEL fro* 0 to 6 of 
set 

[03 : 

P LOG = 0; 


! INDEX INTO REMAINDER TABLE •REN.TBL* 

! CLEAR ERROR PRINT THRESHOLD 

•FIRST LETS CLEAR THE MLll'S GOOD BLOCK 

•BY WRITING ZEROES TO IT 


•TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 


! SELECT A PLOG VALUE 


! POINTS TO WORD 0 IN THE CRC GROUP 



CZHLADO HL-11 LOGIC TEST 
T51 TEST CODE SECTION 


23343 ;ML4AD 


23346 

23347 

23348 

23349 

23350 

23351 

m 

23354 

23355 

23356 

23357 

23358 

23359 

23360 

23361 

23362 

23363 

23364 

23365 

23366 

23367 

23368 

23369 

23371 
2337 

23372 

23373 

23374 

23375 

23376 

23377 

23378 

23379 
23 
23! 

23 
23 
23 
23 
23 
23 

8 

m 

233 
233 
233 
233 
233 
2 33 


10208 

10209 

10210 
10211 
10212 

10213 

10214 

10215 

10216 

10217 

10218 

10219 

10220 
10221 
10222 

10223 

10224 

10225 

10226 

10227 

10228 

10229 

10230 

10231 

10232 

10233 

10234 

10235 

10236 

10237 

10238 

10239 

10240 

10241 

10242 

10243 

10244 

10245 

10246 

10247 

10248 

10249 

10250 

10251 

10252 

10253 

10254 

10255 

10256 

10257 

10258 
0259 
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CODE SECTION 

Cl 3 : 

PLOG = 1; 

C23 : 

PLOG = 2; 

C33 : 

PLOG = 3; 


PLOG = 4; 

C53 : 

PLOG = 5; 

C63 : 

PLOG = 58; 

tes; 

incr CHANNEL from 36 to 62 do 
begin 
BGNSUB; 

CLR.NBUS; 

incr COUNT from 0 to 255 do 
IO.BUF C.C0UNT3 = ZEROES; 

FORCE REM (.PlOG. .CHANNEL); 

GD BL* XFER (); 

EC? DI3 = ZERO; 

MLCSl * read: 

TIME.OUT.LOOP; 

if not ((.ECH.ERR) and (.UNC.ERR)) 
then 

begin 

CMP THRESHOLD; 


SEQ 0483 


29-Mar-1982 16:23:0-. TOPS-20 Bli$*-16 V2(212) 

29-Mar-1982 16:21 :J3 PA:<NEALE>ML4AD.BLI .4 (104) 

.'POINTS TO WORD 1 IN THE CRC GROUP 


! POINTS TO WORD 2 IN THE CRC 6ROUP 


ERR5F (136. SVNC, DUMPER); 

PRINTS (FOR.FMT, WRD 67, WRD10, WRD.76, WRD.9); 
PRINTB (FMT.21, .PLOG, .CHANNEL); 


.'POINTS TO WORD 3 IN THE CRC GROUP 


! POINTS TO WORD 4 IN THE CRC GROUP 


•POINTS TO WORD 5 IN THE CRC GROUP 


•POINTS TO ALL 6 WORDS IN THE CRC GROUP 


.'TEST AT CHANNELS > 35 TO FORCE UNCORRECTABuE ERROR 

{START OF SCOPE LOOP 
•CLEAR THE DRIVE 

•CLEAR THE FIRST CRC GROUP IN THE IO.BUF 


•FORCE UNCORRECTABLE ERROR AT THIS WORD AND CHANNEL 

•SET UP A GOOD BLOCK TRANSFER 

•CLEAR ECC DISABLE 

•DO A READ TRANSFER 

•WAIT FOR THE TRANSFER TO COMPLETE 

•SEE IF THE ERROR WAS DETECTED 

•ERROR IF NOT DECTECTED 
•COMPARE ERROR PRINT THRESHOLD 


end; 

incr CNT from 0 to 12 do 

if .IO.BUF C.CNT3 neq ZEROES 
then 

begin 

CMP THRESHOLD; 


•SEE IF ANY CORRECTION WAS DONE 

.'SEARCH THE IO.BUF FOR ALL ZEROES 

•REPORT AN ERROR IF ANY CORRECTION WAS DONE 
•COMPARE ERROR PRINT THRESHOLD 


CMP THRESHOLD; .'COMPARE ERROR PRINT THRE 

ERRBF (137. SYNC. DUMPER); „ _ _ _ 

PRINTB (FIV FMT. IMD 61, WRD 74 f WRD. 75, WRD.12, WRD.67'; 
PRINTB (FMT”21 , .PLOG, .CHANNEL); 
end; 
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SEQ 0484 


29-H«r-1982 16:23:04 TOPS-20 BU**-16 V2(212) 

29-H»r-1982 16:21:03 PA:<NEALE>HL4A0.8LI.4 (104) 

!END OF SCOPE LOOP 


ST52 TEST CODE SECTION 

R1.SSAVE5 

P.CNT 

#10,iHL.REG + 40 
10. BUF 

PC.GD.BLK.XFER 
#61, am. REG 
iNL.REG+50 
1$ 

R5 

R5.R4 

R4 

3S(R4>,PC 

4S-3S 

5S-3S 

6S-3S 

7S-3S 

8S-3S 

9S-3S 

10S-3S 

R3 

IIS 

#1 ,R3 

iii 

#2,R 3 

lli 

#3,R3 

lli 

#4.R3 

lli 

#5,R3 

ni 

#72, R3 
#44, R4 

#40,a«L.REG+40 
HL.DUT.R2 
#1 77776, R2 


; PLOG.SEL 
; PLOG.SEL,* 


PLOG 

*,PLOG 

*,PL0G 

*.PLOG 

*,PLOG 

*,PLOG 

*.PL06 
*, CHANNEL 


« 01 5 
1019 
1019 
1019 
1019 
1019 


1019 

1020 


1020 
1020 
1020 
1020 
1021 
1020 
102" 
1020 
10? 
102u 
102 
1020 
102? 
102? 
102? 
102*. 
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ST52 TEST CODE SECTION 
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23455 

23456 

23457 

23458 

23459 

23460 

23461 

23462 

23463 

23464 

23465 

23466 

23467 

23468 

23469 

23470 

23471 

23472 

23473 

23474 

23475 

23476 

234 77 

23478 

23479 

23480 

23481 

23482 

23483 

23484 

23485 

23486 

23487 

23488 

23489 

23490 

23491 

23492 

23493 

23494 

23495 

23496 

23497 

23498 

23499 

23500 

23501 

23502 

23503 

23504 

23505 

23506 

23507 

23508 

23509 


;NL4AD 


103402 

103410 

103414 

103416 

103420 

103422 

103426 

103430 

103434 

103436 

103440 

103442 

103446 

103452 

103460 

103466 

103472 

103474 

103502 

103504 

103510 

103512 

103516 

103524 

103526 

103530 

103532 

103534 

103536 

103540 

103542 

103546 

103552 

103556 

103562 

103566 

103572 

103574 

103576 

103600 

103602 

103606 

103612 

103614 

103616 

103622 

103624 

103626 

103630 

103634 

103636 

103642 


142777 
150277 
005001 
010102 
006302 
005062 
005201 
020127 
003770 
010346 
010446 
004767 
004767 
142777 
012777 
105777 
100375 
132777 
001403 
005777 
100444 
005267 
026767 
003402 
022626 
000520 
104455 
000210 
012750 
026302 
012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
010416 
010346 
012746 
012746 
010600 
104414 
062706 
005001 
010102 
006302 
005762 
001 <44 
005267 
026767 


000007 

112030 


014022 

000377 


114364 

114640 

000002 

000071 

111762 


112104 

111660 

111654 


112034 


112044 

111716 


000100 111762 


111654 


010616 

011562 

010630 

011462 

010270 

000005 


007754 

000003 


000022 


014022 

111534 

111530 


111530 


TEST CODE SECTION 

BICB #7,ani.REG+40 

8IS8 *2, 8HL.REG+40 

CLR R1 

NOV R1.R2 

ASL R2 

CLR IO.BUF (R2> 

INC R1 

CMP R1.#377 

BLE 13$ 

NOV R3.-CSP) 

NOV R4.-CSP) 

JSR PC, FORCE. REM 

JSR PC.GD.BLK.XFER 

BICB #2.iML.REG*120 

MOV #71, BML. REG 

TSTB 8ML.REG+50 

BPL US 

BITS #100,BML.REG*60 

BEQ 15$ 

TST 3ML.REG+210 

BMI 17$ 

INC P.CNT 

CMP P.CNT, UNIT 

BLE 16$ 

CMP <SP)+,(SP)* 

BR 22$ 

TRAP 55 

.WORD 210 

.WORD SYNC 

.WORD DUMPER 

NOV #WRD.9.-(SP> 

NOV #WRD.76,-(SP> 

NOV #WRD.10,-(SP) 

NOV #WRD.67,-(SP) 

NOV #FOft.FHT,-(SP> 

NOV #5,-(S P) 

NOV SP,RO 

TRAP 14 

NOV R4,(SP> 

NOV R3.-CSP) 

NOV #FMT.21 ,-(SP) 

NOV #3.-<SP> 

NOV SP.RO 

TRAP 14 

ADD #22, SP 

CLR R1 

NOV R1.R2 

ASL R2 

TST I0.8UF (R2) 

BEQ 19$ 

INC P.CNT 

CMP P.CNT, LIMIT 


• • •• 


SEQ 0485 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


; COUNT 
; COUNT,* 


; COUNT 
; COUNT,* 

; PLOG,* 

; CHANNEL,* 


; SP.* 

CHANNEL.* 
PLOG.* 


.* SP.* 

• 

; CNT 
.* CNT.* 


1024 


1024 

1025 
1025 


1025 


! 


CZMLADO ML-11 LOGIC TEST 
ST52 TEST CODE SECTION 


2351 1 

23512 

23513 

23514 

23515 

23516 

23517 

23518 

23519 

23520 

23521 

23522 

23523 

23524 

23525 

23526 

23527 

23528 

23529 

23530 

23531 

23532 

23533 

23534 

23535 

23536 

23537 

23538 

23539 

23540 

23541 

23542 

23543 
2354* 

23545 

23546 

23547 

23548 

23549 

23550 

23551 

23552 

23553 

23558 

23559 

23563 

23564 


103650 

103652 

103654 

103656 

103660 

103662 

103666 

103672 

103676 

103702 

103706 

103712 

103716 

103720 

103722 

103724 

103726 

103732 

103736 

103740 

103742 

103746 

103750 

103754 

103756 

103760 

103762 

103764 

103766 

103772 

103774 

104000 

104002 

104004 

104010 

104012 

104016 


003042 
104455 
00021 1 
012750 
026302 
012746 
012746 
G12746 
012746 
012746 
012746 
012746 
010600 
104414 
010416 
010346 
012746 
012746 
010600 
104414 
062706 
005201 
020127 
003723 
022626 
104467 
006000 
103002 
000167 
005204 
020427 
003772 
005205 
020527 
003002 
000167 
000207 


011462 

010650 

011552 

011540 

011416 

010304 

000006 


007754 

000003 


000024 

000014 


177370 

000076 

000006 

177244 
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;ML4AD 

e 


TEST CODE SECTION 


BGT 

20$ 


TRAP 

55 


.WORD 

211 


.WORD 

SYNC 


.WORD 

DUMPER 


MOV 

#WRD.67,-(SP) 


MOV 

#WRD. 12,-CSP) 


MOV 

#WRD.75,~(SP) 


MOV 

#WRD.74,-(SP) 


MOV 

#WRD.61,-(SP) 

#FIV.FMT,-(SP) 


MOV 


MOV 

#6,-(SP) 


MOV 

SP.RO 


TRAP 

14 


MOV 

R4, (SP) 


MOV 

R3,-(SP) 


MOV 

#FMT.21,-(SP> 


MOV 

#3,-(SP) 


MOV 

SP,RO 


TRAP 

14 


ADD 

#24, SP 

19$: 

INC 

R1 


CMP 

R1 x #14 


8LE 

18i 

20$: 

CMP 

(SP)+,(SP)* 

TRAP 

67 


ROR 

RO 


BH IS 

22$ 

21$: 

JMP 

12$ 

22$: 

INC 

R4 


CMP 

R4.#76 


BLE 

2ii 


INC 

R5 


CMP 

R5-#6 

23i 


BGT 


JMP 

2$ 

23$: 

RTS 

PC 


; Routine Size: 193 words 
; Maximum stack depth per Invocation: 

.S6TTL T52 TEST CODE SECTION 


; SP,* 

; CHANNEL,* 
; PLOG,* 


; SP,* 

; CNT 
; CNT,* 


; CHANNEL 
; CHANNEL,* 

; PLOG.SEL 
; PLOG.SEL.* 


18 words 


SEO 0486 

29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 

1025 

1025 

1025 


1025 

1025 


1022 

1025 


1022 

1019 

1015 


t 

< 



K 6 
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CZMLADO ML-11 LOGIC TEST 
T52 TEST COOE SECTION 


23572 

23573 

23574 

23575 

23576 

23577 

23578 

23579 

23580 

23585 

23586 

23587 


104020 

104020 004767 177172 
104024 104466 
104026 006000 
104030 103773 
104032 000207 


10267 !<BLF/PAGE> 


T52: : 


JSR 

PC,$T52 

TRAP 

66 

ROR 

RO 

BLO 

1$ 

RTS 

PC 


; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


SEtl 0*»6/ 
1026 


CZMLADO ML-11 LOGIC TEST 
T52 TEST CODE SECTION 
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SEQ (K88 


23589 

23590 

23591 

23592 

23593 

23594 

23595 

23596 

23597 

23598 

23599 

23600 

23601 

23602 

23603 

23604 

23605 

23606 

23607 

23608 

23609 

23610 

23611 

23612 

23613 

23614 

23615 

23616 

23617 

23618 

23619 

23620 

23621 

236 22 

23 623 

23624 

23625 

23626 

23627 

23628 

23629 

23630 

23631 

23632 

23633 

23634 

23635 

23636 

23637 

23638 

23639 

23640 

23641 

23642 

23643 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2<2 12) 
PA:<NEALE>ML4Ab.8lI .4 (105) 


10268 

10269 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10278 

10279 

10280 
10281 
10282 

10283 

10284 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

10294 

10295 

10296 

10297 

10298 

10299 

10300 

10301 

10302 

10303 

10304 

10305 

10306 

10307 

10308 

10309 

10310 

10311 

10312 

10313 

10314 

10315 

10316 

10317 

10318 

10319 


BGNTST; 

!♦♦ 

! TEST NUMBER: T$T 53 

i 

i TEST NAME: 


MULTIPLE CHANNEL ERROR SYNDRONE DECODE TEST 


TEST DESCRIPTION: . _ 

TEST SYNDRONE DECODE TO DETECT BUT NOT 
CORRECT UNCORRECTABLE MULTIPLE CHANNEL 
ERRORS BY: 

1. VIA ECC DIAGNOSTIC MODE FORCE SYNDRONE 
BITS TO INDICATE MULTIPLE CHANNEL ERRORS 
BY ASSIGNING CRC.A EQUAL TO CRC.B 

2. DO A MASS 8US READ TRANSFER 

3. THEN EXAMIN THE I0.8UF FOR NO BITS 
COMPLIMENTED AND E?H AND UNC BITS SET 

IMPLICIT INPUTS: 

10 BUF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


local 

PLOG; 

CLR.THRESHOLD; 

BAI = ONE; 

10 BUF * ZEROES; 

GD BLK.XFER (); 

MLtSl * write; 

T IME.OUT_.LOOP; 

incr PLOG.SEL from 0 to 6 do 
begin 

case .PLOG.SEL from 0 to 6 of 
set 

C03 : 

PLOG = 0; 

C13 : 

PLOG = 1; 


•INDEX INTO REMAINDER TABLE , REM_TBL' 

•CLEAR ERROR PRINT THRESHOLD 
•FIRST LETS CLEAR THE MLll’S GOOD 
•BLOCK BY WRITING ZEROES TO IT 


•TEST SYNDROME DECODE AT 7 DIFFERENT PLOG VALUES 


•SELECT A PLOG VALUE 


! POINTS TO CRC WORD 0 


! POINTS TO CRC WORD 1 


CZHLADO HL-11 LOGIC TEST 
T52 TEST CODE SECTION 


N 6 
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SEQ 0489 


23645 ;ML4AD 

23646 ; 

23647 

23648 ; 10320 

23649 ; 10321 

23650 ; 10322 

23651 ; 10323 

23652 ; 10324 

23653 ; 10325 

23654 ; 10326 

23655 ; 10327 

23656 ; 10328 

23657 ; 10329 

23658 ; 10330 

23659 ; 10331 

23660 ; 10332 

23661 ; 10333 

23662 ; 10334 

23663 ; 10335 

23664 ; 10336 

23665 ; 10337 

23666 ; 10338 

23667 ; 10339 

23668 ; 10340 

23669 ; 10341 

23670 ; 10342 

23671 ; 10343 

23672 ; 10344 

23673 ; 10345 

23674 ; 10346 

23675 ; 10347 

23676 . 10348 

23677 ; 10349 

23678 ; 10350 

23679 ; 10351 

23680 ; 10352 

23681 ; 10353 

23682 ; 10354 

23683 ; 10355 

23684 ; 10356 

23685 ; 10357 

23686 ; 10358 

23687 ; 10359 

23688 ; 10360 

23689 ; 10361 

23690 ; 10362 

23691 ; 10363 

23692 ; 10364 

23693 ; 10365 

23694 ; 10366 

23695 ; 10367 

23696 ; 10368 

23*97 ; 10369 

23o98 ; 10370 

23699 ; 10371 


ItST CODE SECTION 


C23 : 

FLOG = 2 

[33 : 

PLOG = 3 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (105) 


[43 


[53 


PLOG = 4 


PLOG = 5 


C63 

tes; 


PLOG = 58; 


incr CHANNEL from 1 to 35 do 
beain 
RGNSU8; 
u.RJ*iUS; 

incr COUNT from 0 to 255 do 
IO.BUF C.C0UNT3 = ZEROES; 

FORCE REM (.PLOG, .CHANNEL); 

CRC A = .CRCJB; 

GD BlK XFER 7); 

ECT DlS = ZERO; 

MLCSl = read; 

TIME.OUT.LOOP; 

if not ((.ECH.ERR) and (.UNC_ERR)) 
then 

begin 


THRESHOLD; 

ERR0F (138, SYNC, DUMPER); 

PRINTS (FOR FMT, URD 77, WRD 10, WRD.76, WRD.9); 

PRINTS (FMT.21, .PLOG, .CHANREL); 

end; 


•POINTS TO CRC WORD 2 

•POINTS TO CRC WORD 3 

•POINTS TO CRC WORD 4 

.'POINTS TO CRC WORD 5 

•POINTS TO ALL 6 WORDS IN CRC GROUP 

•TEST 35 CHANNELS STARTING AT CHANNEL 1 

•START OF SCOPE LOOP 
.•CLEAR THE DRIVE 

.'CLEAR FIRST CRC GROUP IN THE IO.BUF 


•FORCE ERR AT THIS WORD AND CHANNEL 

•CRC.A EOL TO CRC 8 CAUSES THE UNC ERROR 

.•SET UP A GOOD BLOCK TRANSFER 

•CLEAR ECC DISABLE 

IDO A READ TRANSFER 

•UAIR UNTIL THE TRANSFER IS COMPLETE 

•SEE IF THE ERROR WAS DETECTED 

•REPORT ERROR IF NOT DETECTED 
•COMPARE ERROR PRINT THRESHOLD 


incr CNT from 0 to 12 do 


•SEE IF ANY ERROR CORRECTION WAS DONE 
! TEST THE IO.BUF FOR ALL ZEROES 


if .I0.8UF C.CNT3 neq ZEROES 
then 

begin 

CMP THRESHOLD; 

ERROF (139, SYNC, DUMPER); 

PRINTS (FIV FMT, WRD 61, WRD 74, WRD.75, WRD J2, WRD.67); 

PRINTS (FMT“21 , .PLOG, .CHANNEL); 

end; 


•ERROR IF ANY BITS GOT FLIPPED 
•COMPARE ERROR PRINT THRESHOLD 


C7.MLAD0 KL-11 LOGIC TEST 
T52 TEST CODE SECTION 


N 6 
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SEO 0490 


23701 

23702 

23703 

23704 

23705 

23706 

23707 

23708 

23709 

23713 

23714 

23718 

23719 

23720 

23721 

23722 

23723 

23724 

23725 

23726 

23727 

23728 

23729 

23730 

23731 

23732 

23733 

23734 

23735 

23736 

23737 

23738 

23739 

23740 

23741 

23742 

23743 

23744 

23745 

23746 

23747 

23748 

23749 

23750 

23751 

23752 

23753 

23754 

23755 


;ML4AD 


104034 

104040 

104044 

104052 

104056 

104062 

104070 

104074 

104076 

104100 

104102 

104104 

104110 

104112 

104114 

104116 

104120 

104122 

104124 

104126 

104130 

104132 

104136 

104140 

104144 

104146 

104152 

104154 

104160 

104162 

104166 

104170 

104174 

104200 

104202 

104210 

104214 

104220 


TEST CODE SECTION 


10372 


ENDSUB; 



10373 

10374 

10375 

10376 

end; 

end; 



10377 ENDTST; 








.S8TTL 

004167 

100552 


ST53: 

JSR 

005067 

111332 

111372 


CLR 

152777 

000010 


81 SB 

005067 

107744 



CLR 

004767 

114230 



JSR 

012777 

000061 

111314 

IS: 

MOV 

105777 

111360 


TST8 

100375 




BPL 

005005 



2$: 

CLR 

010504 



MOV 

006304 




ASL 

066407 

104110 


3$: 

ADD 

000016 



.WORD 

000022 




.WORD 

0 r D030 




.WORD 

C 00036 




.WORD 

000044 




.WORD 

000052 




.WORD 

000060 




.WORD 

005003 



4$t 

CLR 

000421 



SS: 

BR 

012703 

000001 


MOV 

000416 



6$: 

8R 

012703 

000002 


MOV 

000413 



7$: 

8R 

012703 

000003 


MOV 

000410 



8$: 

8R 

012703 

000004 


MOV 

000405 




BR 

012703 

000005 


9$: 

MOV 

000402 



10S: 

BR 

012703 

000072 


MOV 

012704 

000001 


IIS: 

MOV 

104402 

152777 

000040 

111234 

12$: 

TRAP 

B1S6 

016702 

111616 



MOV 

« 

177770 

000007 

111216 


BIC 

BIC8 


29-Mar- 1982 16:23:04 

90.Mar.10fl? 1 A : i 


! END OF SCOPE LOOP 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.8LI.4 (105) 


$T53 TEST CODE SECTION 

R1 .SSAVE5 

P.CNT 

#10,8ML.REG*40 

I0.8UF 

PC.GD.BLK.XFER 
# 6 1 ,iML.REG 
9ML.REG+50 
IS 
R5 

R5.R4 

R4 

3S(R4) .PC 

4S-3S 

5S-3S 

£St 

't* 

11$ 

#1 .83 
111 
#2.R3 
Iii „ 

#3.R3 

111 

#4.R3 

iii 

#5.R3 

iii 

#72.R 3 
#1.*4 

#40.aML.REG*40 

#7.aML.REG*40 


; PLOG.SEL 
; PLOG.SEL.* 


PLOG 

*.PLOG 

*,PL06 

*.PL06 

*.PLOG 

*.P10G 

*,PLOG 
*. CHANNEL 


1026 

1030 

1030 

1030 

1030 

1030 


1030 

1031 


1031 

1031 

1031 

1031 

1032 

1031 

1032 

1031 

1032 
1031 

1033 
1031 
1033 
1033 
1033 
1033 


CZHLADO NL-11 LOGIC TEST 
$T53 TEST CODE SECTION 
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23757 

23758 

23759 

23760 

23761 

23762 

23763 

23764 

23765 

23766 

23767 

23768 

23769 

23770 

23771 

23772 

23773 

23774 

23775 

23776 

23777 

23778 

23779 

23780 

23781 

23782 

23783 

23784 

23785 

23786 

23787 

23788 

23789 

23790 

23791 

23792 

23793 

23794 

23795 


;NL4AD 


23798 

23799 

23800 

23801 

23802 

23803 

23804 

23805 

23806 

23807 

23808 

23809 

23810 

23811 


104226 

104232 

104234 

104236 

104240 

104244 

104246 

104252 

104254 

104256 

104260 

104264 

104270 

104274 

104302 

104306 

104312 

104320 

104326 

104332 

104334 

104342 

104344 

104350 

104352 

104356 

104364 

104366 

104370 

104372 

104374 

104376 

104400 

104402 

104406 

104412 

104416 

104422 

104426 

104432 

104434 

104436 

104440 

104442 

104446 

104452 

104454 

104456 

104462 

104464 

104466 

104470 


150277 

005001 

010102 

006302 

005062 

005201 

020127 

003770 

010346 

010446 

004767 

117702 

042702 

142777 

150277 

004767 

142777 

012777 

105777 

100375 

132777 

001403 

005777 

100444 

005267 

026767 

003402 

022626 

000520 

104455 

000212 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010416 

010346 

012746 

012746 

010600 

104414 

062706 

005001 

010102 


111212 


014022 

000377 


113546 

111274 

177700 

000077 111252 

111246 

114000 

000002 111204 
000071 111056 

111122 

000100 111122 
111244 
111020 

111014 111014 


010616 

011562 

010630 

011570 

010270 

000005 


007754 

C00003 


000022 


014022 


TEST CODE SECTION 

BIS8 R2,8NL.REG+40 

CLR R1 

NOV R1,R2 

ASL R2 

CLR IQ.8UF (R2) 

INC R1 

CNP R1 .0377 

BLE 13$ 

NOV R3, -(SP> 

NOV R4,-CSP> 

JSR PC, FORCE. REN 

NOVB BNL.REG+160,R2 

BIC #1 77700, R2 

BICB #77,BNL.REG+150 

BIS6 R2,3NL.REG+150 

JSR PC,GD.BLK.XFER 

BICB #2,aNL.REG+120 

NOV #71 ,BNL.REG 

TSTB BNL.REG+50 

BPL 14$ 

BJTB #100,3NL.REG+60 

BEO 15$ 

TST BNL.REG+210 

BNJ 17$ 

INC P.CNT 

CNP P.CNT,UNIT 

BLE 16$ 

CNP (SP)+.(SP)+ 

8R 22$ 

TRAP 55 

.WORD 21 2 

.WORD SYNC 

.WORD DIAPER 

NOV #WRD.9,-(SP> 

NOV #URD.76,-(SP) 

NOV #WRD.10,-(SP) 

NOV #t*D.77,-<SP> 

NOV #FOR.FNT,-(SP> 

NOV #5,-(SP) 

NOV SP,RO 

TRAP 14 

NOV R4,<SP) 

NOV R3,-(SP) 

NOV fFNT.21 ,-(SP) 

NOV #3,-(SP> 

NOV SP,RO 

TRAP 14 

ADD #22, SP 

CLR R1 

NOV R1,R2 

ASL R2 

TST IO.BUF (R2) 


SEO 0491 




CZMLADO HL-11 LOGIC TEST 
XT 5 3 TEST CODE SECTION 


C 7 
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ScO 0492 


23813 

23814 

23815 

23816 

23817 

23818 

23819 

23820 

23821 

23822 

23823 

23824 

23825 

23826 

23827 

23828 

23829 

23830 

23831 

23832 

23833 

23834 

23835 

23836 

23837 

23838 

23839 

23840 

23841 

23842 

23843 

23844 

23845 

23846 

23847 

23848 

23849 

23850 

23851 

23852 

23853 

23854 

23855 

23856 

23857 

23858 

23863 

23864 


104474 

104476 

104502 

104510 

104512 

104514 

104516 

104520 

104522 

104526 

104532 

104536 

104542 

104546 

104552 

104556 

104560 

104562 

104564 

104566 

104572 

104576 

104600 

104602 

104606 

104610 

104614 

104616 

104620 

104622 

104624 

104626 

104632 

104634 

104640 

104642 

104644 

104650 

104652 

104656 


001444 

005267 

026767 

003042 

104455 

000213 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

010416 

010346 

012746 

012746 

010600 

104414 

062706 

005201 

020127 

003723 

022626 

104467 

006000 

103002 

000167 

005204 

020427 

003772 

005205 

020527 

003002 

000167 

000207 


110674 

110670 110670 


011462 

010650 

011552 

011540 

011416 

010304 

000006 


007754 

000003 

000024 

000014 


177346 

000043 

000006 

177222 


;ML4AD 

0 


TEST CODE SECTION 


BEQ 

19$ 


INC 

P.CNT 


CMP 

P.CNT. LIMIT 


BGT 

20$ 


TRAP 

55 


.WORD 

213 


.WORD 

SYNC 


.WORD 

DUMPER 


MOV 

#WRD.67.-(SP> 


MOV 

#WRD.12,-(SP) 


MOV 

#WRD.75,-(SP) 


MOV 

#WRD.74,-(SP> 


MOV 

#WRD.61,-(SP) 

#FIV.FMT,-(SP) 


MOV 


MOV 

#6,-<SP> 


MOV 

SP.RO 


TRAP 

14 


MOV 

R4,(SP) 


MOV 

R3,-(SP> 


MOV 

IFMT.21 .-(SP) 


MOV 

#3,-(SP) 


MOV 

SP.RO 


TRAP 

14 


ADD 

#24, SP 

19S: 

INC 

R1 


CMP 

R1 ,#14 


BLE 

18$ 

20$: 

CMP 

(SPM.CSPH 

TRAP 

67 


ROR 

RO 


BHIS 

22$ 

21$: 

JMP 

12$ 

22$: 

INC 

R4 

CMP 

R4,#43 


BLE 

2ll 


INC 

R5 


CMP 

R5,#6 

23* 


BGT 


JMP 

2$ 

23$: 

RTS 

PC 


; Routine Size: 202 words 
; Maximum stack depth per invocation: 


; SP,* 

; CHANNEL,* 
; PLOG,* 


SP,* 


; CNT 
; CNT,* 


; CHANNEL 
; CHANNEL,* 

; PLOG.SEL 
; PLOG.SEL.* 


18 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 

1036 

1036 

1036 


1036 


1036 

1036 


1033 

1037 


1033 

1030 

1026 


L 



CZMLADO ML-1 1 LOGIC TEST 
ST53 TEST CODE SECTION 
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SEQ 0493 


23869 

23870 

23871 

23872 

23873 

23877 

23878 

23879 

23880 

23881 

23882 

23883 

23884 

23885 
23898 

23891 

23892 


; NLA AD 


104660 

104660 004767 177150 
104664 104466 
104666 006000 
104670 103773 
104672 000207 


10378 !<BLF/PAGE> 


TEST CODE SECTION 


>9-Nar-1982 16:23:04 
>9-Nar-1982 16:21:03 


.S8TTL T53 TEST CODE SECTION 

T 53 * * 

1$:” JSR PC,ST53 

TRAP 66 

ROR RO 

BLO IS 

RTS PC 

; Routine Size: 6 word* . 

; Naximum stack depth per invocation: 0 words 


CZHLADO ML-11 LOGIC TEST 
T53 TEST CODE SECTION 
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SEO 0494 


23894 

23895 

23896 

23897 

23898 

23899 

23900 

23901 

23902 

23903 

23904 

23905 

23906 

23907 

23908 

23909 

23910 

23911 

23912 

23913 

23914 

23915 

23916 

23917 

23918 

23919 

23920 

23921 

23922 

23923 

23924 

23925 

23926 

23927 

23928 

23929 

23930 

23931 

23932 

23933 

23934 

23935 

23936 

23937 

23938 

23939 

23940 

23941 

23942 

23943 

23944 

23945 

23946 

23947 

23948 


ML4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2I212) 

PA : <NE ALE >HL4AD .8L 1 . 4 (106) 


10379 

10380 

10381 

10382 

10383 

10384 

10385 

10386 

10387 

10388 

10389 

10390 

10391 

10392 

10393 

10394 

10395 

10396 

10397 

10398 

10399 

10400 

10401 

10402 

10403 

10404 

10405 

10406 

10407 

10408 

10409 

10410 

10411 

10412 

10413 

10414 

10415 

10416 

10417 

10418 

10419 

10420 

10421 

10422 

10423 

10424 

10425 

10426 

10427 

10428 

10429 

10430 


BGNTST; 

*TEST NUMBER: 
TEST NAME: 


TST 54 


SINGLE BIT ERROR SYNDRONE GENERATION t DECODE TEST 


TEST DESCRIPTION: 

TEST SYNDRONE GENERATION, SYNDRONE DECODE 
AND ERROR CORRECTION FOR SINGLE BIT CHANNEL 
ERRORS BY: 

1. CLEAR THE FIRST CRC GROUP IN THE 
10.8UF AND GOOD BLOCK TO ZEROES 

2. VIA DATA DIAGNOSTIC MODE FLIP A BIT 
TO A ONE 

3. THEN DO A MASS BUS READ TRANSFER AND 
EXAMIN THE 10 BUF FOR ZEROES INDICATING 
THE CORRECTION WAS PERFORMED 

4. REPEAT WITH ALL BITS IN THE CRC 6R0UP 

IMPLICIT INPUTS: 

10 BUF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 

PD TEMP 

a Bit vector of i 6 bits where the read 

PROM DATA IS STORED AND ACCESSED FROM. 


local 

DONE, 

NI8.PAT : bit vector C4J, 

NIB SEL. 

6D.0RD.CNT; 

CLR. THRESHOLD; 

incr WRD CNT from 0 to $ do 
begin 

incr BIT.CNT from 0 to 35 do 
begin 


•DONE FLAG 

•ST0RA6E FOR S8E DATA GENERATED 
•POINTER WHERE S6E IS TO BE WRITTEN 
.'COUNT OF WHERE GOOD ‘NIB.SEL* ARE FOUND 

! CLEAR ERROR PRINT THRESHOLD 

•FORCE SINGLE BIT ERRORS IN ONE CRC GROUP 

! FORCE SBE'S AT EACH BIT OF A WORD 



< 'HI ADO LCblC TfST 

”53 TEST CODE SECTION 
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SEQ 0495 


23950 ; ML 4 AD 

23951 ; 

23952 

23953 ; 

23954 ; 

23955 ; 

23956 ; 

23957 ; 

23958 ; 

23959 ; 

23960 ; 

23961 ; 

23962 ; 

23963 ; 

23964 ; 

23965 ; 

23966 ; 

23967 ; 

23968 ; 

23969 ; 

23970 ; 

23971 ; 

23972 ; 

23973 ; 

23974 ; 

23975 ; 

23976 ; 

23977 ; 

23978 ; 

23979 ; 

23980 ; 

23981 ; 

23982 ; 

23983 ; 

23984 ; 

23985 ; 

23986 ; 

23987 ; 

23988 ; 

23989 ; 

23990 ; 

23991 ; 

25992 ; 

23993 ; 

23994 ; 

23995 ; 

23996 ; 

23997 ; 

23998 ; 

23999 ; 

24000 ; 

24001 ; 

24002 ; 

24003 ; 

24004 ; 


TEST CODE SECTION 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Bliss-16 V2(212) 
PA:<N£ALE>ML4AD.BLI.4 (106) 


10431 

10432 

10433 

10434 

10435 

10436 

10437 

10438 

10439 

10440 

10441 

10442 

10443 

10444 

10445 

10446 

10447 

10448 

10449 

10450 

10451 

10452 

10453 

10454 

10455 

10456 

10457 

10458 

10459 

10460 

10461 

10462 

10463 

10464 

10465 

10466 

10467 

10468 

10469 

10470 

10471 

10472 

10473 

10474 

10475 

10476 

10477 

10478 

10479 
10*80 

10481 

10482 


incr CNT fro* 0 to 255 do 
10.BUF t.CNTJ = ZEROES; 

CLR.MBUS; 

GD 0LK.XFER O; 

MLtSI = write; 

TIME OUT.LOOP; 

CLRllBUS; 

DONE > ZERO; 

GD WRD.CNT = -1; 

MIDI = ZEROES; 

ML D2 = ZEROES: 

MLE2 = Xo' 060000’; 

NJ8 SEL = .B1T.CNT/4; 

DAT DM XFER (); 

MLCSl = write; 

DELAY (ONE.US); 

do 

begin 

PD. TEMP = .ML PD; 

if .PD.TEMP C.NIB.SELJ IS.SET 
then 

DAT.CLK = ONE 

else 

begin 

6D. WRD.CNT = .GD.WRD.CNT ♦ 1 


CLEAR FIRST CRC GROUP OF IO.BUF 


.■CLEAR THE DRIVE 

.'SET UP A GOOF BLOCK TRANSFER 

!D0 A WRITE TRANSFER 

.'WAIT UNTIL THE TRANSFER IS COMPLETE 

.'CLEAR THE DRIVE AGAIN 

.'CLEAR THE DONE FLAG 

.'RESET THE COUNT 

!L0AD THE DATA DIAG REG (BITS 0-38) 

.'WITH ZEROES PAT AND CRC BIT FOR 
! ZEROES PAT 

! CALCULATE THE NIBBLE WHERE THE S8E IS TO GO 

.'SET UP A DATA DIAG MODE TRANSFER 

.'DO A WRITE TRANSFER 

.'GIVE THE PROM DATA TIME TO GET OUT 

•FIND THE GOOD NIB AT THE TESTED WORD 

•READ THE PROM DATA FOR THIS ARRAY WORD 

! IS THIS A GOOD NIBBLE 

I IF NOT THEN GET THE NEXT ARRAY WORD 

•ELSE SEE IF WE ARE AT THE TESTED WORD 

!UP THE COUNT 

•AND SEE IF WE ARE DONE 


if .GD.WRD.CNT eql .WRD.CNT then DONE = ONE else DAT.CLK = ONE; 


end 

until .DONE IS.SET; 

N1B.PAT = ZEROES; 

NIB PAT C .BIT CNT nod 43 = ONE; 
D1.TEMP - ZEROES; 

: Moo-.- 

LDLNGWRD (.NIB.SEL, .NIB.PAT); 
WRT.LNO WRD; 

DAT CLK - ONE; 

DELXV (ONE.US); 

8GNSUB; 

CLR MBUS; 

GD SLK XFER (); 

ECt DlS = ZERO; 

MLCS1 = read: 

TIME.OUT.LOO^; 


•REPEAT UNTIL WE ARE DONE 

! CLEAR THE SAVE LOCATION 

•AND SET THE $3E IN THIS NIBBLE 

•CLEAR THE OTHER NIBBLES IN THIS ARRAY WORD 

•TO BE ZEROES PATTERN AND ZEROES CRC PATTERN 

•LOAD THE SBE INTO THE SAVE LOCATION 

•AND WRITE THE SBE INTO THE DATA DIAG RES' S 

! CLOCK THE SBE INTO THE ARRAYS MEMORY 

•GIVE IT TIME TO WRITE INTO THE MEMORY 

•START OF SCOPE LOOP 

! CLEAR OUT THE DATA DIAG MODE XFERR 

i SET UP A GOOD BLOCK TRANSFER 

•CLEAR ECC DISABLE 

•AND READ OUT THE SBE 


CZMLADO ML-11 LOGIC TEST 
T53 TEST CODE SECTION 


MACRO Mil 13 


G 7 
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SEfl (K96 


24006 

24007 

24008 

24009 

24010 

24011 

24012 

24013 

24014 

24015 

24016 

24017 

24018 

24019 

24020 

24021 

24022 

24023 

24024 

24025 

24026 

24030 

24031 

24035 

24036 

24037 

24038 

24039 

24040 

24041 

24042 

24043 

24044 

24045 

24046 

24047 

24048 

24049 

24050 

24051 

24052 

24053 

24054 

24055 

24056 

24057 

24058 

24059 

24060 


ML 4 AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Btfss-16 V2(212) 

PA : <NE ALE >Nl4 AD .8L I . 4 (106) 


10483 

10484 

10485 

10486 

10487 

10488 

10489 

10490 

10491 

10492 

10493 

10494 

10495 

10496 

10497 

10498 

10499 

10500 


frier CNT from 0 to 13 do 


if .10 BUT C.CNT3 neq ZEROES .'TEST TH 

then 

begin ! ERROR I 

CMP THRESHOLD; .'COMPARE 

ERRBF (140, SYNC, DUMPER); 

PRINTS (THR FMT, PHR.12- WRD 76, URD.9); 
PRINTB (FMT.22, .URD.CNT, .BlT.CNT); 
end; 


•SEE IF THE SBE WAS CORRECTED 

•TEST THE I0.8UF FOR ALL ZEROES 

•ERROR IF THE ERROR WAS NOT CORRECTED 
.•COMPARE ERROR PRINT THRESHOLD 


ENDSUB; 

end; 


ENDTST; 


104674 

104700 

104704 

104710 

104712 

104714 

104716 

104720 

104722 

104726 

104730 

104734 

104736 

104744 

104750 

104754 

104762 

104766 

104772 

105000 

105004 

105006 

105014 

105020 

105024 

105032 


004167 

162706 

005067 

005001 

005002 

005003 

010304 

006304 

005064 

005203 

020327 

003770 

152777 

016704 

042704 

142777 

150477 

004767 

012777 

105777 

100375 

152777 

016704 

042704 

142777 

150477 


077712 

OGOOIO 

110466 


014022 

000377 

000040 110500 
111062 
177770 

000007 110462 

110456 

113320 

000061 110404 

110450 4$: 

000040 110430 
111012 
177770 

000007 110412 
110406 


.S8TTL 

JSR 

SUB 

CLR 

CLR 

CLR 

CLR 

MOV 

ASL 

CLR 

INC 

CMP 

BLE 

B1S6 

MOV 

BIC 

BIC8 

BISB 

JSR 

MOV 

TSTB 

BPL 

BISB 

MOV 

BIC 

BICB 

BISB 


•END OF SCOPE LOOP 


STS4 TEST CODE SECTION 

R1.SSAVE5 

#l6,SP 

P.CNT 

R1 

R 2 

R3 

R3,R4 

R4 

10.BUF (R4) 

R3 

R3,#3 77 
31 

#40,aML.REG+40 

ate 

#7,aML.REG+40 

R4,8ML.REG+40 

PC.GD.BLK.XFER 

#61, ML. REG 

BML.REG+SO 

4$ 

#40,dML.REG+40 

#7,iNL.REG*40 

R4,aML.R£G*40 


; WRD. CNT 
; BIT. CNT 
; CNT 
; CNT,* 


; CNT 
; CNT,* 
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24062 

24063 

24064 

24065 

24066 

24067 

24068 

24069 

24070 

24071 

24072 

24073 

24074 

24075 

24076 

24077 

24078 

24079 

24080 

24081 

24082 

24083 

24084 

24085 

24086 

24087 

24088 

24089 

24090 

24091 

24092 

24093 

24094 

24095 

24096 

24097 

24098 

24099 

24100 

24101 

24102 

24103 

24104 

24105 

24106 

24107 

24108 

24109 

24110 

24111 

24112 

24113 

24114 

24115 

24116 


; ML 4 AD 


105036 

105042 

105046 

105052 

105056 

105064 

105066 

105072 

105076 

105100 

105104 

105112 

105116 

105120 

105124 

105126 

105132 

105134 

105136 

105140 

105142 

105144 

105146 

105150 

105152 

105156 

105164 

105166 

105170 

105174 

105200 

105202 

105206 

105212 

105214 

105216 

105222 

105226 

105230 

105236 

105240 

105246 

105254 

105256 

105262 

105264 

105270 

105274 

105276 

105300 

105302 

105304 


005066 

012716 

005077 

005077 

012777 

010246 

012746 

004767 

010005 

004767 

012777 

012703 

001411 

016704 

001404 

005066 

005304 

001374 

005303 

000766 

010504 

006204 

006204 

006204 

062704 

017767 

010446 

010546 

042716 

012746 

005046 

004767 

062706 

005300 

001411 

005266 

026601 

001004 

012766 

000403 

152777 

026627 

001340 

005066 

010246 

012746 

004767 

010004 

006200 

006200 

006200 

012703 


000002 

177777 


110522 

110526 

060000 110500 

000004 

077350 

111306 

000061 110272 
000001 

074772 

000012 


015342 

110452 110156 9$: 


177770 

000001 


076426 

000010 


000004 

000004 

000001 000006 

000020 110256 10$: 
000006 000001 11$: 

000010 

000004 

077164 


000014 


CLR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

BEQ 

MOV 

BEQ 

CLR 

DEC 

BNE 

DEC 

BR 

MOV 

ASR 

ASR 

ASR 

ADD 

NOV 

MOV 

NOV 

BiC 

NOV 

CLR 

JSR 

ADD 

DEC 

BEO 

INC 

CMP 

BNE 

NOV 

BR 

81 SB 

CNP 

BNE 

CLR 

NOV 

NOV 

JSR 

NOV 

ASR 

ASR 

ASR 

NOV 


TEST CODE SECTION 

2(SP> 

#-1,(SP> 
8ML.REGO70 
aML.REG+200 
#60000- 9NL.REG* 160 
R2,-(SP) 

#4,-(SP> 

PC.BLSDIV 

R0.R5 

PC.DAT.DM.XFER 

#61,8ML.REG 

#1,R3 

8 $ 


y$DLV.R4 

12CSP) 

R4 

6 $ 

R3 

5$ 

R5,R4 

R4 

R4 

R4 

fPD.TEMP.R4 

aNL.REG*230,PD.TEMP 

R4,-<SP> 

R5.-(SP) 

#1*7770, <SP) 
#1.-<SP> 

-<SP> 

PC-8LSGT2 

flO.SP 

RO 

10$ 

4(SP) 

4(SP),R1 

10$ 

#1^6(SP) 

#20.aNL.REG+120 

6 < s £) ,# 1 

9$ 

10<SP> 

R2,-<SP> 

#4,-<SP) 

PC,BI$M00 

R0.R4 

RO 

RO 

RO „ 

#14,R3 


SEQ 0497 


29-Mar-l 982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

DONE 1043 

*,GD.WRD.CNT 1044 

1044 


BIT.CNT,* 


*,NIB.SEL 


*,$$TNP2 

*-$$TNP1 

$$TNP 

$$TNP1 

$$TNP2 

NIB.SEL,* 


1045 

1045 

NIB-SEL.* 


1045 

1045 

1046 


1046 

1046 

1046 


; GD.URD.CNT 
; GD.URD.CNT t URD.CNT 

; **D0NE 


1044 

1044 


1044 

1044 

1044 


1045 j 


DONE,* 

NIB. PAT 
BIT.CNT,* 
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ST54 TEST CODE SECTION 


24118 





; ML 4 AD 



24119 





• 


TEST CODE SECTION 

24120 

24121 

105310 

060603 




ADD 

SP.P3 ; NIB. PAT,* 

24122 

105312 

060300 




ADD 

P3,R0 

24123 

105314 

0^0016 




MOV 

PO,($P) 

24124 

105316 

010446 




MOV 

P4.-(SP> 

24125 

105320 

042716 

177770 



B1C 

#1 77770. (SP) 

24126 

105324 

012746 

000001 



MOV 

#1,-(SP> 

24127 

105330 

011646 




MOV 

(SP). -CSP) 

24128 

105332 

004767 

076534 



jsp 

PC.BLSPU2 

24129 

105336 

005067 

106032 



CLP 

D1.TEMP 

24130 

105342 

005067 

106030 



CLP 

D2.TEMP 

24131 

105346 

012767 

060000 

106024 


MOV 

#60000. E 2. TEMP 

24132 

105354 

010516 




MOV 

R5.(SP) ; NIB.SEL,* 

24133 

105356 

016646 

000022 



MOV 

22(SP>.-( SP) ; NIB. PAT.* 

24134 

105362 

004767 

113766 



JSP 

PC.LD.LN6.WPD 

24135 

105366 

016777 

106002 

110200 


MOV 

D1.TEMP.aML.PEG*17Q 

24136 

105374 

016777 

105776 

110202 


MOV 

D2.TEMP,aML.PEG+200 

24137 

105402 

016777 

105772 

110154 


MOV 

E2.TEMP.8ML.PEG+160 

24138 

105<*10 

152777 

000020 

110106 


BJS6 

#20,3ML.REG*120 ; 

24139 

105416 

012703 

000001 



MOV 

#1.R3 ; *.$STMP2 

24140 

105422 

001411 



12$: 

BEO 

15S 

24141 

105424 

016704 

074466 



MOV 

LSDLV.R4 ; *.SSTMP1 

24142 

105430 

001404 




BEO 

14$ 

24143 

105432 

005066 

000026 


13$: 

CLP 

26 (SP) ; SSTMP 

24144 

105436 

005304 




DEC 

P4 ; SSTMP1 

24145 

105440 

001374 




8NE 

13$ 

24146 

105442 

005303 



14$: 

DEC 

R3 : SSTMP2 

24147 

105444 

000766 




BP 

12$ 

24148 

105446 

104402 



15S: 

TRAP 

2 A 

24149 

105450 

152777 

000040 

107766 


BJS6 

#40,8ML.PEG + 40 

24150 

105456 

016704 

110350 



MOV 

ML.DUT R4 

24151 

105462 

042704 

177770 



BXC 

#1 77776, Ps 

24152 

105466 

142777 

000007 

107750 


81 CB 

#7,aML.PEG*40 

24153 

105474 

150477 

107744 



BIS8 

P4.8ML .PEG+40 

24154 

105500 

004767 

112606 



JSP 

PC.6D.BUC.XfEP 

24155 

105504 

142777 

000002 

110012 


BICB 

#2.aML.PEG*120 

24156 

105512 

012777 

000071 

107664 


MOV 

#71 .8ML.PEG 

24157 

105520 

105777 

io; 7 3o 


16S: 

TSTB 

8ML.PEG+50 

24158 

105524 

100375 




BPL 

16$ 

24159 

105526 

005003 




CLP 

R3 ; CNT 

24160 

105530 

010304 



17S: 

MOV 

R3.P4 ; CNT.* 

24161 

105532 

006304 




ASL 

R4 

24162 

105534 

005764 

014022 



TST 

I0.8UF(R4> 

24163 

105540 

001440 




BEO 

18$ 

24164 

105542 

005267 

107630 



INC 

P.CNT 

24165 

105546 

026767 

107624 

107624 


CMP 

P. CNT. LIMIT 

24166 

105554 

003036 




BGT 

19$ 

24167 

105556 

104455 




TPAP 

55 

24168 

105560 

000214 




.WORD 

214 

24J69 

105562 

012750 




• WORD 

SVNC 

24170 

105564 

026302 




.WORD 

DUMPER 

24171 

105566 

012746 

010616 



MOV 

#VRD.9 f -(SP> ; 

24172 

<05572 

012746 

011562 



MOV 

#WRD. 76. -(SP) 


SEQ 0498 

29-M«r-1982 16:23:04 TOPS 
29-Njr-1982 16:21:03 PA:< 


1047 

1047 

1047 

1047 


1047 

1047 


1047 


1047 

1048 
1048 


1048 

1048 


1048 

1049 


1049 
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SEQ 0499 


24174 

24175 

24176 

24177 

24178 

24179 

24180 

24181 

24182 

24183 

24184 

24185 

24186 

24187 

24188 

24189 

24190 

24191 

24192 

24193 

24194 

24195 

24196 

24197 

24198 

24199 

24200 

24201 

24202 

24203 

24204 

24205 

24206 

24207 

24208 

24213 

24214 

24218 

24219 

24223 

24224 

24225 

24226 

24227 

24228 


;ML4AD 


105576 

012746 

012036 


MOV 

105602 

012746 

010256 


MOV 

105606 

012746 

000004 


MOV 

105612 

010600 



MOV 

105614 

104414 



TRAP 

105616 

010216 



MOV 

105620 

010146 



MOV 

105622 

012746 

010026 


MOV 

105626 

012746 

000003 


MOV 

105632 

010600 



MOV 

105634 

104414 



TRAP 

105636 

062706 

000020 


ADD 

105642 

005203 


18$: 

INC 

105644 

020327 

000015 


CMP 

105650 

003727 



BLE 

105652 

104467 


19$: 

TRAP 

105654 

006000 



ROR 

105656 

103673 



BLO 

105660 

062706 

000020 


ADD 

105664 

005202 



INC 

105666 

020227 

000043 


CMP 

105672 

003002 



BGT 

105674 

000167 

177014 


JMP 

105700 

005201 


20$: 

INC 

105702 

020127 

000005 


CMP 

105706 

003002 



BGT 

105710 

000167 

176776 


JMP 

105714 

062706 

000010 

21$: 

ADD 

105720 

000207 



RTS 


105722 

105722 

105726 

105730 

105732 

105734 


004767 176746 
104466 
006000 
103773 
000207 


TEST CODE SECTION 

#PHR.12,-($P> 

#THR.FNT,-($P> 

#4,-($P) 

SP.RO 

14 

R2,<SP> 

RI.-(SP) 

#FMT.22.-(SP> 

#3.-<SP$ 

SP.RO 

14 

#20. SP 
R3 

R3.#15 

17 $ 

67 

RO 

15$ 

#20, SP 
R2 

R2.#43 

2 oi 

2 $ 

R1 

R1.#5 

21$ 

1 $ 

#10. SP 
PC 


Routine Size: 26 7 words 
HaxinuR stack depth per invocation: 


T54: 

1 $: 


.S8TTL T54 TEST CODE SECTION 


JSR 

PC 

TRAP 

66 

ROR 

RO 

BLO 

1$ 

RTS 

PC 


; SP.* 

; BIT.CNT,* 
; WRD.CNT.* 


; SP,* 


CNT 

CNT,* 


BIT.CNT 

BIT.CNT.* 


; WRD.CNT 
; WRD.CNT.* 


26 words 


29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


1049 

1048 

1048 

1049 

1042 

1042 

1042 

1037 


1049 
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SEQ 0500 


24230 

24231 

24232 

24233 

24234 

24235 

24240 

24241 

24242 


; ML 4 AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


Routine Size: 6 words 

Maximum stack depth per invocation: 0 words 


10501 !<BLF/PAGE> 
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T54 TEST 

CODE SECTION 


SEO 0501 

24244 

ML4AD 


29-Mar- 1982 16:23:04 TOPS-20 Bliss-16 V2<2 12) 

24245 


TEST CODE SECTION 

29-Mar-1982 16:21:03 PA : <NEALE>ML4AD .8LI . 4 (107) 

24246 




24247 

10502 

i 


24248 

10503 

BGNTST; 


24249 

10504 



24250 

10505 

! ♦♦ 


24251 

10506 

.» TEST NUMBER: TST 55 


24252 

10507 

i 


24253 

10508 

! TEST NAME: MULTIPLE BIT ERROR SYNDRONE GENERATION AND DECODE TEST 

24254 

10509 

• 


24255 

10510 

! TEST DESCRIPTION: 


24256 

10511 

TEST SYNDRONE GENERATION, SYNDRONE DECODE 

24257 

10512 

! AND ERROR CORRECTION FOR MULTIPLE BIT 

i 

24258 

10513 

! CHANNEL ERRORS BY: 


24259 

10514 

i 


24260 

10515 

! 1. CLEAR THE FIRST CRC GROUP IN THE 


2*261 

10516 

! 10 BUF AND GOOD BLOCK TO ZEROES 


24262 

10517 



24263 

10518 

! 2. VIA DATA DIAG MODE FLIP ALL BITS IN 


24264 

10519 

! A CHANNEL TO ONES 


24265 

10520 

t 


24266 

10521 

! 3. THEN DO A MASS BUS READ TRANSFER AND 1 

24267 

10522 

! EXAM IN THE 10 BUF FOR ZEROES INDICATING 

24268 

10523 

! THE CORRECTION WAS PERFORMED 


24269 

10524 

i 


24270 

10525 

! 4. REPEAT FOR ALL CHANNELS IN THE CRC 

GROUP 

24271 

10526 

i 


24272 

10527 

• IMPLICIT INPUTS: 


24273 

10528 

• PD TEMP 


24274 

10529 

! A BIT VECTOR OF 16 BITS WHERE THE READ 


24275 

10530 

! PROM DATA IS STORED OAND ACCESSED FROM. 


24276 

10531 

• 


24277 

10532 

! lO.BUf 


24278 

10533 

! A VECTOR OF 256 WORDS WHERE DATA 


24279 

10534 

.' FOR MBUS READS AND WRITES TRANSFERS 


24280 

10535 

! IS FOUND. 


24281 

10536 

1 


24282 

10537 

j 

| 

24283 

10538 

! — 

| 

24284 

10539 


I 

24285 

10540 

Local 


24286 

10541 

NIB.PAT : bitvector C4J, 

.'STORAGE FOR S8E TO BE GENERATED 

24287 

10542 

NIB SEL, 

.'POINTER TO WHERE ERROR IS TO BE WRITTEN 

24288 

10543 

GD ORD CNT; 

! COUNT OF WHERc GOOD 'NIB_SEL ’ ARE FOUND I 

24289 

10544 



24290 

10545 

CLR THRESHOLD; 

'CLEAR ERROR PRINT THRESHOLD 

24291 

10546 E2 TEMP<12. 3> = Xb’IIO*; 

•LOAD DATA STRUCTURE WITH ZEROES CRC PATTERN 

24292 

10547 



24293 

10548 

incr BIT_CNT from 0 to 35 do 

.'TEST FOR MULTILPLE ERRORS AT 36 CHANNELS 

24294 

10549 

begin 


24295 

10550 

CLR MBUS; 

! CLEAR THE DRIVE 

24296 

10551 



24297 

10552 

incr CNT from 0 to 255 do 

.'CLEAR FIRST CRC GROUP IN THE 10 BUF 

24298 



10553 

I0.8UF C.CNT3 = ZEROES; 
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ScQ 0502 


24300 

24301 

24302 

24303 

24304 

24305 

24306 

24307 

24308 

24309 

24310 

24311 

24312 

24313 

24314 

24315 

24316 

24317 

24318 

24319 

24320 

24321 

24322 

24323 

24324 

24325 

24326 

24327 

24328 

24329 

24330 

24331 

24332 

24333 

24334 

24335 

24336 

24337 

24338 

24339 

24340 

24341 

24342 

24343 

24344 

24345 

24346 

24347 

24348 

24349 

24350 

24351 

24352 

24353 

24354 


;HL4AD 


10554 

10555 

10556 

10557 

10558 

10559 

10560 

10561 

10562 

10563 

10564 

10565 

10566 

10567 

10568 

10569 

10570 

10571 

10572 

10573 

10574 

10575 

10576 

10577 

10578 

10579 

10580 

10581 

10582 

10583 

10584 

10585 

10586 

10587 

10588 

10589 

10590 

10591 

10592 

10593 

10594 

10595 

10596 

10597 

10598 

10599 

10600 
10601 
10602 

10603 

10604 

10605 


TEST CODE SECTION 


GD 8LK.X7ER <>; 

MLCSl = write; 

TIME OUT LOOP; 

GD UflD CRT = ZERO; 

DI'TEMP = ZEROES; 

D2 TEMP = ZEROES; 

NIB PAT = ZEROES; 

NIBlSEL * .BIT CNT/4; 

NIB*PAT C.BIT CNT mod 43 - ONE; 
LD CNG WRD (.RlB.SEL, .NIB.PAT); 
WR7.LN5.WRD; 

DAT~DM.JlFER C); 

MLCSl = write: 

DELAY (ONE .US); 


begin 

PD.TEMP = .MLPD; 

if .PD.TEMP C.NI8.SEL3 IS.SET 
then 

DAT.CLK = ONE 

else 

begin 

GD.WRDCNT = .GD.WRD.CNT ♦ 1; 

DAT.CLK = ONE; 

end; 

end 

until .GD.WRD.CNT eql 6; 

BGNSUB; 

CLR.MBUS; 

GDBLKXF ER (); 

ECt„ DlS = 0; 

MLCSl = read; 

TIME.OUT.LOOP; 

incr WRD.CNT from 0 to 13 do 

if .10 BUF C.WRD.CNT3 neq ZEROES 
then 

begin 

CMP.THRESHOLD; 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


T0PS-20 Bliss-16 V2(212) 

PA: <NEALE>Ml4AD.8LI .4 (107) 


CMP THRESHOLD; !C0M 

ERRUF (141, SYNC, DUMPER); 

PRINTS (THR FMT, PHR.13, toRD 76. WRD.9) ; 
PRINTS (FMT”22, .WRDlCNT, .BlT.CNT); 
end; 


! ALSO CLEAR THTE FIRST CRC GROUP 
•IN THE MLII'S GOOD BLOCK 

.'CLEAR COUNT 

.'CLEAR D1.TEMP 

.'CLEAR D2’TEMP 

•CLEAR NIBBLE PATTERN 

! CALCULATE THE NIBBLE TO BE IN ERROR 

! CALCULATE AND THE BIT TO BE JN ERROR 

.'LOAD THE ERROR IN D1 TEMP OR D2 TEMP 

.'LOAD THE REGISTER WITH THE ERROR 

•SET UP A DATA DIAG MODE TRANSFER 

I DO A WRITE TRANSFER 

•GIVE THE PROM DATA TIME TO COME OUT 

•LOAD THIS CHANNEL WITH MULTIPLE ERRORS 

•READ THIS ARRAY WORDS PROM.DAT A 

! SEE IF THIS A GOOD NIBBLE 

•CLOCK OUT ANOTHER ARRAY WORD IF BAD 

•ELSE CLOCK IN THE ERROR INTO A GOOD NIBBLE 


•REPEAT UNTIL 6 WORDS ARE WRITTEN 

.'START OF SCOPE LOOP 

•CLEAR OUT THE DATA DISG MODE TRANSFER 

•SET UP A GOOD BLOCK TRANSFER 

•ENABLE ERROR CORRECTION 

•READ OUT THE ERRORS 

•WAIT FOR THE TRANSFER TO COMPLETE 

•SEE IF THE CORRECTIONS WHERE DONE 

•TEST THE IO.BUF FOR ALL ZEROES 

.•REPORT THE ERROR IF ANY LOCATIONS ARE NOT ZEROES 
•COMPARE ERROR PRINT THRESHOLD 


ENDSUB; 

end; 


•END OF SCOPE LOOP 
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SEQ 0503 


24356 

24357 

24358 

24359 

24360 

24364 

24365 

24369 

24370 

24371 

24372 

24373 

24374 

24375 

24376 

24377 

24378 

24379 

24380 

24381 

24382 

24383 

24384 

24385 

24386 

24387 

24388 

24389 

24390 

24391 

24392 

24393 

24394 

24395 

24396 

24397 

24398 

24399 

24400 

24401 

24402 

24403 

24404 

24405 

24406 

24407 

24408 

24409 

24410 


; ML 4 AD 


TEST CODE SECTION 


10606 

10607 ENDTST; 


105736 

105742 

105744 

105750 

105756 

105764 

105766 

105774 

106000 

106004 

106012 

106016 

106020 

106022 

106024 

106030 

106032 

106036 

106040 

106044 

106052 

106056 

106060 

106062 

106066 

106072 

106074 

106076 

106102 

106106 

106110 

106112 

106116 

106122 

106124 

106126 

106130 

106132 

106136 

106140 

106142 

106144 


004167 

024646 

005067 

042767 

052767 

005003 

152777 

016702 

042702 

142777 

150277 

005001 

010102 

006302 

005062 

005201 

020127 

003770 

004767 

012777 

105777 

100375 

005005 

005067 

005067 

005016 

010346 

012746 

004767 

010004 

010346 

012746 

004767 

010002 

006200 

006200 

006200 

012701 

060601 

060100 

010016 

010246 


ST55: 


076650 

107426 

070000 105422 
060000 105414 


000040 107450 IS: 

110032 

177770 

000007 107432 
107426 


2S: 


014022 

000377 

112246 

000061 107332 
107376 


1C5306 

105304 


3$: 


000004 

076340 


000004 

076336 


000010 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


TOPS-20 Blfss-16 V2(212) 

PA : <NE AL E >ML4 AD . 8 L 1 . 4 (107) 


.SBTTL ST55 TEST CODE SECTION 

JSR R1.SSAVE5 

CMP -<SP> ,-(SP) 

CLR P.CNT 

BIC #70000, E2. TEMP 

BIS #60000, E2. TEMP 

CLR R3 

B1SB #40,8ML.REG*40 

MOV ML.DUT.R2 

BIC #1 77776, R2 

BICB #7,BML.REG*40 

B1SB R2,3ML.REG*40 

CLR R1 

MOV R1 ,R2 

ASL R2 

CLR I0.8UFCR2) 

INC R1 

CMP R1 ,#377 

BLE 2$ 

JSR PC.GD. 8 LK.XFER 

MOV # 61 , 8 HL,REG 

TSTB 9ML.REG+56 

BPL 3$ 

CLR R5 

CLR D1.TEMP 

CLR D2.TEMP 

CLR (SP) 

MOV R3,-(SP) 

MOV #4,-<SP> 

JSR PC, 8 LSDiV 

MOV R0,R4 

MOV * R3,-(SP) 

MOV #4,-CSP) 

JSR PC,8L$M0D 

MOV R0.R2 

ASR RO 

ASR RO 

ASR RO 

MOV #10, R1 

ADD SP,R1 

ADD R1,R0 

MOV RO, (SP) 

MOV R2,**(SP) 


; BIT.CNT 


; CNT 
; CNT,* 


; CNT 
; CNT,* 


GD.WRD.CNT 


NI 8 .PAT 

BIT.CNT,* 


; *,NIB.SEL 
; 8 IT.CNT.* 


1050 

1054 

1054 

1054 

1054 


1055 

1*^55 


1055 


1055 

1055 


1055 

1055 

1056 
1056 
1056 


1056 


; NI 8 .PAT,* 


1 
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24412 

24413 

24414 

24415 

24416 

24417 

24418 

24419 

24420 

24421 

24422 

24423 

24424 

24425 

24426 

24427 

24428 

24429 

24430 

24431 

24432 

24433 

24434 

24435 

24436 

24437 

24438 

24439 

24440 

24441 

24442 

24443 

24444 

24445 

24446 

24447 

24448 

24449 

24450 

24451 

24452 

24453 

24454 

24455 

24456 

24457 

24458 

24459 

24460 

24461 

24462 

24463 

24464 

24465 

24466 


; ML 4 AD 


106146 
106152 
106156 
106160 
106164 
106166 
106172 
106176 
106204 
106212 
106220 
106224 
106232 
106236 
106240 
106244 
106246 
106252 
106254 
106256 
106260 
106262 
106264 
106266 
106270 
106272 
106276 
106 
106 
10631 
106314 
106320 
106322 
106326 
106332 
106334 
106336 
106340 
106346 
106352 

i m 

106364 

106370 

106374 

106402 

106406 

106412 

106420 

106426 

106432 

106434 


042716 

1 77770 



BIC 

012746 

000001 



MOV 

011646 




MOV 

004767 

075706 



JSR 

010416 




MOV 

016646 

000016 



MOV 

004767 

113156 



JSR 

016777 

105172 

107370 


MOV 

016777 

105166 

107372 


MOV 

016777 

105162 

107344 


MOV 

004767 

110166 



JSR 

012777 

000061 

107152 


MOV 

012701 

000001 


4f: 

MOV 

001411 



BEO 

016702 

073652 



MOV 

001404 



5$: 

BEO 

005066 

000022 


CLR 

005302 




DEC 

001374 




BNE 

005301 



6$: 

DEC 

000766 



7$: 

BR 

010402 



MOV 

006202 




ASR 

006202 




ASR 

006202 




ASR 

062702 

017767 

015342 

107332 

107036 

8$: 

ADD 

MOV 

010246 




MOV 

010446 




MOV 

042716 

177770 



BIC 

012746 

000001 



MOV 

005046 




CLR 

004767 

075306 



JSR 

062706 

000010 



ADD 

005300 




DEC 

001401 




BEO 

005205 

152777 

000020 

107156 

98: 

INC 

BIS8 

020527 

000006 



CMP 

001351 




BNE 

104402 

152777 

000040 

107060 

10$: 

TRAP 
81 SB 

016702 

107442 



MOV 

m 

177770 

000007 

107042 


BIC 

BIC8 

150277 

107036 



81 SB 

004767 

111700 



JSR 

142777 

000002 

107104 


BICB 

012777 

000071 

106756 


MOV 

105777 

107022 


11$: 

TSTB 

100375 




BPL 

005001 




CLR 


TEST CODE SECTION 

#1 77770. (SP) 
#1,-(SP$ 

(SP).-(SP) 

PC.8LSPU2 
R4. (SP) 

16<SP).-(SP) 

PC.LD.LNG.WRD 

D1 .TENP.8NL.REG+170 

D2.TEMP.8 ..REG+200 

E2.TENP,aHL.REG+160 

PC.DAT.DM.XFER 

#61 .8ML.REG 

#1.R1 

78 

LSDLY.R2 

6$ 

22(SP) 

R2 

5$ 

R1 

4$ 

R4.R2 

R2 

R2 

R2 

#PD. TEMP. R2 

8ML.REGt230.PD.TEMF 

R2,-(SP) 

R4.-(SP) 

#l27770.(SP) 

#1.-(SP> 

-(SP) 

PC.8LSGT2 

#10. SP 

RO 

9S 

R5 

#20.8ML.REGt120 

R5.#6 

8 $ 

2 

#40.8ML.REG+40 

5« 2 

#7.8ML.REGt40 

R2.8ML.REG*40 

PC.6D.BLK.XFER 

#2.8ML.REGt120 

#71. 8ML.REG 

8ML.REGt50 

Ilf 

R1 


SEO 0504 


29-Mar-1982 16:23:04 TOPS 

29-Mar- 1982 16:21:03 PA:< 


; NIB.SEL,* 
; NIB. PAT. ♦ 


; *.$STMP2 

; t.ffTMPI 

; ffTMP 
; SfTMPI 

; SSTMP2 

; NIB.SEL.* 


NIB.SEL.* 


GD.URD.CNT 

GD.WRD.CNT,* 


; WRD.CNT 


CZMLADO ML-11 LOGIC TEST 
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SEQ 0505 


24468 



;ML4AD 




24469 



0 


TEST CODE SECTION 


CMHf 0 

24471 106436 

010102 


12$: 

MOV 

R1.R2 

; WRD.CNT,* 

24472 106440 

006302 



ASL 

R2 


24473 106442 

005762 

014022 


TST 

I0.8UF (R2> 


24474 106446 

001 44C 



BEQ 

13$ 


24475 106450 

005267 

106722 


INC 

P.CNT 

• 

24476 106454 

026767 

106716 106716 


CMP 

P.CNT, LIMIT 


24477 106462 

003036 



BGT 

14$ 


24478 106464 

104455 



TRAP 

55 

0 

24479 106466 

000215 



.WORD 

215 


24480 106470 

012750 



.WORD 

SYNC 


24481 106472 

026302 



.WORD 

DUMPER 


24482 106474 

012746 

010616 


MOV 

#WRD.9.-(SP) 

0 

24483 106500 

012746 

011562 


MOV 

#WRD.76.-<SP> 


24484 106504 

012746 

012060 


MOV 

#PHR.13,-(SP> 


24485 106510 

012746 

010256 


MOV 

#THR.FHt ,-<SP) 


24486 106514 

012746 

000004 


MOV 

#4,-(SP> 


24487 106520 

O' 1 0600 



MOV 

SP.RO 

; SP,* 

24488 106522 

104414 



TRAP 

14 


24489 106524 

010316 



MOV 

R3.<SP> 

; BIT.CNT,* 

24490 106526 

010146 



MOV 

R1,-(SP> 

; WRD.CNT,* 

24491 106530 

012746 

010026 


MOV 

#FMT.22,-(SP> 


24492 106534 

012746 

000003 


MOV 

#3,-(SP> 


24493 106540 

010600 



MOV 

SP.RO 

; SP,* 

24494 106542 

104414 



TRAP 

14 


24495 106544 

062706 

000020 


ADD 

#20. SP 

0 

24496 106550 

005201 


13$: 

INC 

R1 

; WRD.CNT 

24497 106552 

020127 

000015 


CMP 

R1.#15 

; WRD.CNT,* 

24498 106556 

003727 



BLE 

12$ 


24499 106560 

104467 


14$: 

TRAP 

67 

• 

24500 106562 

006000 



ROR 

RO 


24501 106564 

103673 



BLO 

10$ 


24502 106566 

062706 

000020 


ADD 

#20. SP 

• 

24503 106572 

005203 



INC 

R3 

; BIT.CNT 

24504 106574 

020327 

000043 


CMP 

R3.#43 

; BIT.CNT,* 

24505 106600 

003002 



B6T 

15$ 


24506 106602 

000167 

177160 


JMP 

1$ 


24507 106606 

022626 


15$: 

CMP 

(SP)*, (SP)* 

• 

0 

24508 106610 

0/ CAO 

000207 



RTS 

PC 


c*OVr 

24510 



; Routine Size: 

214 words 


24511 



; Maxima* stack depth per invocation: 

24 words 

24516 







24517 

O/COI 







c«0 cl 

24522 




.S8TTL 

T55 TEST CODE SECTION 



29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

1059 


1059 

1059 

1060 


1060 


1059 

1059 

1060 

1054 

1054 

1050 


I 
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SEQ 0506 





;M14AD 



29-Mar- 1982 16:23:04 

TOPS 

2452: 



• 

TEST CODE 

SECTION 

29-Mar-1982 16:21:03 

PA:< 

24526 

24530 106612 



T55: : 

PC,ST55 




24531 106612 

004767 

177120 

IS: JSR 

» 


1060 

24532 106616 

104466 


TRAP 

66 




24533 106620 

006000 


ROR 

RO 




24534 106622 

103773 


810 

IS 




24535 106624 

24536 

24537 

000207 


RTS 

PC 






; Routine Size: 

6 words 




24538 

24543 

24544 

24545 ; 

10608 

!<BLF/PAGE> 

; Maximum stack 

depth per 

invocation: 0 words 
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SEO 0507 


24547 

24548 

24549 

24550 

24551 

24552 

24553 

24554 

24555 

24556 

24557 

24558 

24559 

24560 

24561 

24562 

24563 

24564 

24565 

24566 

24567 

24568 

24569 

24570 

24571 

24572 

24573 

24574 

24575 

24576 

24577 

24578 

24579 

24580 

24581 

24582 

24583 

24584 

24585 

24586 

24587 

24588 

24589 

24590 

24591 

24592 

24593 

24594 

24595 

24596 

24597 

24598 

24599 

24600 

24601 


ML4AD 


TEST CODE SECTION 


>9-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2C212) 

>9-Mar-1982 16:21:03 PA:<NEALE>ML4AD.BLI .4 (108) 


10609 

10610 
10611 
10612 

10613 

10614 

10615 

10616 

10617 

10618 

10619 

10620 
10621 
10622 

10623 

10624 

10625 

10626 

10627 

10628 

10629 

10630 

10631 

10632 

10633 

10634 

10635 

10636 
1063? 

10638 

10639 

10640 

10641 

10642 

10643 

10644 

10645 

10646 

10647 

10648 

10649 

10650 

10651 

10652 

10653 

10654 

10655 

10656 

10657 

10658 

10659 

10660 


BGNTST; 

*TEST NUMBER: 
TEST NAME: 


TST 56 


ECC ERROR REGISTER TEST 


TEST DESCRIPTION: 

TEST THE ECC ERROR REGISTER FOR 

CLEARING AND LATCHING OF ECC ERROR 

INFORMATION ON DETTECTION 

OF ECC ERRORS BY: 

1. THIS TEST IS TABLE DRIVEN. DATA TABLE <DT_1) 
CONTAINS ERROR FORCING DATA AND EXPECTED 
MLEE DATA AS A RESULT OF THE FORCED ERROR 

2. THE TEST THEREFOR INDEXES INTO DTJ TO FORCE 
AN ECC ERROR 

3. A NASS BUS READ TRANSFER IS DONE 

4. DT 1 IS AGAIN INDEXED AND ITS CONTENTS 
IS COMPARED A6AINST THE RESULTING 
MLEE RE6ISTER CONTENTS 

5. A MASS BUS CLEAR IS DONE AN MLEE IS CHECKED FOR 
ZEROES 

6. THE ECH BIT 1$ ALSO EXAMINED FOR CORRECT 
LATCHING INFORMATION 


local 

TMP El, 

FINISH, 

ERRJLG; 

CLR MBUS; 

FINISH = 4; 

fncr CLR LOOP fro* 0 to 1 do 

•THE SECOND PASS TESTS MLEE FOR CLEARING 
begin 

incr LATCH J.OOP from 0 to .FINISH do 


begin 
BGNSU8; 


•TEMP STORAGE FOR El DATA WORD 
•VARIABLE ENDING CONDITION FOR LATCHJ.OOP 
! ERROR FLAG 

•CLEAR THE DRIVE 

JMAKE LATCH.LOOP DO 5 LOOPS AT FIRST 
! THE FIRST PASS TESTS MLEE FOR LATCHING 


!TEST MLEE FOR LATCHING BY USING DTJ DATA 
•START OF SCOPE LOOP 


CZMLADO ML-11 LOGIC TEST 
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SEQ 0508 


24603 ; ML 4 AD 

24604 ; 

24605 

24606 ; 10661 

24607 ; 10662 

24608 ; 10663 

24609 ; 10664 

24610 ; 10665 

24611 ; 10666 

24612 ; 10667 

24613 ; 10668 

24614 ; 10669 

24615 ; 10670 

24616 ; 10671 

24617 ; 10672 

24618 ; 10673 

24619 ; 10674 

24620 ; 10675 

24621 ; 10676 

24622 ; 10677 

24623 ; 10678 

24624 ; 10679 

24625 ; 10680 

24626 ; 10681 

24627 ; 10682 

24628 ; 10683 

24629 ; 10684 

24630 ; 10685 

24631 ; 10686 

24632 ; 10687 

24633 ; 10688 

24634 ; 10689 

24635 ; 10690 

24636 ; 10691 

24637 ; 10692 

24638 ; 10693 

24639 ; 10694 

24640 ; 10695 

24641 ; 10696 

24642 ; 10697 

24643 ; 10698 

24644 ; 10699 

24645 ; 10700 

24646 ; 10701 

24647 ; 10702 

24648 ; 10703 

24649 ; 10704 

24650 ; 10705 

24651 ; 10706 

24652 ; 10707 

24653 ; 10708 

24654 ; 10709 

24655 ; 10710 

24656 ; 10711 

24657 ; 10712 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1 982 16:21:03 


T0PS-20 8U$s-16 V2(212) 
PA:<NEALE>ML4AD.BLI .4 (108) 


J CLEAR THE ERROR FLAG 
* CLEAR THE ERROR REGISTER 
! ENABLE ECC DIAG MODE 


!LOAD PAR CRC URD WITH REM TBL 
.'LOAD CRC“A WITH REM. TBL 


ERR.FLG = ZERO; 

RLE* s ZEROES; 

ECC. DM = ONE; 

THE FOLLOWING ASSIGNMENT: 

ML El = . TMP.E 1 

IS EQUIVALENT TO THE FOLLOWING 
TWO ASSINGMENTS: 

PAR CRC WRD = .DT 1 C.LATCH.LOOP. P0.53; 

CRC.A = .DT.1 C.LATCH.LOOP. A0.5J; 

THIS IS NECESSARY DUE TO THE FACT THAT 
THE El REGISTER IS WORD ORIENTATED AND 
THE BLISS COMPILER GENERATES BYTE INST 
TO ACCESS THE REGISTER. 

THP El = ZEROES; ! CLEAR OUT THE TEMP WORD 

TMP'EKO. 6> = .DT 1 C.LATCH.LOOP. A0.53; 'LOAD CRC.A WITH REM TBL _ 

TMP‘E1<8. 6> = ,DT“1 C. LATCH LOOP. POI53: !LOAD PAR CRC WRD WITH REM.TBL 

NLET r .fMP.EI; " ?LOAD THE El REGISTER WITH DATA 

CRC B = .DT.1 C.LATCH.LOOP. BO. 5 3; 

GD BLA XFER O; 

ECr DIS = ZERO; 

NLCSl = read; 

TIME.OUT.LOOP; 

if .CRC.ERR neq .DT.1 C.LATCH.LOOP. CRC.DATA3 then ERR_FL6 = ONE; 

if -SGL.ERR neq .DT.1 C.LATCH.LOOP. SGL.DATAJ then ERR.FL6 = ONE, 

if .UNC.ERR neq ,DT.1 C.LATCH.LOOP. UNC.DATAJ then ERR.FLG = ONE, 

if .BIT.JN.ERR neq .DT.1 C.LATCH.LOOP. E0.53 then ERR.FLG = ONE; 

if .CMAN.IN.ERR neq .DT.1 C.LATCH.LOOP. C0.53 then ERR.FL6 = ONE; 

if .ECH.ERR neq .DT.1 C.LATCH.LOOP. ECH.DATAJ 'TEST if ECH GOT SET 

thW beain .'REPORT ERROR IF NOT SET 

ERRDF (123. ASYNC. DUMPER); . ^ 

PRINTS (FO^.FMT, WRD.67. WRD.10. WRD.69. WRD.14); 
end; 


'GET CRC.8 FROM DT 1 

•SET UP l GOOD BLOCK TRANSFER 

•DISABLE ECC DIABLE 

.'READ THE ERROR AND LACTH MLEE 


'TEST CRC.ERR 
! TEST SGL.ERR 
! TEST UNC 

!TEST BIT IN ERROR 
•TEST CHANNEL IN ERROR 


if .ERR FLG IS.SET 
then 


begin 

ERRDF 


(124. SYNC. DIPIPER); 


•TEST IF THE ERROR FLAG GOT SET 
.'REPORT ERROR IF SET 
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hi 


SEQ 0509 


24659 

24660 

24661 

24662 

24663 

24664 

24665 

24666 

24667 

24668 

24669 

24670 

24671 

24672 

24673 

24674 

24675 

24676 

24677 

24678 

24679 

24680 

24681 

24682 

24683 

24687 

24688 

24692 

24693 

24694 

24695 

24696 

24697 

24698 

24699 

24700 

24701 

24702 

24703 

24704 

24705 

24706 

24707 

24708 

24709 

24710 

24711 

24712 

24713 


;ML4AD 


TEST CODE SECTION 


29-H«r-1982 16:23:04 
29-Mer-1982 16:21:03 


T0PS-20 Blfss-16 V2:212) 

PA : <NE ALE>ML4 AD .8L I . 4 (108) 


10713 

10714 

10715 

10716 

10717 

10718 

10719 

10720 

10721 

10722 

10723 

10724 

10725 

10726 

10727 

10728 

10729 


PRINTS (THR.FMT, REG.14, WRD.52, PHR 11): 

PrInTB ^DTJ [.LATCH.LOOP, A0.5J, .DT.1 [.LATCH.LOOP, P0.53) 

end; 


ENDSUB; 

end; 

CLR.MBUS; 


SEND OF SCOPE LOOP 


if .MLEE neq ZERO 
then 

ER^DF (125, SYNC, DUMPER); M 
PRINTB (FOR.FMT, REG.14, URD.52, FNC.7, ttRD.14); 
end; 


•CLEAR THE REGISTER 

•SEE IF THE REGISTER GOT CLEARED 

! REPORT ERROR IF NOT CLEARED 


106626 

106632 

106636 

106644 

106650 

106654 

106662 

106666 

106672 

106676 

106700 

106704 

106706 

106712 

106716 

106720 

106724 

106726 

106732 

106734 

106736 

106740 


10730 

ECC DM = ONE 

i 


10731 

10732 

10733 

10734 

FINISH = ZERO; 
end; 

ENDTST; 

.S8TTL 

004167 

075760 

ST56: 

JSR 

162706 

000006 


SUB 

152777 

000040 106600 


B1S8 

016705 

107162 


MOV 

042705 

177770 


BK 

142777 

000007 106562 


BICB 

150577 

106556 


61 SB 

011766 

000004 


MOV 

005066 

000002 


CLR 

005004 


1$: 

CLR 

000167 

000656 

2$: 

JMP 

010446 


MOV 

012746 

000006 


MOV 

004767 

010005 

075304 


JSR 

MOV 

012701 

060501 

015764 


MOV 

ADD 

012702 

060502 

015766 

3$: 

MOV 

ADD 

104402 

005003 


TRAP 

CLR 

005077 

106520 


CLR 


•ENABLE ECC DISABLE 

•MAKE LATCH.LOOP LOOP ONCE TO CLEAR MLEE AGAIN 


ST56 TEST CODE SECTION 

R1 ,$SAVE5 

#6,SP 

#40,BML.REG*40 

ML.DUT.R5 

#1777?6,R5 

#7,9ML.REG*40 

R5,BNL.REG+40 

(PC).4(SP) 

2<sp5 

R4 

16 $ 

R4,-(SP) 

#6,-(SP) 

PC ,8L$MUL 
R0.R5 
#of .1 ,R1 
R5.R1 

IDT. 1+2, R2 
R5, R2 

R3 

3ML.REG+60 


*, FINISH 
CLR.LOOP 
LATCH.LOOP 

LATCH.LOOP,* 


ERR.FLG 


1060 

1064 


1065 

1065 

1065 

1068 


1069 

1068 

1065 

1066 
1066 



CZMLADO Ml-11 LOGIC TEST 
ST 56 TEST CODE SECTION 
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SEO 0510 


24715 





; ML 4 AD 


24716 

24717 

24718 

106744 

152777 

000001 

106552 

• 

BIS8 

24719 

106752 

005066 

000004 



CLR 

24720 

106756 

111200 




M0V8 

24721 

106760 

042700 

177700 

000077 

000004 


BIC 

24722 

106764 

142766 

050066 


BICB 

24723 

106772 

000004 



BIS 

24724 

106776 

011200 




MOV 

24725 

107000 

006300 




ASL 

24726 

107002 

006300 

140377 



ASL 

24727 

107004 

042700 



BIC 

24728 

107010 

042766 

037400 

000004 


BIC 

24729 

107016 

050066 

000004 

106524 


BIS 

24730 

107022 

016677 

000004 


MOV 

24731 

107030 

116500 

015770 



M0V8 

24732 

107034 

042700 

177700 



BIC 

24733 

107040 

142777 

000077 

106516 


BICB 

24734 

107046 

150077 

106512 



BISB 

24735 

107052 

004767 

111234 



JSR 

24736 

107056 

142777 

000002 

106440 


BICB 

24737 

107064 

012777 

000071 

106312 


MOV 

24738 

107072 

105777 

106356 


4$: 

TST8 

24739 

107076 

100375 




BPL 

24740 

107100 

011146 




MOV 

24741 

107102 

042716 

157777 



BIC 

24742 

107106 

017700 

106502 



MOV 

24743 

107112 

042700 

157777 



BIC 

24744 

107116 

020026 




CMP 

24745 

107120 

001402 




BEQ 

24746 

107122 

012703 

000001 



MOV 

24747 

107126 

011146 



5$: 

MOV 

24748 

107130 

042716 

137777 



BIC 

24749 

107134 

017700 

106454 



MOV 

24750 

107140 

042700 

137777 



BIC 

24751 

107144 

020026 




CMP 

24752 

107146 

001402 




BEQ 

24753 

107150 

012703 

000001 



MOV 

24754 

107154 

011146 



6$: 

MOV 

24755 

107156 

042716 

077777 



BIC 

24756 

107162 

017700 

106426 



MOV 

24757 

107166 

042700 

077777 



BIC 

24758 

107172 

020026 




CMP 

24759 

107174 

001402 




BEO 

24760 

107176 

012703 

000001 



MOV 

24761 

107202 

111146 



7$: 

H0V8 

24762 

107204 

042716 

177700 



BIC 

24763 

107210 

117700 

106400 



M0V8 

24764 

107214 

042700 

177700 



BIC 

24765 

107220 

020026 




CMP 

24766 

107222 

001402 




BEQ 

24767 

107224 

012703 

000001 


8$: 

MOV 

24768 

107230 

011146 



NOV 

24769 

107232 

042716 

170077 



BIC 


TEST CODE SECTION 

#1.artL.REG*120 
4 <SP) 

(R2KR0 

#177*00.R0 

#77.4(SP) 

R0.4($P) 

CR2) ,R0 

RO 

RO 

#1 40377 ,R0 
#37400-4 (SP) 

R0.4 (SP) 

4(SP> .BML.REG+150 

0T.U4(R5),R0 

#1*7700.R0 

#77,BNl.REG+160 

R0.aMt.REG*160 

PC-GD.81K.XFER 

#2 f a*..REG+l20 

#71. am. REG 

am.. REG 1 50 

4$ 

(RD.-(SP) 

#157*77.<SP> 

ftfimi 0 -* 0 

Rj.(SP)* 

#1.R3 
<R1).-<SP> 
#137^77, (SP) 

tsmp* 

MAS?)* 


#1.R3 
(RIK-(SP) 
#777^7, (SP) 

Rj.(SP)* 

#1.R3 

<r1) 4 -(SP> 

#177^00.<SP) 

M:r 

MAS?)* 

8$ 

#1.R3 

(RI).-(SP) 

#170677,(SP) 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

1066 

1068 

1068 


1068 


•-TMP.E1 

•-TMP.E1 

TMP.E1 ,* 1068 

1068 


1068 

1068 

1068 


1069 


TMP.E1 


•-TMP.E1 

♦.TMP.E1 


; *,ERR.FL6 


1069 


; *.ERR.FIG 


1069 


; *.ERR.FLG 


1069 


; *. ERR. FIG 


1070 
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24771 

24772 

24773 

24774 

24775 

24776 

24777 

24778 

24779 

24780 

24781 

24782 

24783 

24784 

24785 

24786 

24787 

24788 

24789 

24790 

24791 

24792 

24793 

24794 

24795 

24796 

24797 

24798 

24799 

24800 

24801 

24802 

24803 

24804 

24805 

24806 

24807 

24808 

24809 

24810 

24811 

24812 

24813 

24814 

24815 

24816 

24817 

24818 

24819 

24820 

24821 

24822 

24823 

24824 

24825 


; ML 4 AO 


107236 

107242 

107246 

107250 

107252 

107256 

107260 

107262 

107270 

107272 

107274 

107276 

107304 

107306 

107310 

107312 

107314 

107316 

107320 

107322 

107324 

107326 

107330 

107332 

107336 

107342 

107346 

107352 

107356 

107362 

107364 

107366 

107372 

107376 

107400 

107402 

107404 

107406 

107410 

107414 

107420 

107424 

107430 

107434 

107436 

107440 

107444 

107446 

107452 

107456 

107460 

107462 


017700 

042700 

020026 

001402 

012703 

011246 

005046 

032766 

001401 

005216 

005000 

132777 

001401 

005200 

020026 

001002 

005726 

000425 

005726 

104455 

000173 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

020327 

001062 

104455 

000174 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

017716 

011146 

012746 

012746 

010600 

104414 

011200 


106352 

170077 


00000 i 


010000 000002 


000100 106160 


010664 

011474 

010630 

011462 

010270 

000005 


000014 

000001 


012020 

011310 

012620 

010256 

000004 


106150 

006442 

000003 


MOV 

BIC 

CMP 

BEQ 

MOV 

MOV 

CLR 

BIT 

BEQ 

INC 

CLR 

BITS 

BEQ 

INC 

CMP 

BNE 

TST 

BR 

TST 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

CMP 

BNE 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 


TEST CODE SECTION 

aML.REG^IO.RO 
01 70077, RO 
RO.(SPH 

9S 

#1.R3 

(R2) f -(SP) 

-<$P5 

#10000, 2<SP) 

10S 

<SP> 

RO 

#100,BML.REG*60 

IIS 

RO 

RO.CSPJ* 

§• 

sr 

173 
as me 

DUMPER 

#URD.14.-(SP> 

#WR0.69.-(SP) 

#WRD.10,-($P) 

#WRD.67,-(SP> 

#FOR.FHT.«(SP> 

#5.-<SP> 

SP.RO 

14 

#14. SP 
A3.#1 
Hi 
55 

174 
SYNC 
DUMPER 

fPHR.11 ,-($P) 

#WRD.52,-(SP) 

#REG.14,-(SP) 

#THR.FHT,-($P> 

#4,~(SP> 

SP.RO 

14 

aML.REG+210,($P> 

(R1),-<SP) 

#F MT.I.-(SP) 
#3,-<$P> 

SP.RO 

14 

(R2),R0 


«• •• 


SEQ 051 1 


29-M*r-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


; *,ERR.FLG 


1070 


; S P.* 

ERR.FLG.* 

; SP.* 

0 

; SP.* 

9 
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24827 

24828 

24829 

24830 

24831 


; Ml 4 AD 


24834 

24835 

24836 

24837 

24838 

24839 

24840 

24841 

24842 

24843 

24844 

24845 

24846 

24847 

24848 

24849 

24850 

24851 

24852 

24853 

24854 

24855 

24856 

24857 

24858 

24859 

24860 

24861 

24862 

24863 

24864 

24865 

24866 

24867 

24868 

24869 

24870 

24871 

24872 

24873 
24^7 > 
24o7 5 

24876 

24877 

24878 

24879 

24880 

24881 


107464 
107466 
107470 
107472 
107474 
107476 
107500 
107504 
107506 
107510 
107514 
107520 
107524 
107530 
107534 
107536 
107540 
107544 
107546 
107550 
107552 
107556 
107560 
107562 
107566 
107570 
107574 
107602 
107606 
107612 
107620 
107624 
107630 
107632 
107634 
107636 
107640 
107642 
107646 
107652 
107656 
107662 
107666 
107672 
107674 
107676 
1 07702 
107710 
107714 
107720 
107726 
107730 


006200 

006200 

006200 

006200 

006200 

006200 

042700 

010016 

111246 

042716 

116546 

042716 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103002 

000167 

022626 

005204 

020466 

003002 

000167 

152777 

016705 

042705 

142777 

150577 

005777 

001424 

104455 

000175 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

152777 

005066 

005266 

026627 

003002 

000167 


177700 


177700 
015770 
1 7*700 
007632 
000004 


000030 


177156 


000004 16S: 

177110 

000040 105642 17$: 

106224 

177770 

000007 105624 

105620 

105764 


010664 

012234 

011310 

012620 

010270 

000005 


000014 

000001 105614 18$: 

000004 
000002 

000002 000001 
176742 


TEST CODE SECTION 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

81 C #177700,RO 

MOV RO.(SP) 

M0V8 <R2).-(SP) 

BIC #177700.<SP: 

Move DT.1*4(R5),-<SP) 
BIC #1 77700, (SP) 

MOV #FMT.19,-(SP> 

MOV #4,-(SP) 

MOV SP, RO 

TRAP 14 

ADD #30, SP 

TRAP 67 

ROR RO 

BHIS 15$ 

JMP 3$ 

CMP (SP)*,(SP)+ 

INC R4 

CMP R4.4ISP) 

BGT 1 7i 

JMP 2$ 

81 SB #40,aMl.REG+40 

MOV ML.DUT.R5 

BK #1 77776, R5 

~ . #7,3ML.REG+40 

L *i R5,iML.REG*40 

BML.REG+210 
BEG 18$ 

TRAP 55 

.WORD 175 

.WORD SYNC 

.WORD DUMPER 

MOV #WRD.14,-(SP> 

MOV f*NC.7.-(SP) 

MOV #WRD.52.-(SP> 

MOV #R£6.14.~(SP> 

MOV #FOR.FMT ,-(SP) 

MOV #5,-(SP) 

MOV SP, RO 

TRAP 14 

ADD #14, SP 

81 SB #1,BML.REG+120 , 

CLR 4<SP> 

INC 2CSP) 

CMP 2(SP),#1 

BGT 19$ 

JMP 1$ 


SEQ 0512 


29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:05 PA:< 


; SP,* 


LATCH. LOOP 
LATCH. L00P,FINISH 


; SP.* 

; FINISH 
; CLR. LOOP 
; CLR. LOOP,* 


1071 

1071 


1065 

1065 


1071 

1072 
1072 

1072 





SEO 0513 

29-Mar-1982 16:23:04 TOPS 

29-Aar-1982 16:21:03 PA:< 

1060 


1073 
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SEO 0514 


24922 

24923 

24924 

24925 

24926 

24927 

24928 

24929 

24930 

24931 

24932 

24933 

24934 

24935 

24936 

24937 

24938 

24939 

24940 

24941 

24942 

24943 

24944 

24945 

24946 

24947 

24948 

24949 

24950 

24951 

24952 

24953 

24954 

24955 

24956 

24957 

24958 

24959 

24960 

24961 

24962 

24963 

24964 

24965 

24966 

24967 

24968 

24969 

24970 

24971 

24972 

24973 

24974 

24975 

24976 


;ML4AD 


TEST CODE SECTION 


29-Mar- 1982 
29-Mar- 1982 


16:23:04 TOPS-20 BUss-16 V2C212) 

16:21:03 PA:<NEALE>ML4AD.8LI.4 (109) 


10736 

10737 

10738 

10739 

10740 

10741 

10742 

10743 

10744 

10745 

10746 

10747 

10748 

10749 

10750 

10751 

10752 

10753 

10754 

10755 

10756 

10757 

10758 

10759 

10760 

10761 

10762 

10763 

10764 

10765 

10766 

10767 

10768 

10769 

10770 

10771 

10772 

10773 

10774 

10775 

10776 

10777 

10778 

10779 

10780 

10781 

10782 

10783 

10784 

10785 

10786 

10787 


BGNTST; 

TEST NUMBER: 
TEST NAME: 


TST 57 


ECC ERROR LOCATION REGISTER TEST 


TEST DESCRIPTION: 

TEST THE ECC ERROR LOCATION REGISTER FOR CLOCKING, BIT UNIQUENESS 
CLEARING AND LATCHING OF DSA ADDRESSES ON DETECTION OF ECC ERROR BY: 

1. TEST FOR CLOCKING BY: 

A. DO A MASS BUS CLEAR FORCING REGISTER BITS TO ZEROES 

B. FORCE AN ECC ERROR AT THE LAST BLOCK AND DO A READ TRANSFER 

C. CHECK MLEL FOR LAST BLOCK ADDRESS 

2. TEST FOR BIT UNIQUENESS BY: 

A. WITH FORCED ECC ERRORS DO READ TRANSFERS AT VARIOUS DSA 
ADDRESSES ANP CHECK MLEL FOR LATCHED DSA ADDRESSES 
6. DO CLEAR AND REPEAT 

3. TEST FOR LATCHING AND CLEARING BY: 

A. WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE 

LAST BLOCK. (LATCHES MLEL WITH THE LAST BLOCK ADDRESS TO START THE TEST OFF) 
AGAIN WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT DSA 
ZERO AND CHECK MLEL FOR NOT LATCHING. 

NO CLEAR DONE 

WITH FORCED UNCORRECTABLE ERRORS DO A READ TRANSFER AT DSA 
ZERO CHECK MLEL FOR LATCHED DSA ZERO 
NO CLEAR DONE 

WITH FORCED SINGLE BIT ERRORS DO A READ TRANSFER AT THE LAST 
BLOCK AND CHECK MLEL FOR NOT LATCHING 
NO CLEAR DONE , „ „ 

WITH A FORCED UNCORRECTABLE ERROR DO A READ TRANSFER AT 
THE LAST BLOCK AN CHECK MLEL FOR NOT LATCHING 
DO A MASS BUS CLEAR 

WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE 
DO S A MASS*BUS CLEAR AGAIN AND CHECK MLEL FOR ZEROES 


B. 


C. 


D. 


E. 

F. 

G. 


H. 

IMPLICIT INPUTS: 

IO.BUF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


local 

SGL, 


! SINGLE BIT ERROR PARRAMETER 


| CZMLADO ML-11 LOGIC TEST 
T56 TEST CODE SECTION 


MACRO Mill 3 3Q-MAR-82 11:18 


M 

PAGE 5: 


24978 

24979 

24980 

24981 

24982 

24983 

24984 

24985 

24986 

24987 

24988 

24989 

24990 

24991 

24992 

24993 

24994 

24995 

24996 

24997 

24998 

24999 

25000 

25001 

25002 

25003 

25004 

25005 

25006 

25007 

25008 

25009 

25010 

25011 

25012 

25013 

25014 

25015 

25016 

25017 

25018 

25019 

25020 

25021 

25022 

25023 

25024 

25025 

25026 

25027 

25028 

25029 

25030 

25031 

25032 


;HL4AD 


10788 

10789 

10790 

10791 

10792 

10793 

10794 

10795 

10796 

10797 

10798 

10799 

10800 
10801 
10802 

10803 

10804 

10805 
10106 

10807 

10808 

10809 

10810 
10811 
10812 

10813 

10814 

10815 

10816 

10817 

10818 

10819 

10820 
10821 
10822 

10823 

10824 

10825 

10826 

10827 

10828 

10829 

10830 

10831 

10832 

10833 

10834 

10835 

10836 

10837 

10838 

10839 


TEST CODE SECTION 

UNC, 

SAVE. 

SHF .DATA. 

DSA.PAT; 

CLR THRESHOLD; 

BGNSUB; 

CLR MBUS * 

FOR'ECC.ERR (SGL = 1, UNC = 0); 

MLD* = .LST BLK; 

MLWC = not 255; 

ML8A = IO.BUF; 

MLCS1 = read; 

TIME .OUT. LOOP; 

If .HLEL eql ZEROES 
then 

begin 

ERRDF (126. SVNC, DUMPER); 

PRINTS (THR FMT. REG 15. WRD 52. PHR 11) 

EXIT.TST; " 

end; 

ENDSUB; 

SHF .DATA = .LST.ARR; 

incr LOOP from 0 to 16 do 
begin 
BGNSUB; 

CLR.MBUS; 

FOR.ECC.ERR (SGL = 1. UNC = 0); 

selectone .LOOP of 
set 

COJ : 
begin 

DSAJ PAT = ZEROES; 

WLDX = .DSA.PAT; 
end; 

m : 

begin 

DSA.PAT = .LST BLK; 

ML DA = .DSA.PAT; 
end; 

CotherwiseJ : 
begin 

DSA.PAT = .SHF DATA; 

HLDA = .SHF DATA; 

SHF DATA = TSHF.DATA*-ONE; 


8 


SED 0515 

29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (109) 

JUNCORREC TABLE ERR PARRAMETER 
! TEMPORY SAVE LOCATION 
! SHIFTING DATA PATTERN SAVE LOCATION 
! EXPECTED DSA PATTERN LATCHED IN MLEL 

.'CLEAR ERROR PRINT THRESHOLD 
! START OF SCOPE LOOP 
! CLEAR THE MLEL REGISTER 

1 force a sbe 

! LATCH THE LAST BLK ADRS INTO THE MLEL 


•DO A READ AND LATCH THE MLEL 


.'SEE IF THE MLEL GOT CLOCKED 
i REPORT AN ERROR IF NOT CLOCKED 


.'END OF SCOPE LOOP 
!LOAD THE SHIFT DATA 

•FIRST TEST FOR I'S AND O’S THEN SHIFT DATA 

.'START OF SCOPE LOOP 
•CLEAR THE DRIVE 
! FORCE A SBE 

! SELECT THE TEST PATTERN 


! ZEROES PATTERN 


•MOSTLY ONES PATTERN 


! SHIFT PATTERN 


CZMLADO ML-11 LOGIC TEST 
T56 TEST CODE SECTION 


N 8 

MACRO Ml 113 30-MAR-82 11:18 PAGE 533 


SEQ 0516 


25034 

25035 

25036 

25037 

25038 

25039 

25040 

25041 

25042 

25043 

25044 

25045 

25046 

25047 

25048 

25049 

25050 

25051 

25052 

25053 

25054 

25055 

25056 

25057 

25058 

25059 

25060 

25061 

25062 

25063 

25064 

25065 

25066 

25067 

25068 

25069 

25070 

25071 

25072 

25073 

25074 

25075 

25076 

25077 

25078 

25079 

25080 

25081 

25082 

25083 

25084 

25085 

25086 

25087 

25088 


ML4AD 


10840 

10841 

10842 

10843 

10844 

10845 

10846 

10847 

10848 

10849 

10850 

10851 

10852 

10853 

10854 

10855 

10856 

10857 

10858 

10859 

10860 
10861 
10862 

10863 

10864 

10865 

10866 

10867 

10868 

10869 

10870 

10871 
0872 

10873 

10874 

10875 

10876 

10877 

10878 

10879 

10880 
10881 
10882 

10883 

10884 

10885 

10886 

10887 

10888 

10889 

10890 

10891 


TEST CODE SECTION 
end; 


>9-Mar-1982 16:23:04 
>9-Mar-1982 16:21:03 


T0PS-20 btiss-16 V2(212) 
PA:<NEALE>ML4AD.8LI.4 (109) 


tes; 

MLWC = not 255; 

Ml. BA = IO.BUF; 

MLCS1 = read; 

TIME .OUT LOOP; 

SAVE = .MLEL; 

if .SAVE neq .DSA.PAT 
then 

begin 

CMP. THRESHOLD; 

ERRBF (127. ASYNC, DUMPER); 

PRINTB (TWO.FMT, REG 15, PHR 4); 
PRINTB (FMT.2. .DSA.PAT, .SA9E. (, 
end; 

ENDSU6; 

end; 

CLR.MBUS; 

FOR ECC.ERR (SGL =1. UNC = 0); 

MLWt = not 255; 

MLBA = IO.BUF; 

MLDA = .L5T 8LK; 

MLCS1 = rea3; 

TIME.OUT.LOOP; 

incr LOOP from 0 to 4 do 
begin 
BGNSUB; 

MLER = ZEROES; 

case .LOOP from 0 to 4 of 
set 


.'SET UP THE TRANSFER 

IDO THE TRANSFER AND LATCH MLEL 

.'READ AND SAVE THE MLEL REGISTER 

! SEE IF SAVE IS WHAT WE EXPECTED 

! REPORT AN ERROR IF NOT THE SAME 
J COMPARE ERROR PRINT THRESHOLD 

DSA.PAT xor .SAVE)); 

!END OF SCOPE LOOP 


! CLEAR THE DRIVE 
.'FORCE A SBE 

! SET UP A LAST BLOCK TRANSFER 
•TO LATCH THE MLEL WITH T 


I NOW TEST FOR CORRECT LATCHING 

! START OF SCOPE LOOP 
.'CLEAR THE ERROR REGISTER 

.'SELECT TEST DATA 


COJ 


begin 
SGL = 1; 

UNC = 0; 

DSA.PAT = .LST.8LK; 
MLDX = ZEROES; 
end; 


.'FORCE A SBE AND CHECK FOR THE LST BLK ADRS 


C13 


begin 


! FORCE A UNC ERROR AND CHECK FOR ADRS ZERO 


>gm 
SGL = 0; 

UNC = 1; 

DSA.PAT = ZEROES; 
MLDX = ZEROES; 
end; 


i 
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534 

SEO 0517 

T56 TEST 

CODE SECTION 



25090 

;ML4AD 



29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 

25091 


TEST CODE SECTION 


29-Nar-1982 16:21:03 PA : <NE ALE >NL4AD.8L 1.4 (109) 

25092 

25093 

10892 




25094 

10893 

C 23 : 


.'FORCE S8E AND CHECK FOR ADRS ZERO 

25095 

10894 

begin 

SGI = 1; 



25096 

10895 



25097 

10896 

UNC = 0; 



25098 

10897 

DSA PAT = ZEROES; 



25099 

25100 

25101 

25102 

10898 

10899 

10900 

10901 

MLD* s .LST.8LK; 
end; 



C3 2 : 


.'FORCE UNC ERROR AND CHECK FOR ADRS ZERO 

25103 

10902 

begin 

SGL = 0; 



25104 

10903 



25105 

10904 

UNC = 1; 



25106 

10905 

DSA PAT = ZEROES; 



25107 

10906 

MLD* = .LST.8LK; 



25108 

10907 

end; 



25109 

10908 




25110 

10909 

C43 : 


! FORCE S8E AND CHECK FOR ADRS ZERO 

25111 

10910 

begin 



25112 

10911 

CLR.NBUS; 



25113 

10912 

SGL = 1; 



25114 

10913 

UNC = 0; 



25115 

10914 

DSA PAT = ZEROES; 



25116 

10915 

MLD* = .LST.8LK; 



25117 

10916 

end; 



25118 

10917 

tes; 



25119 

10918 




25120 

10919 

FOR ECC.ERR (.SGL. .UNC); 


! FORCE SELECTED FORCED ERROR INTO NL11 

25121 

10920 

NLWt = not 255; 


•SET UP A TRANSFER 

25122 

10921 

MLBA = 10 BUF; 



25123 

10922 

MLCS1 = read; 


!READ THE ERROR OUT AND LATCH NLEL 

25124 

10923 

TINE OUT LOOP; 



25125 

10924 




25126 

25127 

10925 

10926 

if .LOOP neq 4 
then 


! TEST THE REG FOR LATCH DATA IF LOOP NEQ 4 

25128 

10927 

SAVE = .NLEL 



25129 

10928 

else 



25130 

10929 

begin 


.'ELSE TEST THE REG FOR CLEAR 

25131 

10930 

CLR NBUS; 



25132 

10931 

SAVE = .NLEL; 



25133 

10932 

end; 



25134 

10933 




25135 

• 10934 

if .SAVE neq .DSA PAT 


•SEE IF THE REG LATCHED OK r 

25136 

10935 

then 


1 

25137 

10936 

begin 

CNP THRESHOLD; 


! REPORT ERROR IF NOT LATCHED 

25138 

10937 


• COMPARE ERROR PRINT THRESHOLD 

25139 

10938 

ERRDF (128. SVNC. DUNPER); 



25140 

10939 

PRINTS (THR FNT. REG 15. URD 71, WRD 10); 

25141 

10940 

PRINTS (FNTII, .DSA.PAT. .SAVE) 



25142 

10941 

end; 



25143 

10942 




25144 

10943 

ENOSUB; 


!END OF SCOPE LOOP 
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SEQ 0518 


CZHLADO ML-11 LOGIC TEST 
T 56 TEST CODE SECTION 


25146 ;ML4AD 






25147 ; 


TEST CODE SECTION 


25148 






25149 ; 

10944 

end; 




25150 ; 

10945 





25151 ; 

10946 

ENDTST; 




25155 






25156 





.S8TTL 

25160 107756 

004167 

074630 


ST57: 

JSR 

25161 107762 

005746 




TST 

25162 107764 

005067 

105406 



CLR 

25163 107770 

104402 



1$: 

TRAP 

25164 107772 

152777 

000040 

105444 


BISS 

25165 110000 

016705 

106026 



MOV 

25166 110004 

042705 

177770 



BIC 

25167 110010 

142777 

000007 

105426 


BICB 

25168 110016 

150577 

105422 



BISS 

25169 110022 

012703 

000001 



MOV 

25170 110026 

010346 




MOV 

25171 110030 

005001 




CLR 

25172 110032 

005046 




CLR 

25173 110034 

004767 

110150 



JSR 

25174 110040 

016777 

103750 

105366 


MOV 

25175 110046 

012777 

177400 

105340 


MOV 

25176 110054 

012777 

014022 

105342 


MOV 

25177 110062 

012777 

000071 

105314 


MOV 

25178 110070 

105777 

105360 


2$: 

TSTB 

25179 110074 

100375 




BPL 

25180 110076 

005777 

105522 



TST 

25181 110102 

001025 




BNE 

25182 110104 

104455 




TRAP 

25183 110106 

000176 




.WORD 

25184 110110 

012750 




.WORD 

25185 110112 

026302 




.WORD 

25186 110114 

012746 

012020 



MOV 

25187 110120 

012746 

011310 



MOV 

25188 110124 

012746 

012626 



MOV 

25189 110130 

012746 

010256 



MOV 

25190 110134 

012746 

000004 



MOV 

25191 110140 

010600 




MOV 

25192 110142 

104414 




TRAP 

25193 110144 

104463 




TRAP 

25194 110146 

062706 

000016 



ADD 

25195 110152 

000167 

001052 



JMP 

25196 110156 

022626 



3S: 

CMP 

25197 110160 

104467 




TRAP 

25198 110162 

006000 




ROR 

25199 110164 

103701 




BLO 

25200 110166 

016705 

103626 



MOV 


29-Mar- 1982 16:23:04 T0PS-20 BUss-16 V2C212) 

29-Mar-1982 16:21:03 PA : <NE ALE >ML4AD .BL 1 . 4 (109) 


ST57 TEST CODE SECTION 

R1 »$SAVE5 

-(SP) 

P.CNT 

#40.BML.REG+40 

ML.DUT.R5 

#177776.R5 

#7.8ML.REG*40 

R5.8ML.REG+40 

#1.R3 

R3,-(SP> 

Rl 

-<SP) 

PC.FOR.ECC.ERR 
LST.8LK.BML.REG+30 
#-400.BML.REG*10 
#I0.BUF.iML.REG*20 
#71. ML. REG 
BML.REG+50 
2 $ 

8ML.REG+220 

3$ 

55 

176 

SYNC 

DUMPER 

#PHR.11.-(SP> 

#YRD.52.-(SP> 

#REG.15,-(SP) 

#THR.FMT.-<SP> 

#4,-(SP) 

SP. RO 

14 

63 

#16, SP 
31S 

(SP>+. (SP>+ 

67 

RO 

1 $ 

LST.ARR.R5 


*.SGL 

SGL.* 

UNC 


SP.* 


; *. SHF. DATA 


1073 

1079 

1079 

1079 


1079 


1079 

1079 

1079 

1080 


1080 

1080 


1080 


1080 

1080 

1079 

1080 


1081 


CZMLADO ML-11 LOGIC TEST 
$T57 TEST COOE SECTION 


D 9 
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25202 

25203 

25204 

25205 

25206 

25207 

25208 

25209 

25210 

25211 

25212 

25213 

25214 

25215 

25216 

25217 

25218 

25219 

25220 

25221 

25222 

25223 

25224 

25225 

25226 

25227 

25228 

25229 

25230 

25231 

25232 

25233 

25234 

25235 

25236 

25237 

25238 

25239 

25240 

25241 

25242 

25243 

25244 

25245 

25246 

25247 

25248 

25249 

25250 

25251 

25252 

25253 

25254 

25255 

25256 


;M14AD 


110172 

110174 

110176 

110204 

110210 

110214 

110222 

110226 

110232 

110234 

110236 

110240 

110244 

110246 

110250 

110252 

110254 

110260 

110262 

110266 

110272 

110274 

110276 

110302 

110304 

110312 

110320 

110326 

110332 

110334 

110342 

110346 

110350 

110354 

110362 

110364 

110366 

110370 

110372 

110374 

110376 

110400 

110404 

110410 

110414 

110420 

110422 

110424 

110430 

110432 

110436 

110442 


005002 

104402 

152777 

016700 

042700 

142777 

150077 

012703 

010346 

005001 

005046 

004767 

005702 

001002 

005004 

000405 

020227 

001005 

016704 

010477 

000404 

010504 

010577 

006205 

012777 

012777 

012777 

105777 

100375 

017766 

026604 

001451 

005267 

026767 

003402 

022626 

000445 

104455 

000177 

012706 

026302 

012746 

012746 

012746 

012746 

010600 

104414 

016616 

010446 

046616 

040466 

052616 


000040 105240 

105622 

177770 

000007 105222 
105216 
000001 


107744 


000001 

103526 

105142 


105132 

177400 105102 8S: 
014022 105104 
000071 105056 

105122 9$: 

105264 000004 
000004 

105022 

105016 105016 


011676 

012626 

010246 

000003 


000014 


CL R 

TRAP 

81 SB 

MOV 

BIC 

81 C8 

BISS 

MOV 

MOV 

CLR 

CLR 

JSR 

TST 

BNE 

CLR 

BR 

CMP 

BNE 

MOV 

MOV 

BR 

MOV 

MOV 

ASR 

MOV 

MOV 

MOV 

TSTB 

BPL 

MOV 

CMP 

BEQ 

INC 

CMP 

BLE 

CMP 

BR 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

BIC 

BIC 

BIS 


TEST CODE SECTION 

R 2 
2 

#*0,iML.REG+40 

ML.DUT.RO 

#1 77776. RO 

#7,8ML.REG*40 

R0.BML.REG+40 

#1 ,R3 

R3. '•(SP) 

R1 

-(SP> 

PC.FOR.ECC.ERR 

R2 

5S 

R4 

6$ 

R2.4M 

7$ 

LST.BLIC.R4 

R4.8ML.REG+30 

8$ 

R5.R4 

R5.8ML.REG+30 

R5 

#-400.aML.REG*10 
#I0.8UF .SML.RE6+20 
#71,aML.REG 
aHL.REG+50 


8ML. REG+220. 4 (SP) 
4(SP) # R4 
11$ 

P.CNT 

P.JNT.LIMIT 

<SP)4,(SP)* 

l? 

177 

ASVNC 

DIAPER 

#PHR.4.-(SP> 

#REG.15.-<SP> 

fTWO.FMi.-CSP) 

#3.-<SP> 

SP.RO 

14 

14CSP) ,(SP) 

R4,-(Sh 

2(SP).(SP) 

R4.2(§P> 

(S^)*.(SP) 


SEO 0519 
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SEO 0520 


25258 




;ML4AD 




25259 




# 


TEST CODE SECTION 


25260 








25261 110444 

016646 

000014 



NOV 

14(SP).-(SP) 

; SAVE.* 

25262 110450 

010446 




NOV 

R4,-(Sfr) 

; DSA.PAT.* 

25263 110452 

012746 

006506 



NOV 

#FMT.2.-<SP> 


25264 110456 

012746 

000004 



NOV 

#4.-(SP) 


25265 110462 

010600 




NOV 

SP.RO 

; SP.* 

25266 110464 

104414 




TRAP 

14 


25267 110466 

062706 

000020 



ADD 

#2 O.SP 

# 

25268 110472 

022626 



IIS: 

CNP 

(sp5+,<sp)+ 

0 

25269 110474 

104467 




TRAP 

67 

0 

25270 110476 

006000 




ROR 

RO 


25271 110500 

103635 




BLO 

4$ 


25272 110502 

005202 



12$: 

INC 

R2 

; LOOP 

25273 110504 

020227 

000020 



CNP 

R2,#20 

; LOOP.* 

25274 110510 

003631 




BLE 

4$ 


25275 110512 

152777 

000040 

104724 


8IS8 

#40.8NL.REG+40 

• 

0 

25276 110520 

016705 

105306 



NOV 

NL.DUT.R5 


25277 110524 

042705 

177770 



BIC 

#177770,R5 


25278 110530 

142777 

000007 

104706 


BICB 

#7.BNL.REG+40 


25279 110536 

150577 

104702 



BISS 

R5.8NL.REG+40 


25280 110542 

01270. 

000001 



NOV 

#1 ,R3 

; *,SGL 

25281 110546 

010346 




NOV 

R3.-ISP) 

; SGL,* 

25282 110550 

005001 




CLR 

R1 

; UNC 

25283 110552 

005046 




CLR 

-(SP) 


25284 110554 

004767 

107430 



JSR 

PC.FOR.ECC.ERR 


25285 110560 

012777 

177400 

104626 


NOV 

#-400, BNL. REG* 10 


25286 110566 

012777 

014022 

104630 


NOV 

#JO.BUF,BNL.REG+20 


25287 110574 

016777 

103214 

104632 


NOV 

LST .BLK . 8NL . REG+30 


25288 110602 

012777 

000071 

104574 


NOV 

#71 .8NL.REG 


25289 110610 

105777 

104640 


13S- 

TSTB 

8NL.REG+50 


25290 110614 

100375 




BPL 

13$ 


25291 110616 

C05002 




CLR 

R 2 

; LOOP 

25292 110620 

104402 



14$: 

TRAP 

2 


25293 110622 

005077 

104636 



CLR 

3NL.REG+60 


25294 110626 

010205 




NOV 

R2.R5 

; LOOP,* 

25295 110630 

006305 




ASL 

R5 


25296 110632 

066507 

110636 



ADD 

15$(R5),PC 


25297 110636 

000012 



15$: 

.WORD 

16S-15S 


25298 110640 

000026 




.WORD 

17S-15S 


25299 110642 

000044 




.WORD 

19S-15S 


25300 110644 

000046 




.WORD 

20S-15S 


25301 110646 

000056 




.WORD 

21S-15S 


25302 110650 

012703 

000001 


16$: 

NOV 

#1,R3 

; *.SGL 

25303 110654 

005001 




CLR 

R1 

; UNC 

25304 110656 

016704 

103132 



NOV 

LST.BLK.R4 

; *. DSA.PAT 

25305 110662 

000404 




BR 

18$ 


25306 110664 

005003 



17$: 

CLR 

R3 

; SGL 

25307 110666 

012701 

000001 



NOV 

#1,R1 

; *,UNC 

25308 110672 

005004 




CLR 

R4 

; DSA.PAT 

25309 110674 

005077 

104534 


18$: 

CLR 

8NL. REG+30 

• 

0 

25310 110700 

000430 




BR 

24$ 

m 

0 

25311 110702 

000420 



19$: 

BR 

22$ 

• 

0 

25312 110704 

005003 



20$: 

CLR 

R3 

; SGL 


29-Nar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


1085 

1081 

1085 


1081 


1085 


1086 


1086 

1086 

1086 

1086 


1086 

1087 

1087 

1087 


1087 

1088 
1088 
1088 
1088 
1088 
1088 
1089 
1087 

1089 

1090 
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253H 

25315 

25316 

25317 

25318 

25319 

25320 

25321 

253 22 

25323 

25324 

25325 

25326 

25327 

25328 

25329 

25330 

25331 

25332 

25333 

25334 

25335 

25336 

25337 

25338 

25339 

25340 

25341 

25342 

25343 

25344 

25345 

25346 

25347 

25348 

25349 

25350 

25351 

25352 

25353 

25354 

25355 

25356 

25357 

25358 

25359 

25360 

25361 

25362 

25363 

25364 

25365 

25366 

25367 

25368 


110706 
110712 
110714 
110722 
110726 
110732 
110740 
110744 
110750 
110752 
110754 
110762 
110764 
110766 
110772 
111000 
111006 
111014 
111020 
111022 
111026 
111030 
111036 
111042 
111046 
1^1 054 
111060 
111066 
111072 
111074 
111100 
111106 
111110 
111112 
111114 
111116 
111120 
111122 
111124 
111130 
111134 
111140 
111144 
111150 
111152 
111154 
111160 
111162 
111166 
111172 
111174 
111176 


012701 

000417 

152777 

016705 

042705 

142777 

150577 

012703 

005001 

005004 

016777 

010346 

010146 

004767 

012777 

012777 

012777 

105777 

100375 

020227 

001014 

152777 

016705 

042705 

142777 

150577 

017766 

026604 

001443 

005267 

026767 

003402 

022626 

000437 

104455 

000200 

012750 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

016616 

010446 

012746 

012746 

010600 

104414 

062706 


000001 

000040 

105104 

177770 

000007 

104500 

000001 


107216 

177400 

014022 

000071 

104434 

000004 

000040 

104770 

177770 

000007 

104364 

104540 

000010 

104276 

104272 


104504 


;ML4AD 


104522 21S: 


103034 104452 


104414 

104416 

104370 


104406 


104370 


000010 26$: 


104272 


010630 

011514 

012626 

010256 

000004 


000022 

006442 

000003 


000020 


TEST CODE SECTION 

MOV #1.R1 

BR 23$ 

BISB #40,8ML.REG*40 

MOV ML.DUT.R5 

BIC #1 77770, R5 

BICB #7,a*L.REG+40 

BISS R5,aML.REG+40 

MOV #1 ,R3 

CLR R1 

CLR R4 

MOV LS T , BLK . SML . RE G*30 

NOV R3,-(SP) 

MOV R1,-(SP) 

JSR PC.FOR.ECC.ERR 

MOV #-400,BNL.REG*10 

MOV #10. BUT ,9NL.R£G+20 

MOV #71 .8ML.REG 

TSTB 3ML.REG+50 

BPL 25$ 

CMP R2.#4 

BNE 26$ 

BISB #40.BNL.REG*40 

MOV ML.DUT.RS 

BIC #1 77776, R5 

BICB #7,8ML.REG*40 

BISB R5.8ML.REG+40 

MOV 8NL.REG+220,10(SP) 

CMP 10(SP),R4 

BEP 28$ 

INC P.CNT 

CMP P.CNT. LIMIT 

BLE 27$ 

CMP (SP>+,(SP>* 

BR 29$ 

TRAP 55 

.WORD 200 

.WORD SVNC 

.WORD DUMPER 

MOV #WRD.10.-(SP) 

MOV #WRD.71,-(SP> 

MOV #REG.15,-<SP> 

MOV #THR.FNT,-(SP> 

MOV #4,-<SP) 

MOV SP.RO 

TRAP 14 

MOV 22(SP),(SP) 

MOV R4 ,-(SP) 

MOV #FMT.1 ,-(SP) 

MOV #3,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #20, SP 


1 


SEP 0521 


*,UNC 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS 

PA:< 


1090 

1090 


1091 


*,SGL 

UNC 

DSA.PAT 

SGL,* 

UNC.* 


LOOP,* 


; *,SAVE 
; SAVE .DSA.PAT 



1091 

1091 

1091 

1091 

1091 


1092 

1092 

1092 


1092 

1092 

1092 


1093 

1093 

1093 


1093 


1093 


1094 


1093 





;ML4AD 

$ 


111202 

022626 


28$: 

CMP 

111204 

104467 



TRAP 

111206 

006000 



ROR 

111210 

103603 



BLO 

111212 

005202 


29$: 

INC 

111214 

020227 

000004 


CMP 

111220 

003002 



B6T 

111222 

000167 

177372 


JMP 

111226 

022626 


30$: 

CMP 

111230 

005726 


31$: 

TST 

111232 

000207 



RTS 


CZNLADO ML-11 LOGIC TEST 
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25370 

25371 

25372 

25373 

25374 

25375 

25376 

25377 

25378 

25379 

25380 

25381 

25382 

25383 

25384 

25385 

25386 

25391 

25392 

25396 

25397 

25401 

25402 

25403 

25404 

25405 

25406 

25407 

25408 

25409 

25414 

25415 

25416 
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G 9 
PAGE 539 


111234 

111234 

111240 

111242 

111244 

111246 


TEST CODE SECTION 

<SP>*,(SP>* 

67 

RO 

14S 

R2 

R2,#4 

30* 

14$ 

<SP)*,<SP>* 

(SP> + 

PC 


Routine Size: 343 words 
Maximum stack depth per invocation: 


; LOOP 
; LOOP,* 


19 words 


004767 176516 
104466 
006000 
103773 
000207 


10947 !<8LF/PAGE> 


T57: : 
1 $: 


.SBTTL T57 TEST CODE SECTION 


JSR 

TRAP 

ROR 

BLO 

RTS 


PC,$T57 

66 

RO 

IS 

PC 


Routine Size: 6 words 

Maximus stack depth per invocation: 


0 words 


SEO 0522 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 

1087 

1094 


1086 


1073 


1094 



H 9 
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SCO 0523 


CZMLAOO ML-11 LOGIC TEST 
T 57 TEST CODE SECTION 


25418 

25419 

25420 

25421 

25422 

25423 

25424 

25425 

25426 

25427 

25428 

25429 

25430 

25431 

25432 

25433 

25434 

25435 

25436 

25437 

25438 

25439 

25440 

25441 

25442 

25443 

25444 

25445 

25446 

25447 

25448 

25449 

25450 

25451 

25452 

25453 

25454 

25455 

25456 

25457 

25458 

25459 

25460 

25461 

25462 

25463 

25464 

25465 

25466 

25467 

25468 

25469 

25470 

25471 

25472 


ML4AD 


10948 

10949 

10950 

10951 

10952 

10953 

10954 

10955 

10956 

10957 

10958 

10959 

10960 

10961 

10962 

10963 

10964 

10965 

10966 

10967 

10968 

10969 

10970 

10971 

10972 

10973 

10974 

10975 

10976 

10977 

10978 

10979 

10980 

10981 

10982 

10983 

10984 

10985 

10986 

10987 

10988 

10989 

10990 

10991 

10992 

10993 

10994 

10995 

10996 

10997 

10998 

10999 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


BGNTST; 


+ TE$T NUMBER: 
TEST NAME: 


TST 58 


ECC HARD ERROR BIT TEST 


TEST DESCRIPTION: .. . , 

VIA EtC DM AND ECC DIS TEST THE 

ECH 8IT"F0R SETTING AND NOT SETTING BY: 

1. VIA ECC DM AND A WRITE TRANSFER FORCE 
ECC ERRORS INTO THE RLll'S GOOD BLOCK 

2. WITH ECC DM = 0 AND ECC DIS = 0 

DO A READ TRANSFER AND CHECK ECH SET 

3. WITH ECC. DM = 0 AND ECC DIS = 1 

DO A READ TRANSFER AND CHECK ECH NOT SET 

IMPLICIT INPUTS: 

IO.BUF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


T0PS-20 Biiss-16 V2<2 12) 
PA:<NEALE>ML4AD.BLI .4 (110) 


local 

EXPECTED; 

CLR.MBUS; 

EC ON = ONE; 

PARlCRC.WRD = ZEROES; 
CRC.A = ZEROES; 

CRCZB = ZEROES; 

BA1 = ONE; 

10 BUF = ONES: 
6D.8LK.XFER O; 

HLCS1 = write; 

TIME .OUT. LOOP; 

incr LOOP fro» 0 to 1 do 
begin 
BGNSUB; 

CLR.MBUS; 

GD.BLK.XFER (); 

if .LOOP eql ZERO 
then 


! EXPECTED ECH.ERR VALUE 

.'CLEAR THE DRIVE 
!SET ECC D1AG MODE 

! FORCE UNCORREC TABLE ERRORS INTO THE GOOD BLOCK 


! TEST ECH BIT FOR SETTING / NOT SETTING 

! START OF SCOPE LOOP 

•CLEAR THE DRIVE 

•SET UP A 600D BLOCK TRANSFER 

•SELECT THE TEST DATA 


UHLADO ML-U LOGIC TEST 
T57 TEST CODE SECTION 


AACRO Ml 113 30-AAR-82 11:18 PAGE 


Ul‘ 


SEO 0524 


25474 

25475 

25476 

25477 

25478 

25479 

25480 

25481 

25482 

25483 

25484 

25485 

25486 

25487 

25488 

25489 

25490 

25491 

25492 

25493 

25494 

25495 

25496 

25497 

25498 

25499 

25500 

25501 

25505 

25506 

25510 

25511 

25512 

25513 

25514 

25515 

25516 

25517 

25518 

25519 

25520 

25521 
75522 

25523 

25524 

25525 

25526 

25527 

25528 


AL4AD 


TEST CODE SECTION 


11000 

begin 

11001 

EtC DIS = 0, 

11C02 

EXPECTED = 

11003 

end 

11004 

else 

11005 

begin 

11006 

ECC DIS = 1, 

11007 

EXPECTED * 1 

11008 

end; 

11009 

11010 

MLCS1 = read; 

11011 

TIAE.0UTJ.00P; 

11012 

11013 

if .ECH.ERR neq 

11014 

then 

11015 

11016 

begin 

ERRDF (129. 

11017 

PRINTS (FOR 

11018 

PRINTS (FMT 

11019 

end; 

11020 

11021 

ENDSUB; 

11022 

end; 

11023 

11024 

ENDTST; 


29-Aar-1982 16:23:04 
29-Mar-1982 16:21:03 

IEXP5CT ECH BIT TO SET 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>ML4AD.8LI 4 (110) 


! EXPECT ECH BIT NOT TO SET 

‘READ THE ERROR OUT 

‘IS ECH BIT UHAT WE EXPECTED 
‘ERROR IF NOT 
, WRD.14); 

.‘END OF SCOPE LOOP 


111250 

111254 

111262 

111266 

111272 

111300 

111304 

111312 

111320 

111326 

111334 

111342 

111350 

111354 

111362 

111366 

111370 

111372 

111374 


004167 

152777 

016702 

042702 

142777 

150277 

152777 

042777 

142777 

142777 

152777 

012767 

004767 

012777 

105777 

100375 

005001 

104402 

152777 


073300 

000040 

104544 

177770 

000007 

104140 

000001 

037400 

000077 

000077 

000010 

177777 

106736 

000061 

104066 


000040 


.S8TTL 



ST58: 

JSR 

104162 


BIS8 

MOV 

B1C 

104144 


BICB 

BISS 

104212 


BIS8 

104234 


BIC 

104226 


BIC8 

104230 


BICB 

104102 


B1SB 

102452 


MOV 

JSR 

104022 


MOV 


1$: 

TSTB 

BPL 

CLR 


2$: 

TRAP 

104042 


BIS8 


8T58 TEST CODE SECTION 
R1.SSAVE3 
#46,aAL.REG+40 
AL.DUTj.R2 
fl 77770. R2 
#7,aML.RE6+40 
R2,aflL.REG*40 
f1.aAL.REG*l20 
#3H0O.aML.REG+150 
#77.aAL.REG+150 
#77,aML.REG+160 
flO.BML.REGHO 
#-1 .I0.8UF 
PC.G0.BLK.XFER 
f6l.aML.REG 
iML.REG+50 
1 $ 

R1 

#40.aML.REG*40 


COOP 


1C94 

1097 


1096 

1096 

1096 

10% 

1098 

1098 

1098 

1096 


1099 

1099 

1099 



CZMlADO Ml-11 LOGIC TEST 

MACRO Ml 113 

30-MAR-82 

J 9 

11:18 PAGE 542 





j ST58 TEST CODE 

SECTION 








SEO 0525 

25530 




; Ml 4 AD 




29-Mar-1982 16:23:04 

TOPS 

25531 

25532 

25533 111402 

016700 

104424 


• 

MOV 

TEST CODE SECTION 

ML.DUT.RO 
#1 77776, RO 



29-Mar-1982 16:21:03 

PA:< 

25534 111406 

042700 

177770 



BIC 





25535 111412 

142777 

C00007 

104024 


BICB 

#7.1ML.REG*40 





25536 111420 

150077 

104020 



B1S8 

R0.aML.REG+40 




1099 

25537 111424 

004767 

106662 



JSR 

PC.GD.BU.XFER 

* 



25538 111430 

005701 




TST 

R1 


LOOP 


1099 

25539 111432 

001006 




BNE 

3S 




1100 

25540 111434 

142777 

000002 

104062 


BICB 

#2,BML.REG*120 

9 



25541 111442 

012702 

000001 



MOV 

#1,R2 

9 

*, EXPECTED 


1100 

25542 111446 

000404 




BR 

4$ 

9 



1099 

25543 111450 

152777 

000002 

104046 

3$: 

BISS 

#2,BML.REG*120 

9 



1100 

25544 111456 

005002 




CLR 

R2 


EXPECTED 


1100 

25545 111460 

012777 

000071 

103716 

4$: 

MOV 

#71 .iML.REG 

* 

9 



1101 

25546 111466 

105777 

103762 


5$: 

TST8 

8ML.REG+50 





25547 111472 

100375 




BPL 

5S 





25548 111474 

010203 




MOV 

R2.R3 

• 

9 

EXPECTED,* 


1101 

25549 111476 

005000 




CLR 

RO 





25550 111500 

132777 

000100 

103756 


BITS 

#100,iML.REG+60 





25551 111506 

001401 




BEO 

6$ 





25552 111510 

005200 




INC 

RO 





25553 111512 

020003 



6$: 

CMP 

R0.R3 





25554 111514 

001441 




BEO 

8$ 




1101 

25555 111516 

104455 




TRAP 

55 

• 

9 



25556 111520 

000201 




.WORD 

201 





25557 111522 

012750 




.WORD 

SYNC 





25558 111524 

026302 




.WORD 

DUMPER 




1101 

25559 111526 

012746 

010664 



MOV 

#WRD.14,-($P> 

t 



25560 111532 

012746 

011474 



MOV 

#WRD.69,-(SP) 





25561 111536 

012746 

010630 



MOV 

#WRD.10,-<SP> 





25562 111542 

012746 

011462 



MOV 

#WRD.67,-(SP> 

#FOR.FMT,-<SP> 





25563 111546 

012746 

010270 



MOV 





25564 111552 

012746 

000005 



MOV 

#5.-(SP) 





25565 111556 

010600 




MOV 

SP.RO 

9 

SP,* 



25566 111560 

104414 




TRAP 

14 




1101 

25567 111562 

005016 




CLR 

(SP) 




25568 111564 

132777 

000100 

103672 


BITS 

#100,8ML.REG*60 





25569 111572 

001401 




BEO 

7S 





25570 111574 

005216 




INC 

CSP) 





25571 111576 

010246 

012746 



?%: 

MOV 

R2.-(SP> 

9 

EXPECTED.* 



25572 111600 

006442 



MOV 

#FMT,1 ,~<$P) 





25573 111604 

012746 

000003 



MOV 

#3.-(SP) 





25574 111610 

010600 




MOV 

SP.RO 

• 

9 

SP.* 



25575 111612 

104414 




TRAP 

14 




1101 

25576 111614 

062706 

000022 



ADD 

#22, SP 

9 



25577 111620 

104467 



8$: 

TRAP 

67 

9 



1101 

25578 111622 

006000 




ROR 

RO 





25579 111624 

103662 




BLO 

2S 




1099 

25580 111626 

005201 




INC 

R1 

• 

LOOP 


25581 111630 

020127 

000001 



CMP 

R1,#1 


LOOP.* 



25582 111634 

25583 111636 

003656 




BLE 

2$ 




1094 

000207 




RTS 

PC 

* 



25584 

L 















SEO 0526 


13 words 


0 words 


29-Mar-1982 16:23:04 TOP 

29-War- 1982 16:21:03 PA: 


1102 



C' V 



SEQ 0527 


CZMLADO ML— 1 1 LOGIC TEST 
T58 TEST CODE SECTION 
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25622 

25623 

25624 

25625 

25626 

25627 

25628 

25629 

25630 

25631 

25632 

25633 

25634 

25635 

25636 

25637 

25638 

25639 

25640 

25641 

25642 

25643 

25644 

25645 

25646 

25647 

25648 

25649 

25650 

25651 

25652 

25653 

25654 

25655 

25656 

25657 

25658 

25659 

25660 

25661 

25662 

25663 

25664 

25665 

25666 

25667 

25668 

25669 

25670 

25671 

25672 

25673 

25674 

25675 

25676 


; ML 4 AD 


11026 

11027 

11028 

11029 

11030 

11031 

11032 
’ 1033 

11034 

11035 

11036 

11037 

11038 

11039 

11040 

11041 

11042 

11043 

11044 

11045 

11046 

11047 

11048 

11049 

11050 

11051 

11052 

11053 

11054 

11055 

11056 

11057 

11058 

11059 

11060 
1 1 061 
11062 

11063 

11064 

11065 

11066 

11067 

11068 

11069 

11070 

11071 

11072 

11073 

11074 

11075 

11076 

11077 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 59 
TEST NAME: 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


T0PS-20 Bllss-16 V2C212) 

PA: <NEALE>ML4AD.8LI .4 (111) 


DATA CHECK ERROR BIT TEST 


TEST DESCRIPTION: 

VIA ECC EN. ECC DM AND ECC DM TEST THE 
DCK BIT FOR SETTING AND NOT SETTING BY: 

1. VIA ECC DM AND A WRITE TRANSFER FORCE 
ECC ERRORS INTO THE MLII'S GOOD BLOCK 

2. WITH DCK EN = 1. ECC DM = 0, ECC.DIS = 0 

DO A READ TRANSFER AflD CHECK THE DCK BIT SET 

3. WITH DCK EN = 0. ECC DM = 0, ECC.DIS = 0 

DO A READ TRANSFER ARD CHECK THE DCK BIT NOT SET 

4. WITH ECK. EN = 1. ECC DM = 0, ECC.DIS = 1 

DO A READ TRANSFER ARD CHECK THE DCK BIT SET 


IMPLICIT INPUTS: 

I0.8UF 

A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 


local 

SGL. 

UNC. 

EXPECTED; 

ft ft MOI |C ' 

FORlECC ERR (SGL = 1, UNC 
8AI = ORE; 

IO.BUF = ZEROES; 

CD BLK.XFER <>; 

MLtSI = write; 
TiME.OUT.LOOP; 

incr LOOP from 0 to 2 do 
begin 


CLR MBUS; 
GD.BLK.XFER (>; 


.'SINGLE SIT ERROR PARRAMETER 
•UNCORREC TABLE ERROR PARRAMETER 
•EXPECTED DATA CHECK BIT VALUE 

! CLEAR THE DRIVE 
.'FORCE A SBE 


.'SET UP A GOOD BLOCK TRANSFER 
•WRITE THE DRIVE WITH THE ERROR 


! TEST DCK BIT FOR 3 CONDITIONS 

.'START OF SCOPE LOOP 

•CLEAR THE DRIVE 

.'SET UP A GOOD BLOCK TRANSFER 


IcZMLADO ML-11 LOGIC TEST MACRO Ml 113 30-MAR-82 1 1 : 1 8 PAGE 

M 9 

545 

T58 TEST 

CODE SECTION 


SEO 0528 

25678 

; ML4 AD 


29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2(212) 

25679 


TEST CODE SECTION 

29-Mar-1982 16:21:03 PA : <NE AL E >ML4AD . 8L 1 . 4 (111) 

25680 

25681 

25682 

11078 

11079 

case .LOOP from 0 to 2 of 

•SELECT THE TEST DATA 

25683 

11080 

set 


2 5684 

25685 

11081 

11082 

COJ : 

! EXPECT THE DCK BIT TO SET ' 

25686 

11083 

begin 

DCK.E* = 1: 

ECCDIS = 0: 

EXPECTED = 1; 


25687 

11084 


25688 

11085 


25689 

11086 


25690 

11087 

end; 


25691 

25692 

11088 

11089 

C1J : 

•EXPECT THE DCK BIT NOT TO SET 

25693 

11090 

begin 


25694 

11091 

DCX.EN = 0; 

ECC DIS = 0; 

EXPECTED = 0; 


25695 

11092 


25696 

11093 


25697 

11094 

end; 


25698 

25699 

11095 

11096 

C2J : 

•EXPECT THE DCK BIT TO SET j 

25700 

11097 

begin 

1 

25701 

11098 

DCX.EN = 1; 


25 702 

11099 

ECC DIS = 1; 


25703 

11100 

EXPECTED = 1; 


25704 

11101 

end; 


25705 

11102 

tes; 


25706 

25707 

11103 

11104 

MLCS1 = read; 

j 

•READ THE ERROR AND CLOCK THE DCK BIT 

25708 

11105 

TIME_OUT_LOOP; 


25709 

25710 

11106 

11107 

if .OCX neq .EXPECTED 

US THE DCK BIT WHAT WE EXPECTED 

25711 

11108 

then 


25712 

11109 

begin 

! REPORT THE ERRRO IF NOT THE SAME 

25713 

25714 

11110 

11111 

if .LOOP neq ONE then ERRDF (130, 

STNC, DUMPER) else ERRDF (130. ASYNC, DUMPER); 

25715 

25716 

11112 

11113 

‘CHOOSE WHICH THE ERROR IS ON 

25717 

11114 

PRINTS (THR_FMT. WRD_72. PHR_5, WRD 10); 

25718 

11115 

PRINTS (FMT 1. .EXPECTED, .DCK); 


25719 

11116 

end; 


25720 

25721 

11117 

11118 

ENDSUB; 

‘END OF THE SCOPE LOOP 

25722 

11119 

end; 


25723 

25724 

25728 

25729 

11120 

11121 

ENDTST; 



.SSTTL ST59 TEST 

CODE SECTION 


CZMLADO ML *11 LOGIC TEST 
$T59 TEST CODE SECTION 


MACRO Ml 113 30-MAR-82 11:18 PAGE 546 


SEO 0529 


25734 

25735 

25736 

25737 

25738 

25739 

25740 

25741 

25742 

25743 

25744 

25745 

25746 

25747 

25748 

25749 

25750 

25751 

25752 

25753 

25754 

25755 

25756 

25757 

25758 

25759 

25760 

25761 

25762 

25763 

25764 

25765 

25766 

25767 

25768 

25769 

25770 

25771 

25772 

25773 

25774 

25775 

25776 

25777 

25778 

25779 

25780 

25781 

25782 

25783 

25784 

25785 

25786 

25787 

25788 


111654 

111660 

111666 

111672 

111676 

111704 

111710 

111714 

111716 

111720 

111722 

111726 

111734 

111740 

111744 

111752 

111756 

111760 

111762 

111764 

111772 

111776 

112002 

112010 

112014 

112020 

112022 

112024 

112030 

112032 

112034 

112036 

112044 

112052 

112054 

112062 

112070 

112072 

112074 

112102 

112110 

112114 

112122 

112126 

112130 

112132 

112134 

112140 

112142 

V2144 

112146 

112150 


004167 

152777 

016702 

042702 

142777 

150277 

012701 

010146 

005001 

005046 

004767 

152777 

005067 

004767 

012777 

105777 

100375 

005001 

104402 

152777 

016700 

042700 

142777 

150077 

004767 

010100 

006300 

066007 

000006 

000024 

000044 

152777 

142777 

000416 

142777 

142777 

005002 

000410 

152777 

152777 

012702 

012777 

105777 

100375 

010203 

005000 

005777 

100001 

005200 

020003 

001446 

020127 


072674 

000040 

104140 

177770 

000007 

103534 

000001 


106262 

000010 

102062 

106346 

000061 

103476 


000040 

104034 

177770 

000007 

103430 

106272 


112030 


000004 

000002 

000004 

000002 


000004 

000002 

000001 

000071 

103326 


103324 


000001 



;ML4AD 





9 


TEST CODE SECTION 



ST59: 

JSR 

R1.SSAVE3 

9 

103556 


BISB 

#40.aML.REG+40 

9 



MOV 

ML.DUT.R2 




BIC 

#1 77776, R2 


103540 


BICB 

A7,3ML.REG+40 




BISB 

R2,iML.REGH0 




MOV 

#1,Hl 

; *,SGL 



MOV 

Rl, -<SP> 

,* SGL,* 



CLR 

R1 

; UNC 



CLR 

-<SP> 




JSR 

PC.FOR.ECC.ERR 


103510 


BISB 

0l6,3ML.REG+4O 




CLR 

10. BUT 




JSR 

PC.GD.BLK.XFER 


103432 


MOV 

#6i ,3ML.REG 



1$: 

TSTB 

9ML.REG+50 




BPL 

1$ 




CLR 

Rl 

; LOOP 


2$: 

TRAP 

2 

• 

9 

103452 


BISB 

#40.8ML.REG+40 

m 

9 



MOV 

ML.DUT.RO 




BIC 

#1 77776, RO 


103434 


BICB 

#7,iML.REG*40 




BISB 

R0,lML.REG+40 




JSR 

PC,GD.BLK.XFER 

• 

• 



MOV 

R1,R0 

; LOOP,* 



ASL 

RO 




ADD 

3S(R0),PC 



3$: 

.WORD 

4$-3$ 




.WORD 

5$-3$ 




.WORD 

6S-3$ 


103460 

4$: 

BISB 

#4,aML.REG*120 

• 

m 

103452 


BICB 

#2,aML.REG*120 

• 

# 



BR 

7$ 

0 

103442 

5$: 

BICB 

#4,aML.REG*120 

• 

» 

103434 


81 CB 

#2,aMl.REG*l20 

• 



CLR 

R2 

• EXPECTED 



BR 

8$ 

• 

• 

103422 

6$: 

BISS 

#4,affL.REG+120 

• 

• 

103414 


BISS 

#2,a*l.REG+120 

• 


7$: 

MOV 

#1.R2 

; *, EXPECTED 

103262 

8$: 

MOV 

#71 /ML. REG 

• 

9 


9$: 

TSTB 

am.REG+so 




BPL 

9$ 




MOV 

R2,R3 

; EXPECTED,* 



CLR 

RO 




TST 

3ML.REG+60 




BPL 

10$ 




INC 

RO , 



10$: 

CMP 

R0.R3 




BEO 

ui 




CMP 

R1,#1 

; LOOP,* 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


1108 

1108 

1108 

1109 

1109 

1109 

1107 

1109 

1109 

1110 
1110 


ZMLADO ML-11 LOGIC TEST 
* f 59 TEST CODE SECTION 


25790 

25791 

25792 

25793 

25794 

25795 

25796 

25797 

25798 

25799 

25800 

25801 

25802 

25803 

25804 
25305 

25806 

25807 

25808 

25809 

25810 

25811 
"5812 

25813 

25814 

25815 

25816 

25817 

25818 

25819 

25820 

25821 

25822 

25823 

25824 

25825 

25826 

25827 

25828 

25829 

25830 

25835 

25836 

25840 

25841 


112154 

112156 

112160 

112162 

112164 

112166 

112170 

112172 

112174 

112176 

112200 

112204 

112210 

112214 

112220 

112224 

112226 

112230 

112232 

112236 

112240 

112242 

112244 

112250 

112254 

112256 

112260 

112264 

112266 

112270 

112272 

112274 

112300 

112302 

112304 


001405 

104455 

000202 

012750 

026302 

000404 

104455 

000202 

012706 

026302 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

005016 

005777 

100001 

005216 

010246 

012746 

012746 

010600 

104414 

062706 

104467 

006000 

103654 

005201 

020127 

003630 

022626 

000207 


010630 

011714 

011524 

010256 

000004 


103226 


006442 

000003 


000020 


000002 


113 

30-MAR-82 

B 10 

11:18 PAGc 547 

; ML 4 AD 


9 


TEST CODE SECTION 


BEO 

11$ 


TRAP 

55 


.WORD 

202 


.WORD 

SYNC 


.WORD 

DUMPER 


BR 

12$ 

11$: 

TRAP 

55 


.WORD 

202 


.WORD 

ASYNC 


.WORD 

DUMPER 

12$: 

MOV 

#WRD.10,“(SP) 

MOV 

#PHR.5,-(SP) 


MOV 

*WRD.72,-(SP) 


MOV 

#THR.FMT,-(SP) 


MOV 

#4,-(SP) 


MOV 

SP,R0 


TRAP 

14 


CLR 

(SP) 


TST 

BML.REG+60 


BPL 

13$ 


INC 

(SP) 

13$: 

MOV 

R2.-(SP) 


MOV 

#FMT. 1 ,-(SP) 


MOV 

*3,-(SP) 


MOV 

SP,R0 


TRAP 

14 


ADD 

*20. SP 

14$: 

TRAP 

67 


ROR 

RO 


BLO 

2$ 


INC 

Rl 


CMP 

R1,#2 


BLE 

2$ 


CMP 

(SP)*,(SP)* 


RTS 

PC 


SEQ 0530 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


; SP.* 


; EXPECTED,* 


; SP,* 


; LOOP 
; LOOP,* 


; Routine Size: 141 words 
; Maximum stack depth per invocation: 


.SBTTL T59 TEST CODE SECTION 


14 words 


J 


CZMLADO ML-11 LOGIC TEST 
T59 TEST CODE SECTION 


C 10 
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5EO 0531 


25846 

25847 

25848 

25849 

25850 

25851 

25852 

25853 

25854 

25855 

25856 

25857 

25862 

25863 

25864 


112306 

112306 004767 
112312 104466 
112314 006000 
112316 103773 
112320 000207 


177342 


11122 !<BLF/PAGE> 


;ML4AD 

# 


TEST CODE SECTION 

T59: : 

1$: 

JSR 

PC,$T59 


TRAP 

66 


ROR 

RO 


BLO 

1$ 


RTS 

PC 


; Routine Size: 6 words 

; Maximum stack depth per Invocation: 0 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 

1111 


CZHLADO HL-11 LOGIC TEST 
T59 TEST CODE SECTION 
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25866 

25867 

25868 

25869 

25870 

25871 

25872 

25873 

25874 

25875 

25876 

25877 

25878 

25879 

25880 

25881 

25882 

25883 

25884 

25885 

25886 

25887 

25888 

25889 

25890 

25891 

25892 

25893 

25894 

25895 

25896 

25897 

25898 

25899 

25900 

25901 

25902 

25903 

25904 

25905 

25906 

25907 

25908 

25909 

25910 

25911 
2591? 

25913 

25914 

25915 

25916 

25917 

25918 

25919 

25920 


;HL4AD 


11123 

11124 

11125 

11126 

11127 

11128 

11129 

11130 

11131 

11132 

11133 

11134 

11135 

11136 

11137 

11138 

11139 

11140 

11141 

11142 

11143 

11144 

11145 

11146 

11147 

11148 

11149 

11150 

11151 

11152 

11153 

11154 

11155 

11156 

11157 

11158 

11159 

11160 
11161 
11162 

11163 

11164 

11165 

11166 
1116? 
11168 

11169 

11170 

11171 

11172 

11173 

11174 


TEST CODE SECTION 


BGNTST; 


TEST NUMBER: TST 60 

TEST NAME: PROM DATA TEST 

TEST DESCRIPTION: 

VERIFY THAT CHECK SUM VALUES FOR 
ALL PRESENT MEMORY ARRAY UV PROM 
LOCATIONS ARE ERROR FREE BY: 

1. DOING MBUS TRANSFERS 
AT ALL PRESENT BLOCKS 
AND TESTING THE UNS BIT 
TO BE CLEARED. 

IMPLICIT INPUTS: 

I0.8UF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READ AND WRITE 
FUNCTIONS IS FOUND. 


CHIP SI Z 

INDICATED THE SIZE OF THE 
ARRAY MODULES MOS RAMS. 


CLR.THRESHOLD; 


'VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 

» 

incrU DSA.CNT from 0 to .LST.BLK do 
begin 
BGNSUB; 

CLR.MBUS; 

ECC’DIS = ONE; 

MLWC = not 255; 

MLBA = 10 BUF; 

MLDA = .OJA CNT; 

MLCS1 = write; 

TIME.OUT.LOOP; 

if .UNS IS.SET 


SEQ 0532 


29-Mar-1982 16:23:04 T0PS-20 Bliss-16 V2(212) 

29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI.4 (112) 


| 

! CLEAR ERROR PRINT THRESHOLD 


•WRITE TO ALL PRESENT BLK'S AND CHECK UNS BIT 


•DISABLE ECC 
•LOAD WORD COUNT 
•LOAD UBUS ADRS 
•LOAD DSA 

•DO A WRITE FUNCTION 


! SEE IF XFERR CAUSED AN UNS ERROR 


CZMLADO ML-11 LOCK TEST 
T59 TEST CODE SECTION 


SEU 0533 
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2592? 

25923 

25924 

25925 

25926 

25927 

25928 

25929 

25930 

25931 

25932 

25933 

25934 

25935 

25936 

25937 

25938 

25939 

25940 

25941 

25942 

25943 

25944 

25945 

25946 

25947 

25951 

25952 

25956 

25957 

25958 

25959 

25960 

25961 

25962 

25963 

25964 

25965 

25966 

25967 

25968 

25969 

25970 

25971 

25972 

25973 

25974 

25975 

25976 


;ML4A0 


TEST CODE SECTION 


29-Mar- 1 982 16:23:04 
29-Mar-1982 16:21:03 


TOPS-20 BUss-16 V2C212) 

PA ; <NE ALE >ML4AD BLJ.4 (112) 


11175 the 

11176 

11177 

11178 

11179 

11180 
11181 
11182 

11183 

11184 

11185 

11186 

11187 

11188 

11189 

11190 

11191 
11^92 

11193 

11194 END 

11195 end 

11196 

11197 ENDTST; 


begin 

CMp THRESHOLD 


ERR0F (107, aAr.DAT, DUMPER); 
PRINTS (TWO.FMT, WRD 35 f PHR.4); 
PRINTB (FMT.9, .DSA.CNT); 


If .CHIP.SIZ eql 64 INEED TO KNOW CHIP $ 

then 

PR?NTB (FMT.8, ((.D$A_CNT<11 , 4» ♦ 1»; !64K MOS RAM 

end 

else 

PR?NTB (FMT.8, < (.DSA_CNT<9, 4» ♦ 1)); !16K MOS RAM 

end 


'ERROR IF SET 

!' COMPARE ERROR PRINT THRESHOLD 


INEED TO KNOW CHIP SIZE TO PRINT ARRAY NUMBER 


END SUB; 
end; 


1 "12322 
112326 
112332 
112336 
112340 
112342 
112344 
112352 
112356 
112362 
112370 
112374 
112402 
112410 
112416 
112422 
112430 
112434 
112436 
112444 
112446 


004167 

005067 

016702 

005001 

000544 

1C4402 

152777 

016700 

042700 

142777 

150077 

152777 

012777 

012777 

010177 

012777 

105777 

100375 

032777 

001476 

005267 


072212 

103044 

101456 


000040 103072 

103454 

177770 

000007 103054 
103050 

000002 103122 
177400 103004 
014022 103006 
103012 

000061 102754 

103020 

040000 103020 
102724 


.S8TTL 8T60 TEST CODE SECTION 
ST60: JSR R1,«SAVE2 

CLR P.CNT 

MOV LST.BLK,R2 

CLR R1 

BR 78 

1$: TRAP 2 

BISS #40,BML.REG+40 

MOV ML.DUT,R0 

BIC #177770,R0 

BICB #7,aML.REG*40 

BISB R0,BML.REG+40 

BIS8 #2,BMt.REG*120 

MOV #-400,iML.REG*10 

MOV #IO.0UF,aML.REG*2O 

x MOV R1.BML.REG+30 

MOV #6* ,SML.REG 

2$: TSTB 8NL.REG+50 

BPL 2S 

BIT # 40000, BML.REG+60 

BEQ 58 

INC P.CNT 


; DSA.CNT 


DSA.CNT,* 


iCZNLADO NL-11 LOGIC TEST 
IT60 TEST CODE SECTION 


MACRO HI 113 30-NAR-82 11:18 


F TO 
PAGE 551 


25978 

25979 

25980 

25981 

25982 

25983 

25984 

25985 

25986 

25987 

25988 

25989 

25990 

25991 

25992 

25993 

25994 

25995 

25996 

25997 

25998 

25999 

26000 
26001 
26002 

26003 

26004 

26005 

26006 

26007 

26008 

26009 

26010 
26011 
26012 

26013 

26014 

26015 

26016 

26017 

26018 
26019 

26021 


26023 

26024 

26025 



12520 
12524 
12530 
12532 
12534 
12542 
12544 
12546 
12550 
12552 
12554 
12556 
12562 
12564 
12566 
12572 
12576 
12600 
12602 
12604 
12606 
12610 
126 12 
12616 
12620 
12622 
12626 
12632 
12634 
12636 
12642 
12644 


;ML4AD 


26031 

26032 


026767 

003073 

104455 

000153 

013012 

026302 

012746 

012746 

012746 

012746 

010600 

104414 

010116 

012746 

012746 

010600 

104414 

026727 

001020 

010100 

006200 

006200 

006200 

000300 

042700 

010046 

005216 

012746 

012746 

010600 

104414 

000415 

010100 

006200 

000300 

042700 

010046 

005216 

012746 

012746 

010600 

104414 

062706 

104467 

m 

005201 

m 

000207 


102720 102720 


011676 

011110 

010246 

000003 


0C7064 

000002 


101252 000100 


177760 


007030 

000002 


177760 


007030 

000002 


000022 


CMP 

BGT 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

TRAP 

CNP 

BNE 

NOV 

ASR 

ASR 

A SR 

SWAB 

B1C 

NOV 

INC 

NOV 

NOV 

NOV 

TRAP 

BR 

NOV 

ASR 

SWAB 

BIC 

NOV 

INC 

NOV 

NOV 

NOV 

TRAP 

ADD 

TRAP 

ROR 

BLO 

INC 

CNP 

BLOS 

RTS 


TEST CODE SECTION 
P.CNT, LIMIT 


153 

ARR.DAT 

DUMPER 

fPHR. 4.-CSP) 

#WRD.35.-(SP> 

fTWO.FNT.-(SP) 

#3.-(SP) 

SP.RO 

14 

RI.(SP) 

#FNT.9,-(SP) 

#2.-<$P> 

SP.RO 

14 

CHIP. SIZ. #100 
3$ 

R1.R0 

RO 

RO 

RO 

RO 

#1 77760.R0 
RO.-(SP) 

(S£) 

#FNT.8,-(SPJ 

#2,-<SP) 

SP.RO 

14 
4$ 

R1.R0 

RO 

RO 

#1 77760.R0 
RO.-(SP) 

(S£> 

#FNT.8.-(SP> 

RO 

1 $ 

R1 

R1.R2 

15 
PC 


; Routine Size: 111 words 


SEO 0534 


29-Hsr-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


; SP,* 

; DSA.CNT,* 

; SP.* 

; DSA.CNT,* 


; SP,* 

; DSA.CNT,* 

; SP.* 

» 

0 

• 

; DSA.CNT 
; DSA.CNT.* 

• 


1117 


1117 

1118 

1118 

1118 


1118 


1118 


1117 

1119 

1116 

1112 




SEQ 0535 


29-«*r-1982 16:23:04 TOPS 
29-«*r-19S2 16:21 : 0^ PA:< 

12 words 


1119 


i 

0 words | 


CZMLADO ML-11 106IC TEST 
T60 TEST CODE SECTION 
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SEO 0536 


26069 

26070 

26071 

26072 

26073 

26074 

26075 

26076 

26077 

26078 

26079 

26080 
26081 
26082 

26083 

26084 
26GS5 
26086 

26087 

26088 

26089 

26090 

26091 

26092 

26093 

26094 

26095 

26096 

26097 

26098 

26099 

26100 
26101 
26102 

26103 

26104 

26105 

26106 

26107 

26108 

26109 

26110 
26111 
26112 

26113 

26114 

26115 

26116 

26117 

26118 

26119 

26120 
>6121 



ML4AD 


11199 

11200 
11201 
11202 

11203 

11204 

11205 

11206 

11207 

11208 

11209 

11210 
11211 
11212 

11213 

11214 

11215 

11216 

11217 

11218 

11219 

11220 
11221 
11222 

11223 

11224 

11225 

11226 

11227 

11228 

11229 

11230 

11231 

11232 

11233 

11234 

11235 

11236 

11237 

11238 

11239 

11240 

11241 

11242 

11243 

11244 

11245 

11246 

11247 

11248 

11249 

11250 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2<212> 

TEST CODE SECTION 29-Mar-1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (113) 


BGNTST; ! BEGIN THE TEST 


TEST NUMBER: TST 61 

TEST NAME ' BATTERY BACK-UP TEST 

TEST DESCRIPTION: 

THIS TEST IS DESIGNED SPECIE ICALLY FOR THE 

MARLBORO MFG'ING VERIFY STATION. ITS PURPOSE 

IS TO TEST THE ML-11 SYSTEM FOR BATTERY BACK-UP DURING 

POWER LOSS AND NO ECC INITIALIZE DURING POWER 

UP WITH GOOD BATTERY BACK-UP. 


local 

DSA CNT, 
SIZE, 

DST, 

SRC, 

INI TJ ERR, 
BB.E&R; 


.'COUNTS THE NUMBER OF BLOCKS TRANSFERED 
•STORES THE SIZE OF NASS BUS TRANSFERS 
! STORES THE DESTINATION ADRS OF MASS BUS TRANSFERS 
! STORES THE SOURCE ADRS OF MASS BUS TRANSFERS 
•COUNTS THE # OF WORDS FOUND TO HAVE ZEROES DATA 
! COUNTS THE I OF WORDS FOUND TO HAVE NONE ONES DATA BUT NOT 0 


PERFORM THIS TEST ONLY IF THE OPERATOR HAS 
ENABLED MANUAL INTERVENTION TEST VIA THE S/W 
QUESTIONS. 


if .INTERVEN »D0 THIS TEST IF INTERVEN IS SET 

than 

begin 

! PRINT WHICH TEST NUMBER THIS 


PRINTS (ONE.FMT, T.61); 

i TO START THE TEST OFF WRITE THE ENTIRE ML-11 MEMORY 
• WITH ALL ONES DATA. THIS WILL BE THE BACK GROUND FOR 
.• THE ECC INITIALIZE PORTION OF THIS TEST. THIS ALL ONES 
! DATA PATTERN SHOULD STILL BE IN MEMORY AFTER THE POWER 
j IS TURNED BACK ON WITH GOOD BATTERY BACK-UP. 

CLR MBUS; 'CLEAR THE MASS BUS 

IO.BUF = ONES; 'LOAD THE FIRST 10 BUF WORD WITH ONES DATA 


S DATA 



CZMLADO ML-11 LOGIC TEST 
T60 TEST COOE SECTION 


MACRO M1113 30-MAR-82 11:18 PAGE 


SEO 0537 


6125 ;Ml4AD 


p|25 ; 


26140 

26141 

26142 

26143 

26144 

26145 

26146 

26147 

26148 

26149 

26150 

26151 

26152 

26153 

26154 

26155 

26156 

26157 

26158 

26159 

26160 
26161 
26162 

26163 

26164 

26165 

26166 

26167 

26168 

26169 

26170 

26171 

m 

26174 

26175 

26176 

26177 

26178 

26179 


11251 
1125 2 

11253 

11254 

11255 

11256 

11257 

11258 

11259 

11260 
11261 
11262 

11263 

11264 

11265 

11266 

11267 

11268 

11269 

11270 

11271 

11272 

11273 

11274 

11275 

11276 

11277 

11278 

11279 

11280 
11281 
11282 
1128 t 

11284 

11285 

11286 

11287 

11288 

11289 

11290 

11291 

11292 

11293 

11294 

11295 

11296 

11297 

11298 

11299 

11300 

11301 

11302 


TEST COOE SECTION 
OSA.CNT = -1; 


29-M»r-1982 16:23:04 
29-M»r-1982 16:21:03 

.'RESET THE OSA COUNTER 


T0PS-20 BU«-16 V2<2 12) 

PA : <NE ALE >ML4AD .8L I . 4 (113) 


do .'LOAD ALL OF MEMORY WITH ONE'S DATA 

9R?AK; .'LOOK FOR CONTROL C 

DSA CNT = .DSA CNT ♦ 1: .'UP THE DSA COUNTER 

WRT~TRANSFER (SIZE = -256, DST = .DSA.CNT, SRC * I0.8UF); .'DO THE WRITE XFER 

end" 


I VERSION CZNLAD CHANGED TEST TO UNSIGNED TEST 
until .DSA.CNT eqlU .LST,BLK; 


SET THE VOLUMN VALID BIT ’VV’ 

AND TELL THE OPERATOR TO TURN THE BOX 
POWER OFF WITH GOOD BATTERY BACK-UP. 

THE BACK GROUND PATTERN OF ALL ONES SHOULD 
BE MAINTAINED BY 8ATTERY 8ACK-UP AND ECC INIT 
ON POWER UP SHOULD NOT CLEAR THE PATTERN OUT. 


CLR.MBUS; 

MLCSl = RD IN PRE; 

PRINTS (ONE.FMT, PWR.OFF); 

do 

begin 

BREAK; 

end 

until not (.MOL); 

DELAY (TWO.TH.US); 


NOW TELL THE OPERATOR TO POWER UP THE BOX 
WITH GOOD BATTERY BACK-UP. THEN TEST THE 
VV BIT TO BE STILL SET AND THE BACK GROUND 
PATTERN OF ALL ONES TO STILL BE IN MEMORY. 


PRJNTB (ONE.FMT, PUP.0B); 
do 

begin 

BREAK; 

end 

until .DRY; 

DELAY (10); 


! REPEAT WRITING UNTIL THE LAST BLOCK IS DONE 


! CLEAR THE MASS BUS 

•SET THE VV BIT vie A RD IN PRE FUNC 

•TELL OPERATOR TO SHUT POWER OFF 

! DO NOTHING 

•LOOK FOR CONTROL C 

! UNTIL THE DRIVE POWER IS OFF 

•DELAY FOR BATTERY BACK-UP MAINTAIN MEMORY 


•TELL OPERATOR TO TURN BGX POWER BACK ON 

•DO NOTHING 

•LOOK FOR CONTROL C 

! UNTIL THE DRIVE IS READY 

•WAIT FOR THE DRIVE TO SET1LE 


I CZMLADO ML-11 LOGIC TEST 
IT60 TEST CODE SECTION 


J 10 
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SEG 0538 


26181 

26182 

26183 

26184 

26185 

26186 

26187 

26188 

26189 

26190 

26191 

26192 

26193 

26194 

26195 

26196 

26197 

26198 

26199 

26200 
26201 
26202 

26203 

26204 

26205 

26206 

26207 

26208 

26209 

26210 
26211 
26212 

26213 

26214 

26215 

26216 

26217 

26218 

26219 

26220 
26221 
26222 

26223 

26224 

26225 

26226 

26227 

26228 

26229 

26230 

26231 

26232 

26233 

26234 

26235 


ML 4 AD 


11303 

11304 

11305 

11306 

11307 

11308 

11309 

11310 

11311 

11312 

11313 

11314 

11315 

11316 

11317 

11318 

11319 

11320 

11321 

11322 

11323 

11324 

11325 

11326 

11327 

11328 

11329 

11330 

11331 

11332 

11333 

11334 

11335 

11336 

11337 

11338 

11339 

11340 

11341 

11342 

11343 

11344 

11345 

11346 

11347 

11348 

11349 

11350 

11351 

11352 

11353 

11354 


TEST CODE SECTION 

if not (.VV) 
then 


begin 

ERRDf 


cnnOF (154, ASYNC. DUMPER); 
PRINTS (ONE.FMT, BB.VV.ERR); 
end; 

INI T ERR = ZERO; 

SB ERR = ZERO; 

DS*_CNT = -1; 


do 


! WRITE 


begin 
break* 

DSA CNT = . DSA CNT ♦ 1; _ 

WROHK.TRANSFER (SIZE = -256, DST = . 

if .WCE 
then 

begin 

if .MLDB eql ZERO 
then 

INIT.ERR = .INIT.ERR ♦ 1 

else 

BB ERR = .88. ERR ♦ 1; 


end; 


end 


•VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 

i 

until .DSA.CNT eqlU .LST.BLK; 


IF THERE ARE MORE THAN 127 SECTORS IN 
ERROR U1 TH ALL ZEORES DATA THEN THE 
PROBLEM IS PROBISLY IN 
THE ECC INITIALIZE LOGIC AND NOT IN THE 
BATTERY BACK-UP OF MEMORY. 

IF INIT ERR IS NOT > 127 AND THERE ARE 
> 100 WORDS READ WITH DATA OTHER THAN 
ALL ONES OR ALL ZEROES THEN THE PROBLEM 
IS PROBIBLY CAUSED BY THE BATTERY BACK-UP 
LOGIC NOT MAINTAINING THE MEMORY DURING 
POWER FAILURE. 


if .1N1TJRR gtr 127 
then 


29-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(2 12) 

29-Mar- 1982 16:21:03 PA:<NEALE>ML4AD.8LI .4 (113) 

• DID ''WRING UP WITH GOOD B8 CLEAR THE VV BIT 

THE VV aiT 60T CLEARED 
IhEPORT THE ERROR TO THE OPERATOR 
•TELL WHAT THE ERROR IS 


•CLEAR THE INIT COUNTER 
! CLEAR THE BATTERY BACK-UP COUNTER 
.'RESET THE DSA COUNTER 

CHECK MEMORY AND TEST FOR BaT BACK-UP AND/OR NO ECC INIT 

.'LOOK FOR CONTROL C 
!UP THE DSA COUNTEER 

DSA.CNT, SRC = IO.BUF); ‘DO THE WRITE CHECK XFER 
j IS THIS BLOCK IN ERROR 
•THIS BLOCK IS IN ERROR 
•SEE WHAT KIND OF AN ERROR IT IS 
! IT'S A INITIALIZE ERROR 
•IT'S A BAT BACK-UP ERROR 


.•REPEAT WRITE CHECKING UNTIL THE LAST BLOCK 


•IS THE ECC INIT LOGIC IN ERROR 


i 



CZMLADO ML-11 LOGIC TEST 
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26237 

26238 

26239 

26240 

26241 

26242 

26243 

26244 

26245 

26246 

26247 

26248 

26249 

26250 

26251 

26252 

26253 

26254 

26255 

26256 

26257 

26258 
26262 
26263 

26267 

26268 

26269 

26270 

26271 

26272 

26273 

26274 

26275 

26276 

26277 

26278 

26279 

26280 
26281 
26282 

26283 

26284 

26285 

26286 

26287 

26288 

26289 

26290 

26291 


;NL4AD 


TEST CODE SECTION 


11355 

11356 

11357 

11358 

11359 

11360 

11361 

11362 

11363 

11364 

11365 

11366 

11367 

11368 

11369 

11370 

11371 

11372 

11373 


ER&>F (155, ASVNC , DUMPER); 
PRINTS (ONE.FMT, B8JNIT..ERR) ; 
end 

I 

begin 

if .8B.ERR gtr 100 
then 

ErBdf <156, ASVNC, DUMPER); 
PRINTS (ONE.FMT, BB.88.ERR); 
end; 


ENDTST; 


112674 

112700 

112702 

112710 

112712 

112716 

112722 

112726 

112732 

112734 

112736 

112744 

112750 

112754 

112762 

112766 

112774 

113000 

113002 

113004 

113010 

113012 

113016 

113020 

113024 


004167 

024646 

032767 

001002 

000167 

012746 

012746 

012746 

010600 

104414 

152777 

016705 

042705 

142777 

150577 

012767 

012702 

104422 

005202 

012705 

010546 

010266 

010246 

012701 

010146 


071712 

000001 067500 

000600 

005012 

010240 

000002 


000040 102500 

103062 

177770 

000007 102462 
102456 

177777 101026 
177777 


177400 

000010 

014022 


.SSTTL ST61 TEST CODE 

JSR R1,$$AVE5 

CMP -<$P),-<SP> 

BIT #1,INTERVEN 

BNE 1$ 

JMP 2 OS 

MOV #T.61,-(SP> 

MOV #ONE.FMT,-<SP) 

MOV #2,-<SP> 

MOV SP,RO 

TRAP H 

BISS #40,a*L.REG+40 

MOV ML.DUT.RS^ 

SIC #1 77776, R5 

SICS #7,a*L.REG*40 

BJS8 R5,aML.REG«40 

MOV #-1.I0.BUF 

MOV #-1 ,R2 

TRAP 22 

INC R2 

MOV f-400,R5 

MOV R5,-(SP) 

MOV R2,10(SP) 

MOV R2,-(SP) 

MOV fI0.8UF.R1 

MOV R1.-($P) 




SEQ 0539 
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S f 61 TEST CODE SECTION 


26293 





;ML4AD 


TEST CODE SECTION 


26294 





a 



26295 

25296 

113026 

004767 

114374 



JSR 

PC, WRT. TRANSFER 


26297 

113032 

062706 

000006 



ADD 

#6,SP 

DSA.CNT,* 

26298 

113036 

020267 

100752 



CMP 

R2,l$T.BLK 

26299 

113042 

001356 




BNE 

2$ 


26300 

113044 

152777 

000040 

102372 


BISS 

#40,9ML.REG*40 


26301 

113052 

016704 

102754 



MOV 

ML.DUT.R4 
#1 77776, R4 


26302 

113056 

042704 

177770 



BIC 


26303 

113062 

142777 

000007 

102354 


BIC8 

#7,aML.R£G*40 


26304 

113070 

150477 

102350 



BISB 

R4.8ML.R£G*40 
#21 .iML.REG 
#PWR.OFF,(SP> 


26305 

113074 

012777 

000021 

102302 


MOV 


26306 

113102 

012716 

005112 



MOV 


26307 

113106 

012746 

010240 



MOV 

#ONE.FMT,-(SP> 


26308 

113112 

Cl 2746 

000002 



MOV 

#2,-<SP> 

SP,* 

26309 

113116 

010600 




MOV 

SP,RO 

26310 

113120 

104414 




TRAP 

14 


26311 

113122 

104422 



3$: 

TRAP 

22 


26312 

113124 

032777 

010000 

102322 


BIT 

#10000, 3ML.REG+50 


26313 

113132 

001373 




BNE 

3$ 

*,$$TMP2 

26314 

113134 

012703 

003720 



MOV 

#3720,R3 

26315 

113140 

001411 



4$: 

BEQ 

7$ 

*,$$TMP1 

26316 

113142 

016704 

066750 



MOV 

L$DLY,R4 

26317 

113146 

001404 




BEQ 

6$ 

$$TMP 

26318 

113150 

005066 

000014 


5$: 

CLR 

14(SP) 

26319 

113154 

005304 




DEC 

R4 

$$TMP1 

26320 

113156 

001374 




BNE 

5$ 

$$TMP2 

26321 

113160 

005303 



6$: 

DEC 

R3 

26322 

113162 

000766 




BR 

4$ 


26323 

113164 

012716 

006060 


7$: 

MOV 

#PUP.B8, (SP) 


26324 

113170 

012746 

010240 



MOV 

#ONE.FMT,-(SP) 


26325 

113174 

012746 

000002 



MOV 

#2,-(SP> 


26326 

113200 

010600 




MOV 

SP,RO 

SP,* 

26327 

113202 

104414 




TRAP 

14 


26328 

113204 

104422 



8$: 

TRAP 

22 


26329 

113206 

105777 

102242 



TSTB 

8ML.REG+50 


26330 

113212 

100374 




BPL 

8$ 

*,$$TMP2 

26331 

113214 

012703 

000012 



MOV 

#12, R3 

26332 

113220 

001411 



95: 

BEQ 

12$ 

*,$$TMP1 

26333 

113222 

016704 

066670 



MOV 

L$DLY,R4 

26334 

113226 

001404 




BEQ 

11$ 

$$TMP 

26335 

113230 

005066 

000020 


10$: 

CLR 

20(SP) 

26336 

113234 

005304 




DEC 

R4 

$$TMP1 

26337 

113236 

001374 




BNE 

10$ 

$$TMP2 

26338 

113240 

005303 



11$: 

DEC 

R3 

26339 

113242 

000766 




BR 

9$ 


26340 

113244 

132777 

000100 

102202 

12$: 

BITS 

#100,dML.R£G+50 


26341 

113252 

001016 




BNE 

13$ 


26342 

113254 

104455 




TRAP 

55 


26343 

113256 

000232 




.WORD 

232 


26344 

113260 

012706 




.WORD 

ASYNC 


26345 

113262 

026302 




.WORD 

DUMPER 


26346 

113264 

012746 

006150 



MOV 

#8B.VV.ERR,-(SP) 


26347 

113270 

012746 

010240 



MOV 

#ONE.FMT,-(SP> 



SEO 0540 

29-Mar-1982 16:23:04 TOPS 

29-Mar-1982 16:21:03 PA:< 


1125 

1126 


♦ 


1127 

1127 


1127 

1128 

1128 ! 


1129 


1129 

1129 

1130 


1130 

1130 

1130 
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$T61 TEST CODE SECTION 


26349 




;M14AD 





26350 

OZ7C1 




* 

• 


TEST CODE SECTION 



26352 

113274 

012746 

000002 


MOV 

#2,-<SP> 



26353 

113300 

010600 



MOV 

SP.RO 

9 

SP.* 

26354 

113302 

104414 



TRAP 

14 



26355 

113304 

062706 

000006 


ADD 

#6,SP 

0 


26356 

113310 

005003 


13$: 

CLR 

R3 

• 

INI T. ERR 

26357 

113312 

005004 



CLR 

R4 

9 

88. ERR 

26358 

113314 

012702 

177777 


MOV 

#-1,R2 

• 

9 

*,DSA.CNT 

26359 

113320 

104422 


14$: 

TRAP 

22 

9 


26360 

113322 

005202 



INC 

R2 

• 

0 

DSA.CNT 

26361 

113324 

012705 

177400 


MOV 

#-400, R5 

9 

•.SIZE 

26362 

113330 

010546 



MOV 

R5,-(SP) 

9 

SIZE,* 

26363 

113332 

010266 

000020 


MOV 

R2,20(SP) 

• 

9 

DSA.CNT.DST 

26364 

113336 

010246 



MOV 

R2,-(SP) 

0 

DSA.CNT,* 

26365 

113340 

012701 

014022 


MOV 

#10.BUF.R1 

9 

*,SRC 

26366 

113344 

010146 



MOV 

R1 ,-(SP) 

9 

SRC.* 

26367 

113346 

004767 

113604 


JSR 

PC . WRT . CHK . TRANSFE 



26368 

113352 

032777 

040000 102064 


BIT 

#40000, iMl.REG+40 

0 


26369 

113360 

001406 



BEO 

16$ 



26370 

113362 

005777 

102126 


TST 

BML.REG+IIO 

• 

9 


26371 

113366 

001002 



BNE 

15$ 



26372 

113370 

005203 



INC 

R3 

m 

0 

INIT.ERR 

26373 

113372 

000401 



BR 

16$ 

0 


26374 

113374 

005204 


15$: 

INC 

R4 

0 

B8.ERR 

26375 

113376 

062706 

000006 

16$: 

ADD 

#6,SP 

• 

# 


26376 

113402 

020267 

100406 


CMP 

R2.LST.BLK 

• 

9 

DSA.CNT,* 

26377 

113406 

001344 



BNE 

14$ 



26378 

113410 

020327 

000177 


CMP 

R3,#177 

• 

9 

INIT.ERR,* 

26379 

113414 

003415 



BLE 

17$ 



26380 

113416 

104455 



TRAP 

55 

• 

0 


26381 

113420 

000233 



.WORD 

233 



26382 

113422 

012706 



.WORD 

ASYNC 



26383 

113424 

026302 



.WORD 

DUMPER 



26384 

113426 

012746 

006242 


MOV 

#B8.INIT.ERR,-(SP) 

• 

• 


26385 

113432 

012746 

010240 


MOV 

#ONE.FMT,-(SP) 



26386 

113436 

012746 

000002 


MOV 

#2,-(SP) 



26387 

113442 

010600 



MOV 

SP,R0 

0 

SP.* 

26388 

113444 

104414 



TRAP 

14 



26389 

113446 

000417 



BR 

18$ 

0 


26390 

113450 

020427 

000144 

17$: 

CMP 

R4,#144 

0 

8B.ERR.* 

26391 

113454 

003416 



BLE 

19$ 



26392 

113456 

104455 



TRAP 

55 

0 


26393 

113460 

000234 



.WORD 

234 



26394 

113462 

012706 



.WORD 

ASYNC 



26395 

113464 

026302 



.WORD 

DUMPER 



26396 

113466 

012746 

006334 


MOV 

#86.88. ERR, -(SP) 

0 


26397 

113472 

012746 

010240 


MOV 

#ONE.FMT,-(SP) 



26398 

113476 

012746 

000002 


MOV 

#2,-<SP> 



26399 

113502 

010600 



MOV 

SP.RO 

9 

SP,* 

26400 

113504 

104414 



TRAP 

14 



26401 

113506 

062706 

000006 

18$: 

ADD 

#6,SP 

9 


26402 

113512 

062706 

000016 

19$: 

ADD 

#16. SP 

0 


26403 

113516 

022626 


20$: 

CMP 

(SP)MSPH 

9 



SEQ 05^*1 

29-Mar-1982 16:23:04 TOPS 
29-Mar-1982 16:21:03 PA:< 


1130 

1131 
1131 
1131 
1131 
1131 
1131 


1132 

1132 

1132 

1132 

1132 
1131 

1133 

1135 

H35 

1135 


1135 

1136 

1136 


1136 


1136 

1123 

1119 
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SEG 0542 


26405 


;ML4AD 

TEST CODE SECTION 

26406 

26407 


9 

26408 113520 

26409 

26410 

000207 

RTS 

PC 


; Routine Size: 

203 words 

26411 

26416 

26417 

26421 

26422 

26426 113522 


; Maximum stack 

depth per Invocation: 


.SBTTL 

T61 : : 

T61 TEST CODE SECTION 

26427 113522 

004767 177146 

1$: JSR 

PC,ST61 

26428 113526 

104466 

TRAP 

66 

26429 113530 

006000 

ROR 

RO 

26430 113532 

103773 

BLO 

1$ 

26431 113534 

26432 

000207 

RTS 

PC 

26433 


; Routine Size: 

6 words 

26434 

26439 

26440 

26441 ; 

11374 !<8LF/PAGE> 

; Maximum stack 

depth per Invocation: 


18 words 


0 words 


29-Mar-1982 16:23:04 
29-Mar-1982 16:21:03 


TOPS 

PA:< 


1137 


CZMLADO ML-11 LOGIC TEST 
T61 TEST CODE SECTION 
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0 1 1 
PAGE 560 


SEQ 0543 


26443 

26444 

26445 

26446 

26447 

26448 

26449 

26450 

26451 

26452 

26453 

26454 

26455 

26456 

26457 

26458 

26459 

26460 

26461 

26462 

26463 

26464 

26465 

26466 

26467 

26468 

26469 

26473 

26474 

26478 

26479 

26480 

26481 

26482 

26487 

26488 

26492 

26493 
26497 


ML4AD 


113536 

113544 


11375 

11376 

11377 

11378 

11379 

11380 

11381 

11382 

11383 

11384 

11385 

11386 

11387 

11388 

11389 

11390 

11391 

11392 

11393 

11394 

11395 

11396 

11397 

11398 


152777 

000207 


TEST CODE SECTION 


CLEAN UP SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>NL4AD.8LI.4 (114) 


THE CLEAN UP SECTION IS ENTERED WHEN: 

1. A NORMAL END OF PASS IS DONE 
ie. WHEN ONE COMPLETE PASS OF 

THE DIA6 IS DONE. 

2. WHEN A DRIVE ERROR IS DECTECTED AND 
AND THE UNIT IS DROPPED AND THE DOCLN 
MACRO IS CALLED. 

3. WHEN A *C IS TYPE AT THE CONSOLE TERMINAL 
DURING EXECUTION OF A TEST. 

IN ANY EVENT OF ENTERING THIS SECTION THE 
NL11 CONTROL BOARD TESTER'S POWER SUPPLIES 
ARE POWERED DOWN via THE ROUTINE CALL: " 


! ♦♦ 

BGNCLN; 

CLR = ONE; 

return; 

ENDCLN; 


000040 101700 


! BEGIN THE CLEAN UP CODE 
‘CLEAR THE MASS BUS 
IRETURN TO DRS> 

! END THE CLEAN UP CODE 


.SBTTL 

L CLEAN: BISS 
RTS 


LCLEAN TEST CODE SECTION 

#40,3ML.REG+40 

PC 


1139 

1137 


Routine Size: 4 words 

Maximum stack depth per invocation: 0 words 


113546 


LSCLEAN: : 


.SBTTL LSCLEAN TEST CODE SECTION 


i 


CZMLADO ML-11 LOCIC TEST 
LSCLEAN TEST CODE SECTION 


26499 

26500 

26501 

26502 

26503 

26504 

26505 

26506 

26507 

26512 

26513 

26514 

26515 

26516 

26520 

26521 

26522 

26523 

26524 

26525 

26526 

26527 

26528 

26529 

26530 

26531 

26535 

26536 

26537 

26538 

26539 

26544 

26545 

26546 

26547 

26548 
26552 


MACRO Nil 13 30-MAR-82 11:18 PACE 


C 11 
561 


SEG 0544 


;.*H4AD 


TEST CODE SECTION 


29-Mar-1982 16:23:04 
29-Mar- 1982 16:21:03 


113546 

004767 177764 

JSR 

PC.LCLEAN ; 

113552 

104412 

TRAP 

12 

113554 

000207 

RTS 

PC 


11399 LASTAD; 

; Routine Size: 

; Maximum stack 

4 words 

depth per invocation: 0 words 

.'DEFINE THE DIAG'S LAST 


11400 BGNSETUP (0>; 


‘SET UP ZERO P- TABLES 
.'END THE SETUP 


11401 ENDSETUP; 


113556 

113562 

BLSLAS : : . WORD 

TSFREE 

113560 

000000 

.WORD 

«TSFREE-<BLSLAS+4»/2> 

113562 

OCOOOO 

TSFREE : : .WORD 

0 


113562 

l$LAST== 

BLSLAS +4 


000000 

T$PTHV== 

0 

113564 

113564 

000207 

.S8TTL 
SEND. LINK:: 

RTS 

SEND. LINK TEST CODE SECTION 

PC 


TOPS 

PA:< 

1139 


1139 


Routine Size: 1 word 

Maximum stack depth per invocation: 0 words 


11402 end 

11403 

11404 eludom 


CZMLADO ML-11 LOGIC TEST 
SEND. LINK TEST CODE SECTION 


D 11 
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SEQ 0545 


26554 

26555 

26556 

26557 

26558 

26559 

26560 

26561 

26562 

26563 

26564 

26565 

26566 

2656 7 

26568 

26569 

26570 

26571 

26572 

26573 


000001 


;HL4AD 


TEST CODE SECTION 


OTS external references ^ 

.GL08L BLSGT2, SSAVE5, SSAVE4. (SAVE 3 
.GLOBL SSAVE2, BLSPU2. BLSPU1 . 3LSGT1 
. GLOBL BLSDIV, BLSNOD. BLSNUL 


29-Nar-1982 16:23:04 
29-Nar-1982 16:21:03 


Size: 15786 code 

Run Time: 02:46.0 

Elapsed Time: 03:20.7 
Memory Used: 124 pages 
Compilation Complete 


♦ 2346 data words 


.END 


TOPS 

PA:< 


CZHLAOC ML-1 1 LOGIC TEST 
SYMBOL TABLE 


HACRO H1113 30-HAR-82 11:16 


E 11 
PAGE 562-1 


A)R = 

ARR.DA= 

ARR.IN 

ARR.16 

ASSENB^ 

ASYNC = 

A. CAL 

A. GEN 
B8.BB.= 
88. INI = 
88. VV.= 
BITO = 
81 TOO - 
B1T01 = 
B1T02 = 
BIT03 = 
B1T04 * 
BIT05 = 
BIT06 = 
BIT07 = 
BITOfl = 
BIT09 = 
BIT1 = 
8IT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BITH = 
BIT15 - 
BIT2 = 
81 T3 = 
BIT4 = 
BITS = 
BIT6 = 
BIT7 = 
BITS = 
BIT9 = 
BLSOIV 
BLSGT1 
BLSGT2 
BLSLAS 
BLSHOD 
BLSMJL 
BLSPU1 
BLSPU2 

blssh; 
BOE = 

B. CAL 
8. GEN 
CAL.CR 
CHIP.S 
CSAU = 
CSAUTO* 
CS8RK = 
CSBSEG* 
CS8SUB= 
C$CEFG= 


000020 

013012 

014004 

014016 

000010 

012706 

015362 

015370 

006334 

006242 

006150 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

004446 

003512 

003634 

113556 

004460 

004222 

003776 

004072 

004472 

000400 

015364 

015372 

017042 

014012 

000052 

000061 

000022 

000004 

000002 

000045 


CSCLCK* 

CSCLEA* 

CSCLOS* 

CSCLP1* 

CSCVEC* 

C$DCLN= 

CSDODU* 

CSDRPT* 

CSDU = 

CSEDIT* 

CSERDF* 

CSERHR* 

CSERRO* 

CSERSF* 

CSERSO* 

CSESCA= 

CSESEG* 

CSESU8= 

CSETST* 

CSEXIT* 

CSGETB* 

CSGETW= 

CSGMAN* 

CSGPHR= 

CSGPL0= 

CSGPRI* 

CSINIT* 

CSINLP* 

CSHANl* 

CSHEN = 

CSHSG = 

C$OPEN= 

C$PNTB= 

C$PNTF= 

CSPNTS* 

CSPNTX= 

C$010 * 

c$Roeu= 

C$REFG= 

CSRESE* 

CSREVI* 

C SR FLA= 

CSRPT = 

CSSEFG= 

CSSPRI- 

CSSVEC= 

CSTPRI* 

DATA.l* 

DAT. DM 

DFPTBL 

DIAGHC= 

DIVHOD 

DRIVE. 

DROP.C 

DT.1 

DUMPER 

D1.TEM= 


000062 
000012 
000035 
000006 
000036 
000044 
000051 
000024 
000053 
000003 
000055 
000056 
000060 
000054 
000057 
000010 
000005 
000003 
000001 
000032 
000026 
000027 
000043 
000042 
000030 
000040 
000011 
000020 
000050 
000031 
000023 
000034 
000014 
000017 
000016 
000015 
000377 
000007 
000047 
000033 
000003 
000021 
000025 
000046 
000041 
000037 
000013 
013154 
016412 
002360 G 
000000 
004264 
015354 
015402 
015764 
026302 G 
013374 


D2.TEH* 

EF.CON* 

EF.NEW= 

EF.FUR* 

EF.RES* 

EF.STA* 

EIG.FM* 

ELV.FH* 

ERRBLK 

ERRNSG 

ERRN8R 

ERRTHR 

ERRTYP 

ERR.CH 

EVL = 

ESEND = 

ESLOAD* 

E2.TEM* 

FIND. C 

FIRST. 

FIV.^M* 

FMT.1 = 

FHT.10* 

FMT.11* 

F«T.12= 

FMT.13* 

FMT.14* 

FHT.15* 

FHT.16* 

FHT.17* 

F«T.18= 

FHT.19* 

FHT.2 = 

FHT.20* 

FHT.21* 

FHT.22* 

FHT.23= 

FHT.24* 

FHT.25* 

FHT.26= 

FMT.3 = 

FHT.4 = 

FHT.5 = 

FHT.6 = 

FMT.7 a 

FHT.8 = 

FMT.9 = 

FNC.1 = 

FNC.10* 

FNC.11* 

FNC.1 2= 

FNC.1 3= 

FNC.14* 

FNC.1 5= 

FNC.16* 

FNC.1 7= 

FNC.18= 


013376 

000036 

000035 

000034 

000037 

000040 

010364 

010466 

002160 

002156 

002154 

002402 

002152 

017442 

0000C4 

002100 

000035 

013400 

017660 

020262 

010304 

006442 

007116 

007170 

007224 

007254 

007330 

007370 

007436 

007526 

007562 

007632 

006506 

007702 

007754 

010026 

010072 

010142 

010166 

010206 

006574 

006620 

006650 

006752 

007002 

007030 

007064 

012150 

012272 

012302 

012322 

012334 

012344 

012360 

012372 

012404 

012414 


FNC.19* 
FNC.2 = 
FNC.21- 
FNC.22* 
FNC.23* 
FNC.3 = 
FNC.4 = 
FNC.5 * 
FNC.6 = 
FNC.7 = 
FNC.8 * 
FNC.9 = 
FORCE. 
FOR. EC 
FOR.FH* 
FSAU = 
FSAUTO- 
FS8GN = 
FSCLEA* 
FSDU = 
FSEND = 
F SHARD* 
FSHU * 
FSINIT* 
FSJMP = 
FSHOD = 
FSHSG = 
FSPROT* 
FSPWR * 
FSRPT = 
FSSEG = 
FSSOFT* 
FSSRV = 
FSSUB * 
FSSW = 
FSTEST* 
GD.BLK 
GOOD, 6 
GSCNTO* 
GSDELH* 
GSDISP- 
GSEXCP= 
GSHILI* 
6SL0LI* 
GSNO * 
GSOFFS* 
GSOFSI* 
GSPRMA* 
GSPRflD* 
GSPRML* 
GSRADA* 
GSRAD8- 
GSRADD* 
GSRADL* 
GSRADO* 
GSXFER* 
GSYES = 


012426 

012164 

012440 

012452 

012464 

012172 

012200 

012216 

012226 

012234 

012244 

012260 

020032 

020210 

010270 

000015 

000020 

000040 

000007 

000016 

000041 

000004 

000013 

000006 

000050 

000000 

000011 

000021 

000017 

000012 

000003 

000005 

000010 

000002 

000014 

000001 

020312 

014006 

000200 

000372 

000003 

000400 

000002 

000001 

000000 

000400 

000378 

000001 

000002 

000000 

000140 


000040 

000120 

000020 

000004 

000010 


HELP = 
HOE * 
HU. OR. 
IBE = 
I DU = 
IER = 
INTER * 
INTERV 
IO.BUF 
ISR = 
IXE * 
ISAU = 
ISAUTO* 
ISCLN * 
ISDU * 
ISHRD * 
ISINIT* 
I SHOD = 
ISflSG = 
ISPROT* 
ISPTAB= 
1SPUR = 
ISRPT = 
1SSEG = 
1SSETU* 
ISSFT = 
ISSRV = 
issue * 

ISTST = 

JSJHP = 

LAST.B 

LAU 

LAUTO 

LCLEAN 

LDU 

LD.LNG 

LIHIT 

LINIT 

LOAD.S 

LOE = 

LOT * 

LRPT 

LST.AR 

LST.BL 

LST.DU 

LSACP 

LSAPT 

LSAU 

LSAUT 

LSAUTO 

LSCCP 

LSCLEA 

LSCO 

LSDEPO 

LSDESC 

LSDESP 

LSDEVP 


000000 

100000 

013402 

010000 

000040 

020000 

013114 

002410 

014022 

000100 

004000 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000040 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000167 

020344 

004704 

004660 

113536 

004672 

021354 

015400 

027650 

016034 

04000C 

000010 

004646 

014020 

014014 

015356 

002110 

002036 

004706 

002070 

004662 

002106 

113546 

002032 

002011 

002130 

002076 

002060 


SEQ O c 
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LSDISP 

002164 

G 

LSDLY 

002116 G 

LSD TP 

002040 G 

LSOTYP 

002034 

5 

LSDU 

004674 

G 

LSDUT 

002072 

G 

LSDVTY 

002122 

G 

LSEF 

002052 G 

LSENVI 

002044 

G 

LSERRT 

002152 

G 

LSETP 

002102 

G 

LSEXF1 

002046 

G 

LSEXP4 

002064 

G 

LSEXP5 

002066 

G 

L SHARD 

002414 

G 

LSHIHE 

002120 G 

LSHPCP 

002016 G 

LSHPTP 

002022 

G 

LSHU 

002360 

G 

LSICP 

002104 

G 

LSINIT 

030714 

G 

LSLADP 

002026 G 

LSLAST= 

113562 G 

LSLQAD 

002100 G 

LSLUN 

002074 

G 

LSHREV 

002050 G 

LSNAHE 

002000 

G 

LSPRIO 

002042 

G 

LSPROT 

003444 

G 

LSPRT 

002112 G 

LSREPP 

002062 G 

LSREV 

002010 G 

LSRPT 

004650 G 

LSSOFT 

003122 G 

LSSPC 

002056 G 

LSSPCP 

002020 G 

LSSPTP 

002024 

G 

LSSTA 

002030 G 

LSSU 

002400 G 

LSTEST 

0021 14 

G 

LSTIHL 

002014 

G 

LSUNiT 

002012 G 

LI 0000 

002376 


Li 0001 

002412 


Li 0002 

002510 


L10003 

003160 


HB.DIS= 

005570 


HEH.AR= 

013052 


HL.DUT 

016032 


HULUN 

016030 


HL.REG 

015404 


HSGHl 

002510 


HSGH2 

002556 


HSGH3 

002624 


HSGH4 

002670 


HSGH5 

002736 


HSGH6 

003004 



HSGH7 003052 
HSSS1 003160 
HSGS2 003224 
HSGS3 003270 
HSGS4 003334 
HSGS5 003400 
HSDUHP 026312 
NIB.SA 013374 
NIN.FH= 010410 
NO. INI = 005470 
ONEFIL= 000001 
ONEPAS 002406 G 
0NE.FH= 010240 
OP. NIK 014002 
0SAPTS= 000001 
OSAU = 000001 
0$8GNR= 000001 
0$8GNS= 000001 
OSDU = 000001 
0SERRT= 000001 
OSGNSW= 000001 
OSPOIN= 000001 
0SSETU= 000001 
PAR. 01 014010 

PD. TEN 015342 
PHR.1 = 011610 
PHR . 1 0= 012006 
PHR .11= 012020 
PHR. 12= 012036 
PHR. 13= 012060 
PHR. 14= 012104 
PHR 15= 012136 
PHR. 2 = 011626 
PHR. 3 = 011644 
PHR. 4 = 011676 
PHR. 5 = 011714 
PHR. 6 = 011726 
PHR. 7 = 011740 
PHR. 8 = 011762 
PHR. 9 = 011774 
PNT = 001000 G 
PRI = 002000 G 
PR I 00 = 000000 G 
PRI01 = 000040 G 
PRI02 = 000100 G 
PRI03 = 000140 G 
PRI 04 = 000200 G 
PRI 05 = 000240 G 
PRI06 = 000300 G 
PRI07 = 000340 G 
PRSN 002400 G 
PTSt.P 014000 
PUP. 88= 006060 
PUR.0F= 005112 
PWR.ON= 005202 
P.AAA 004716 
P.AA8 005012 


P.AAC 
P.AAD 
P.AAE 
P.AAF 
P.AAG 
P.AAH 
P.AAI 
P.AAJ 
P.AAA 
P.AAL 
P.AAN 
P.AAN 
P.AAO 
P.AAP 
P.AAQ 
P.AAR 
P. A" 3 
P.AA7 
P.AAU 
P. AAV 
P.AAW 
P.AAX 
P.AAY 
P.AAZ 
P.A8A 
P.ABfi 
P.A8C 
P.A8D 
P.A8E 
P.ABF 
P.A8G 
P.ABH 
P.A8I 
P.A8J 
P.A8A 
P.A8L 
P.A8H 
P.A8N 
P.A80 
P.ABP 
P.ABO 
P.ABP 
P.ABS 
P.ABT 
P.ABU 
P.A8V 
P.ABU 
P.ABX 
P.ABY 
P.AB2 
P.ACA 
P.ACB 
P.ACC 
P.ACO 
P.ACE 
P.ACF 
P.AC6 


005112 

005202 

005272 

005340 

005414 

005470 

005570 

005652 

005722 

005764 

006060 

006150 

006242 

006334 

006442 

006506 

006574 

006620 

006650 

006752 

007002 

007030 

007064 

007116 

007170 

007224 

007254 

007330 

007370 

007436 

007526 

007562 

007632 

007702 

007754 

010026 

010072 

010142 

010166 

010206 

010240 

010246 

010256 

010270 

010304 

010322 

010342 

010364 

010410 

010436 

010466 

010520 

010524 

010536 

010544 

010552 

010560 


t 


F 11 
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P.ACH 

P.ACI 

P.ACJ 

P.ACA 

P.ACL 

P.ACH 

P.ACN 

P.ACO 

P.ACP 

P.ACO 

P.ACR 

P.ACS 

P.ACT 

P.ACU 

P.ACV 

P.ACW 

P.ACX 

P.ACY 

P.AC2 

P.ADA 

P.ADB 

P.AOC 

P.AOO 

P.ADE 

P.ADF 

P.ADG 

P.AOH 

P.ADI 

P.ADJ 

P.ADA 

P.ADL 

P.ADH 

P.ADN 

P.ADO 

P.ADP 

P.ADO 

P.ADR 

P.ADS 

P.ADT 

P.ADU 

P.ADV 

P.ADU 

P.ADX 

P.ADY 

P.ADZ 

P.AEA 

P.AE8 

P.AEC 

P.AED 

P.AEE 

P.AEF 

P.AEG 

P.AEH 

P.AEI 

P.AEJ 

P.AEA 

P.AEl. 


010566 

010602 

010616 

010630 

010640 

010650 

010660 

010664 

010676 

010704 

010712 

010724 

010730 

010736 

010744 

010752 

010766 

010774 

011002 

011016 

011024 

011032 

011046 

011054 

011070 

011076 

011102 

011110 

011116 

011122 

011132 

011140 

011150 

011154 

011170 

011176 

011206 

011214 

011226 

011240 

011250 

011260 

011270 

011276 

011310 

011316 

011326 

011336 

011344 

011352 

him 

011400 

011416 

011432 

011440 

011446 


P.AEH 

P.AEN 

P.AEO 

P.AEP 

P.AEO 

P.AER 

P.AES 

P.AET 

P.AEU 

P.AEV 

P.AEU 

P.AEX 

P.AEY 

P.AE2 

P.AFA 

P.AF8 

P.AFC 

P.AFD 

P.AFE 

P.AFF 

P.AFG 

P.AFH 

P.AFI 

P.AFJ 

P.AFA 

P.AFL 

P.AFH 

P.AFN 

P.AFO 

P.AFP 

P.AFO 

P.AFP 

P.AFS 

P.AFT 

P.AFU 

P.AFV 

P.AFU 

P.AFX 

P.AfV 

P.AF2 

P.AGA 

P.AG8 

P.AGC 

P.AGD 

P.AGE 

P.AGF 

P.AGG 

P.AGH 

P.AGI 

P.A6J 

P.AGA 

P.AGI 

P.AGH 

P.AGN 

P.AGO 

P.AGP 

P.AGO 


011454 
011462 
011470 
011474 
011502 
0115U 
011524 
011532 
011540 
011552 
011562 
011570 
011610 
011626 
011644 
011676 
011714 
01 1 726 
011740 
011762 
011774 
012006 
012020 
012036 
012060 
012104 
012136 
012150 
012164 
012172 
012200 
012216 
012226 
012234 
012244 
012260 
012272 
012302 
Cl 2322 
012334 
012344 
012360 
012372 
012404 
012414 
012426 
012440 
012452 
012464 
012500 
012510 
012516 
012524 
012532 
012540 
012546 
012554 
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SEQ 0548 


P.AGR 

012562 

REG. 20= 012666 

T$TEMP= 

000000 

T51 

103202 G 

P.AGS 

012570 

REG. 21= 012676 

T$TEST= 

000000 

T52 

104020 G 

P.AGT 

012576 

REG. 3 = 012516 

T$TSTM= 

177777 

T 53 

104660 G 

P.AGU 

012604 

REG. 4 = '12524 

T$TSTS= 

000000 

T54 

105722 G 

P.AGV 

012612 

REG. 5 = 012532 

T$$HAR= 

010002 

T55 

106612 G 

P.AGW 

012620 

REG. 6 = 012540 

TS5HW = 

010000 

T56 

107742 G 

P.AGX 

012626 

REG. 7 = 012546 

T$$PR0= 

010004 

T57 

111234 G 

P.AGY 

012634 

REG. 8 = 012554 

T$SSOF= 

010003 

T58 

111640 G 

p.AGZ 

012642 

REG. 9 = 012562 

TSSSU = 

010001 

T59 

112306 G 

P. AHA 

012652 

REM.T8 015664 

r .21 = 

004716 

T6 

033476 G 

P. AH8 

012660 

RE 2 004640 

T.61 = 

005012 

T60 

112660 G 

P.AHC 

012666 

RE3 004636 

T1 

031134 G 

T61 

113522 G 

P.AHD 

012676 

RE4 004634 

T10 

036266 G 

T7 

034354 G 

P.AHE 

0127C6 

RH.ADD 016022 

Til 

036510 G 

T8 

035370 G 

P.AHF 

012750 

RH.ERR= 013302 

T12 

037066 G 

T9 

035624 G 

P.AHG 

013012 

RH.TYP 016024 

T13 

040230 G 

UAM = 

000200 G 

P.AHH 

013052 

RH.VEC 016026 

T14 

041462 G 

UNS.ER= 

005272 

P.AHI 

013114 

SC.SET= 013214 

T15 

042714 G 

VV.CLE= 

005414 

P.AHJ 

013154 

SEV.FM= 010342 

T16 

043556 G 

VV.N0T= 

005340 

P.AHK 

C13214 

SFPT8L 002400 G 

T17 

045044 G 

VV.SET= 

005764 

P.AHL 

013250 

SIX.FM= 010322 

T18 

045260 G 

WC.£RR= 

005652 

P.AKM 

013302 

STACK 015034 

T19 

046430 G 

URD. 1 = 

010520 

P.AHN 

013330 

STK.OF 015022 

T 2 

031460 G 

WRD. 10= 

010630 

P.CAL 

015366 

STRIPP 016444 

T20 

047430 G 

WRD. 11= 

010640 

P.CNT 

015376 

SVCG0L= 177777 

T21 

051176 G 

WRD. 12= 

010650 

P.GEN 

015374 

SVCINS= 177777 

122 

051724 G 

WRD. 13= 

010660 


RAS. IN 

RD.CS1 

RO.OA 

RO.DAT 

RO.OS 

RD.D1 

RD.D2 

R0.03 

RO.EE 

RO.EL 

RO.ER 

RO.E1 

RO.E2 

RD.MR 

RD.PA 

RD.PD 

RD.REG 

REGOMP 

REG. IN 

REG.1 = 

REG. 10= 

REG. 11= 

REG. 12= 

REG. 13= 

REG. 14= 

REG. 15= 

REG. 16= 

REG. 17= 

REG. 18= 

REG. 19= 

REG. 2 = 


015346 
021762 
022316 
015352 
025216 
024104 
024416 
024744 
023760 
023716 
022140 
023074 
023314 
022474 
022666 
023556 
025712 
002404 G 
015360 
012500 
012570 
012576 
012604 
012612 
012620 
012626 
012634 
012642 
012652 
012660 
012510 


SVCSUB= 
SVCTAG= 
SVCTST= 
SYNC = 
S*LSYH= 
TEN.FM= 


177777 

177777 

177777 

012750 

010000 

010436 


TKR.FM= 010256 
TIME.C= 013330 
TRBLE.= 013250 
TST.LN 020376 
7W0.FW= 010246 
TSARGC= 000002 
T$CODE= 004130 
T$ERRN= 

T$EXCP= 

TSFREE 113562 G 
T$GMAN= 000000 
TSHILI= 000007 
T$LAST= 

T$LOLI= 

TSLSY«= 

TSNEST= 177777 
TSNSO = 

T$NS1 = 

T$PTHV= 

TSPTNU- 

T$SAVl= 177777 
T*SEGL= 177777 
TSSU8N= 000000 
TSTAGL= 177777 
T$TAGN= 010005 


052262 G 
053456 G 
054270 G 
055466 G 
056244 G 
057230 G 
060342 G 
031666 G 
061136 G 
062534 G 
064272 G 


177777 

000000 

000021 


065304 G 
066266 G 
066744 G 
G 

S G 

G 


070756 6 
072032 G 
072460 G 
032336 G 
073436 G 
074516 G 
075324 G 
076254 G 
076504 G 
076670 G 
077366 G 
077660 G 
100640 G 
101376 G 
033006 G 
102014 G 


WRD. 14= 
WRD.15= 
URD.16= 
URD.17= 
WRD. 18= 
URD . 1 9= 
WRD. 2 = 
WRD. 20= 
WRD. 21= 
WRD. 22= 
WRD. 23= 
WRD. 24= 
WRD. 25= 
WRD. 26= 
WRD. 27= 
WRD. 29= 
WRD. 3 = 
WRD. 30= 
WRD. 31* 
WRD. 32= 
WRD. 33= 
WRD. 34= 
WRD. 35= 
WRD. 36= 
WRD. 37= 
WRD. 38= 
WRD. 39= 
WRD. 4 = 
WRD. 40= 
WRD. 41= 
WRD. 42= 


0664 

0676 

0704 

0712 

0724 

0730 

0524 

0736 

0744 

0752 

0766 

0774 

1002 

1016 

1024 


1046 

1054 

1070 

1076 

1102 

1110 


1122 

1132 

1140 

0544 

1150 

1154 

1170 


WRD. 43= 
WRD. 44= 
WRD. 45= 
WRD.46= 
WRD. 47= 
WRD. 48= 
WRD. 49= 
WRD. 5 = 
WRD. 50= 
WRD. 51= 
WRD. 52= 
WRD. 53= 
WRD. 54= 
WRD. 55= 
WRD. 56= 
WRD. 57= 
WRD. 58= 
WRD. 59= 
WRD. 6 = 
WRD. 60= 
WRD. 61= 
WRD. 62= 
WRD. 63= 
WRD. 64= 
WRD. 65= 
WRD. 67= 
WRD. 68= 
WRD. 69= 
WRD. 7 = 
WRD. 70= 
WRD. 71 = 
WRD. 72= 
WRD. 73= 
WRD. 74= 
WRD. 75= 
WRD. 76= 
WRD. 77= 
WRD. 8 = 
WRD. 9 = 
WRT.CH 
WRT.CS 
WRT.DA 
WRT.DS 
WRT.D1 
WRT.D2 
WRT.D3 
WRT.EE 
WRT.EL 
WRT.ER 
WRT.E1 
WRT.E2 
WRT.HR 
WRT.PA 
WRT.PD 
WRT.RE 
WRT.TR 
WT.DAT 


011176 

011206 

011214 

011226 

011240 

011250 

011260 

010552 

011270 

011276 

011310 

011316 

011326 

011336 

011344 

011352 

011362 

011374 

010560 

011400 

011416 

011432 

011440 

011446 

011454 

011462 

011470 

011474 

010566 

011502 

011514 

011524 

011532 

011540 

011552 

011562 

011570 

010602 

010616 

027156 

021712 

022246 

025214 

024020 

024332 

024644 

023756 

023714 

022070 

023010 

023216 

022424 


027426 

015350 
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SEQ 0549 


072046 

031702 

072474 

073*52 

074532 

075340 

076270 

076520 

076704 

077402 

077674 

100654 

032352 

101412 

102030 


$r52 

$T53 

$T54 

ST 55 

$f56 

$r57 

ST58 

ST59 

$T6 

ST60 

ST61 

$T7 

ST8 

*T9 


103216 

104034 

104674 

105736 

i m 

111250 

111654 

033022 

112322 

112674 

033512 

034370 

035404 



















HU 1 CREATED BY 
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SYMBOL VALUE 
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BLSLAS 

BLSMOO 

BLSMUL 

BLSPU1 

BLSPU2 

8LSSHF 


BOE 

8. CAL 

B.GEN 

CAL .CR 

CHIP.S 

CSAIJ 

CSAUTO 

CS8RK 

CSBSEG 

CSS SUB 

CSCEFG 

CSCLCK 

CSCLEA 

CSCLOS 

CSCLP1 

CSCVEC 

CSOCLN 

CSDODU 

CSORPT 

CSDU 

CSEDIT 

CSERDF 

CSERHR 

CSERRO 

CSERSF 

CSERSO 

CSESCA 

CSESEG 

CSESUB 

CtfTST 

CSEXIT 

CSGETB 

CSGETW 

CSGMAN 

cs mm 

CSGPLO 

CtGPRI 

CSIN1T 

CSINLP 

CSAANi 

CSMEH 

CSMSG 


113556 G 
004460 G 
004222 G 
003776 G 
004072 G 
0C4472 G 


= 000400 G 


017042 


= 000061 




= 000001 



= 000011 



REFERENCES 

348-15353 

406-18446 

#561-26522 

#36-1201 

#32-1022 

#21-592 

#27-829 

11-181 

17-438 

#37-1236 

#94-2565 

#89-2269 

#89-2272 

#107-3224 

#89-2248 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-?i3 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 


PAGE 2 
CREF 


361-16070 

417-19045 

561-26523 

113-3488 

526-24705 

483-22532 

111-3383 

11-184 

21-595 


108-3289 

111-3393 

483-22550 

*205-8022 


368-16472 374-16773 
418-19058 447-20663 
561-26527 

514-24111 520-24401 


561- 26527 
514-24111 

562- 26560 
562-26559 
111-3392 
11-188 
21-599 


111-3401 

11-192 

21-605 


*108-3290 *108-3291 
111-3410 *483-22545 
488-22801 

*205-8042 551-25998 


! 


11 


SEQ 0551 

380-17106 382-17223 389-17573 392-17737 399-18095 
478-22282 514-24096 521-24447 562-26558 

562-26560 


301-12932 418-19097 515-24128 521-24418 562-26559 

12-217 17-406 17-409 17-413 17-417 

22-632 27-838 27-842 27-848 28-880 


111-3410 *483-22548 484-22583 *488-22799 489-22829 
484-22576 *488-22796 488-22818 






Hill 

SYMBOL 

SYMBOL 

CSOPEN 

CSPNTB 

CSPNTF 

CiPNTS 

CSPNTX 

C$010 

CSRDBU 

CSRfcFG 

C$RESE 

CSREVI 

CSRFLA 

CSRPT 

CSSEFG 

CSSPRI 

CSSVEC 

CSTPRI 

DATA.L 

DAT. DM 

DFPT8L 

DIAGMC 

DIVMOO 

DRIVE. 

DROP.C 

DT.1 

DUMPER 


D1.TEM 

D2.TEM 

Ef .CON 
EF .NEW 
EF.PWR 
EF .RES 


CREATED BY 
CROSS REFERENCE 
VALUE 

* 000034 
= 000014 
= 000017 
= 000016 
= 000015 
= 000377 
= 000007 
= 000047 
= 000033 
= 000003 
= 000021 
= 000025 
= 000046 
= 000041 
= 000037 

* 000013 
= 013154 

016412 

002360 G 
= 000000 
004264 
015354 
015402 
015/64 
026302 G 


013374 

013376 

000036 

000035 

000034 

000037 


G 

G 

G 

G 


MACRO ON 30-MAR-82 AT 11:24 


REFERENCES 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 #6-13 

#6-13 6-65 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#98-2780 

#101-2946 103-3054 

417-19006 446-20582 
#6-119 

6-13 6-13 

#33-1091 35-1171 

#89-2262 *205-8019 

#89-2276 *203-7936 

#93-2485 526-24707 

#191-7313 196-7603 

220-8731 224-8930 

235-9515 236-9557 

256-10591 257-10611 
263-10944 264-10972 
270-11303 271-11321 
277-11661 277-11695 
283-11976 283-11992 
300-12852 300-12870 
308-13312 316-13716 
320-13959 324-14135 
348-15403 349-15427 
380-17130 383-17251 
424-19407 430-19713 
453-20976 454-20999 
469-21764 469-21799 
496-23215 502-23487 
529-24866 535-25185 
558-26383 558-26395 
#98-2785 *104-3082 

*398-180 77 *405-18428 
#98-2786 *104-3083 

*398-18078 *406-18433 
#94-2548 
#94-2549 
#94-2550 
#94-2547 


PAGE 

r.-EF 


K 11 


SEO 0552 


348-15380 

446-20619 


36-1202 

*205-8039 

*204-7972 

526-24709 

196-7622 

224-8939 

243-9901 

261-10818 

264-10977 

271-11345 

277-11700 

284-12013 

301-12906 

316-13730 

324-14157 

349-15451 

391-17675 

430-19748 

458-21212 

472-21966 

503-23518 

536-25245 


373-16711 

514-24074 


236-9552 
*204-7976 
527-24731 
199-7727 
224-8948 
243-9910 
262-10837 
268-11191 
71-11350 
78-11718 
84-12030 
>01-12939 
16-13743 


If:! 4115 


373-16732 

521-24425 


16-1 

? t *15475 
393-17798 

479-22306 

538-15354 


236-9565 

204-7979 

529-24840 

199-7744 

229-9189 

149-10238 

>62-10854 

tom 

M? 

S?i* 


*355-15744 *360-16052 
*417-19028 *447-20649 
*355-15745 *361-16057 
*417-19029 *447-20650 


397-18014 398-18054 404-18369 405-18405 


350-15495 

399-18128 

til* 

509-Ii|23 

542-25558 

367-16403 

*47S»22274 

367-16404 

*478-22275 


209-8208 

229-9198 

250-10262 

262-10871 

269-11227 

275-11588 

278-11747 

290-12354 

306-13192 

317-13779 

329-14385 

355-15776 

400-18154 

440-20290 

460-21302 

488-22808 

515-24170 

547-25797 


212-8370 

230-9211 

250-10282 

262-108 87 

269-11244 

276-11607 

279-11772 

292-12439 

306-13208 

318-13836 

335-14698 

361-16099 

406-18465 

441-20352 

460-21317 

494-23084 

522-24481 

547-25802 


216-8528 

235-9495 

253-10419 

263-10925 

269-11260 

276-11624 

282-11938 

295-12603 

307-13229 

318-13856 

336-14771 

369-16529 

411-18690 

447-20682 

463-21467 

495-23114 

528-24796 

551-25986 


219-8672 

235-9506 

256-10575 

263-10930 

270-11298 

276-11641 

283-11958 

300-12835 

307-13262 

319-13913 

342-15048 

374-16801 

418-19077 

453-20951 

466-21590 

496-23186 

528-24811 

557-26345 


*368-16457 *374-16759 *380-17092 *382-17209 
*515-24129 515-24135 *520-24392 521-24422 
*368-16458 *374-16760 *380-17093 *382-17210 
*515-24130 515-24136 *520-24393 521-24423 


Ht_1 1 CREATED BY 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
EF.STA = 000040 G 
E1G.FH = 010364 
ELV.FM = 010466 
ERRBLK 002160 G 

ERRMSG 002156 G 

ERRNBR 002154 G 

ERR1HR 002402 G 

ERRTYP 002152 G 

ERR.CH 017442 

EVL = 000004 G 
ESEND = 002100 
ESLOAD = 000035 
E2.TEM = 013400 


FINO.C 017660 
FIRST. 020262 
FIV.FM = 010304 


93-2513 205-8011 

484-22555 488-22802 


FMT.1 


006442 

#95-2593 

FMT.10 

X 

007116 

#95-2602 

FMT.1 1 

r 

007170 

#95-2603 

FMT.12 

X 

007224 

#95-2604 

FMT.13 

3 

0072 54 

#95-2605 

FMT.1 4 

s 

007330 

#95-2606 

FMT.15 

x 

007370 

#95-2607 

FMT.1 6 

x 

007436 

#95-2608 

FMT.17 

x 

007526 

#95-2609 

FMT.18 

x 

007562 

#95-2610 

FMT.1 9 

x 

007632 

#95-2611 

FMT.2 

X 

006506 

#95-2594 

FMT.20 

X 

007702 

#95-2612 

FMT.21 

x 

007754 

#95-2613 

FMT.22 

X 

010026 

#95-2614 

FMT.23 

x 

010072 

#95-2615 

FMT.24 

= 

010142 

#95-2616 

193-7450 

FMT.25 

2 

010166 

#95-2617 

FMT.26 

X 

010206 

#95-2618 

FMT.3 

r 

006574 

#95-2595 

FMT.4 

X 

006620 

#95-2596 

FMT.5 

X 


#95-2597 

FMT.6 

X 

006752 

#95-2598 

FMT.7 

X 


#95-2599 

FMT.8 

X 

007030 

#95-2600 

FMT.9 

X 


#95-2601 

FNC.1 

X 

012150 

#97-2728 


MACRO ON 30-MAR-82 AT 11:24 


REFERENCES 

#94-2546 

#95-2626 

#95-2629 

#6-96 

#6-96 

#6-96 

#6-161 

#6-96 

#110-3367 

#94-2559 

#6-13 

#6-13 

#98-2787 

*398-18079 

521-24424 

#112-3475 

#120-3807 

#95-2623 

262-10877 

270-11270 

277-11706 

300-12858 

317-13769 

440-20296 


PAGE 4 
CREF 


SEO 0553 


6-65 

*104-3084 

*406-18434 

494-23072 

261-10811 

212- 8376 
263-10897 
270-11309 
278-11724 

301- 12912 
317-13785 
454-21005 
220-8741 
335-14711 

213- 8385 
324-14146 
337-14807 
393-17809 
431-19764 
225-8970 
206-8073 

484-22577 

219-8690 

484-22584 

494-23094 

516-24184 

192-7383 

192- 7390 

193- 7457 
246-10078 
2 46-10088 

295-12613 

406-18478 

448-20695 

302- 12997 
551-26008 
308-13277 
253-10421 


*355-15746 *361-16058 367-16405 *368-16459 *374-16761 *380-17094 *382-17211 
*417-19030 *447-20651 *478-22276 *515-24131 515-24137 *520-24372 *520-24373 


496-23176 

268-11184 

236-9525 

263-10936 

271-11327 

278-11753 

302-12949 

324-14141 

460-21308 

528-24821 


275-11581 

256-10581 

264-10954 

271-11356 

283-11949 

306-13198 

324-14163 

463-21473 

538-25364 


323-14119 
257-10601 
264-10983 
275-11594 
283-1 1 964 
306-13215 
325-14191 


341-14976 

257-10617 

268-11197 

276-11613 

283-11982 

307-13235 

355-15782 

503-23524 

547-25815 


354-15696 

261-10824 

269-11216 

276-11630 

284-12003 

307-13268 

375-16811 

509-23829 


354-15718 

262-10843 

269-11233 

276-11647 

284-12020 

308-13318 

406-18471 


381 — 1 7* 64 
262-10860 
269-1 1250 
277-11667 
292-12445 
316-13749 
435-20030 


324-14168 325-14196 


230-9229 236-9532 243-9925 289-12303 291-12376 292-12452 319-13922 


489-22823 529-2484; 
236-9566 253-1043! 
489-22830 


342-15067 411-18709 436-20045 537-25263 


495-23125 496-23196 497-23231 502-23498 503-23530 508-23803 509-23835 
522-24491 


192- 7397 

193- 7464 


192-7404 

194-7475 


193- 7415 

194- 7483 


193- 7422 

194- 7492 


193- 7429 

194- 7499 


193-7436 193-7443 


430-19728 431-19771 431-19805 479-22325 

350-15511 458-21221 459-2124 7 460-21289 
551-26019 

308-13323 361-16108 441-20363 551-25994 


H 11 


ML11 

CREATED BY 

MACRO ON 30-MAR-82 AT 

11:24 PAGE 5 

SYMBOL 

CROSS REFERENCE 



CREF 

SYMBOL 

V4LUE 

REFERENCES 


306-13210 

307-13231 

FNC.IO 

r 012272 

#97-2737 

306-13194 

FNC.11 

= 012302 

#97-2738 

306-13211 

316-13731 

316-13745 

FNC.12 

= 012322 

#97-2739 

324-14137 

324-14159 

325-14187 

FNC.13 

= 012334 

#97-2740 

381-17143 

440-20295 

453-20954 

FNC.14 

= 012344 

#97-2741 

355-15777 

391-17680 


FNC.15 

= 012360 

#97-2742 

369-16530 

440-20300 

FNC. ’6 

= 012372 

#97-2743 

374-16803 



FNC.17 

= 012404 

#97-2744 

391-17678 

393-17801 

440-20294 

FNC.18 

= 012414 

#97-2745 

418-19083 

424-19413 


FNC.19 

= 012426 

#97-2746 

466-21591 



FNC.2 

= 012164 

#97-2729 

256-10577 

257-10597 

257-10613 

FNC.21 

= 012440 

#98-2751 

335-14704 



FNC.22 

= 012452 

#98-2752 

380-17131 



FNC.23 

= 012464 

#98-2753 

209-8210 

235-9517 

292-12441 

FNC.3 

= 012172 

#97-2730 

219-8676 

220-8734 

283-11945 

FMC .4 

= 012200 

#97-2731 

261-10820 

262-10873 

263-10893 

FNC.5 

= 012216 

#97-2732 

224-8952 

230-9215 

268-1 (193 


272-11377 

289-12289 

290-12358 

399-18130 



431-19792 

472-21969 



FNC.6 

= 012226 

#97-2733 

212-8371 

224-8951 

230-9214 



278-11749 

279-11774 

289-12288 

290-12357 

FNC.7 

= 012234 

#97-2734 

283-11944 

283-11994 

284-12015 

FNC.8 

= 012244 

#97-2735 

295-12604 

295-12607 

300-12836 

FNC.9 

= 012260 

#97-2736 




FORCE. 

020032 

#115-3603 

494-23065 

495-23163 

502-23469 

FOR. EC 

020210 

#118-3748 

535-25173 

536-25216 

537-25284 

FOR.FM 

= 010270 

#95-2622 

295-12608 

300-12840 

300-12876 



441-20357 

453-20956 

453-20981 

460-21322 



502-23492 

508-23797 

528-24801 

529-24871 

FSAU 

- 000015 

#6-13 




FSAUTO 

= 000020 

#6-13 




FtBGM 

= 000040 

#6-13 

6-39 

7-229 

7-277 

FSCLEA 

= 000007 

#6-13 




FSDU 

= 000016 

#6-13 




FSEND 

= 000041 

#6-13 

6-13 

6-13 

6-13 



6-13 

6-13 

6-13 

6-13 



7-250 

7-295 

7-348 


F SHARD 

= 000004 

#6-13 

7-229 

7-250 


FSHW 

= 000013 

#6-13 

6-119 

6-139 


FSJNIT 

■ ■ ^ 

#6-13 




FSJMP 

= 000050 

#6-13 




fsmod 


#6-13 

6-39 

7-348 


FSMSG 

= 000011 

#6-13 




FSPROT 

= 000021 

#6-13 

7-316 

7-322 


FSPWR 

1: fll'i.t.M l TiT » 

#6-13 




FSRPT 


#6-13 




FSSEG 

g "ri i'iIi [ »1P$PPP 

#6-13 




FSSOFT 

^ ViV 

#6-13 

7-277 

7-295 


FSSRV 

SfSiliVil iijflMBB 

#6-13 




FSSUB 


#6-13 




FSSW 


#6-13 

6-150 

6-165 


FSTEST 


#6-13 





SEG C5b 


307-13264 

316-13761 

308-13314 

317-13781 




453-20979 

454-21000 




441-20356 





300-12872 

301-12908 




283-11995 

263-10932 

269-11246 

400-18156 

284-12016 

264-10950 

270-11266 

406-18466 

284-12036 

264-10979 

270-11305 

418-19079 

468-21734 

473-21976 

271-11323 

430-19715 

472-21967 

271-11352 

430-19750 

275-11590 

335-14699 

284-12035 

3C0-12853 

276-11643 

411-18692 

529-24868 

277-11663 

424-19409 

277-11702 

435-20028 

278-11720 

472-21968 

508-23770 

538-25330 

329-14375 

466-21595 

542-25563 

546-25747 

329-14390 

469-21769 

337-14794 

470-21808 

342-15053 

479-22311 

393-17803 

495-23119 

7-316 

7-348 




6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-39 


i 


Hill CREATED BY 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
GD.BLK 020312 


GOOD. a 

GSCNTO 

GSDELM 

GSDISP 

GSEXCP 

GSHILI 

GtLOLI 

GSNO 

GSOFFS 


MACRO ON 30- MAR-82 AT 11:24 


HOE 

HW.OR. 
IBE 
I DU 
IER 
INTER 

INTERV 

IO.BUF 



000000 

000400 


GSOFSI = 000376 


GSPRMA 
GSPRMD 
GSPRML 
GSRADA 
GSRADB 
GSRADD 
GSRADL 
GSR ADO 
GSXFER 
GSYES 


= 000140 
= 000000 
= 000040 
= 000120 
= 000020 
= 000004 
= 000010 

= 000000 

= 100000 G 
013402 
= 010000 G 
= 000040 G 
= 020000 G 
= 013114 

002410 G 
014022 


I SR 
IXE 
ISAU 
ISAUTO 


= 000100 G 
= 004000 G 
= 000041 
= 000041 . 


REFERENCES 
#121-3858 
435-19990 
472-21957 
502-23470 
542-25537 
#88-2241 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
7-289 
#6-13 
7-289 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6-13 
#6' 13 
#6-13 
7-289 
#6-4 
7-231 
#94-2572 
#88-2234 
#94-2569 
#94-2562 
#94-2570 
#98-2779 
369-16528 
#6-164 
#89-2253 
*320-13938 
*405-18395 
*429-19678 
441-20323 
453-20943 
*483-22511 
*501-23420 
522-24473 
556-26290 
#94-2563 
#94-2568 
#6-13 
#6-13 


398-18041 

435-20007 

477-22237 

507-23722 

546-25750 

101-2948 


405-18396 

446-20607 

477-22242 

508-23775 

546-25761 

121-3860 


PAGE 6 
CREF 

> 410-18653 
r 452-20903 
? 483-22540 
i 513-24052 


SEQ 055' 


411-18674 

452-20925 

488-22791 

515-24154 


416-18989 

469-21755 

493-23038 

520-24387 


423-19351 

469-21790 

494-23066 

521-24461 


423-19368 429-19683 
470-21817 472-21947 


495-23164 

527-24735 


501-23421 

541-25522 


*205-8007 *369-16507 


7-242 

7-290 

7-243 

7-291 

7-244 

7-292 

7-245 

7-246 

7-247 

7-248 

7-242 

7-290 

7-242 

7-243 

7-243 

7-291 

7-244 

7-244 

7-292 

7-245 

7-245 

7-247 

7-246 

7-247 

7-248 

7-246 

7-248 

7-288 

7-289 

7-290 

7-291 

7-292 

7-245 

7-246 

7-242 

7-248 

7-243 

7-288 

7-244 

7-289 

7-247 

7-290 

7-291 

7-292 

7-242 

7-290 

7-243 

7-291 

7-244 

7-292 

7-245 

7-246 

7-247 

7-248 

6-8 

6-30 

6-48 

6-67 

6-105 

6-121 

6-152 

7-252 

r 341-14991 

7-279 

342-15035 

7-298 

7-324 

7-341 

7-351 


7-288 

7-288 


7-288 

#7-170 


196-7602 

380-17129 

93-2512 

101-2949 

320-13945 

*410-18652 

*434-19980 

*441-20334 

453-20968 

*483-22534 

*502-23463 

535-25176 

558-26365 


196-7621 

391-17674 

315-13690 

113-3492 

360-16004 

*411-18670 

*434-19981 

441-20339 

458-21199 

*484-22597 

502-23506 

536-25230 


199-7726 

400-18153 

556-26269 

*113-3493 

360-16028 

411-18681 

*435-19998 

*445-20568 

463-21457 

*488-22787 

*507-23721 

537-25286 


199-7743 

440-20289 

120-3810 

366-16376 

416-18945 

435-20015 

*445-20572 

465-21576 

*493-23037 

*508-23764 

538-25332 


219-8671 271-11370 279-11771 335-14697 


121-3861 

367-16429 

422-19309 

*439-20242 

*445-20573 

*469-21752 

*494-23059 

508-23811 

*<541-25521 


122-3911 

389-17547 

*423-19359 

439-20255 

*445-20574 

*469-21774 

494-23102 

*513-24043 

*546-25749 


*317-13795 

392-17712 

424-19389 

440-20268 

*452-20902 

*470-21816 

*495-23157 

515-24162 

550-25969 


317-13803 

*398-18039 

*429-19677 

*440-20316 

*452-20917 

*472-21946 

496-23207 

*520-24383 

*556-26282 


f 
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(SYMBOL 

CROSS REFERENCE 



CREE 





1 SYMBOL 

VALUE 


REFERENCES 








JtClN 


000041 


#6-13 








I sou 


000041 


#6-13 

#7-250 







I ISHRD 

s 

000041 


#7-229 







ISINI t 

= 

000041 


#6-13 



7-348 

#7-348 




ISMOO 

z 

000041 


#6-13 

6-39 

#6-39 




, ISMSG 

z 

000041 


#6-13 

#7-316 







ISPR07 

z 

000040 


#6-13 







1 ISP TAB 

= 

000041 


#6-13 








| ISPWR 

r 

000041 


#6-13 








1 ISRPT 

z 

000041 


#6-13 








ISSEG 

z 

000041 


#6-13 








' ISStTU 


000041 


#6-13 








, list r 

» 

000041 


#7-2 7 7 

#7-295 







ISSRV 

z 

000041 


#6-13 








issue 

z 

000041 


#6-13 








ISTST 

r 

000041 


#6-13 








JSJMP 

r 

000167 


#6-13 




459-21265 




LAST.b 


020344 


#122-3908 

379-17042 

379-1 7064 

381-17182 




LAU 


004704 


#44-188 

44-206 







IAUTO 


004660 


#42-87 

42-105 







ICLEAN 


113536 


#560-26478 

561-26502 







LDU 


004672 


#43-136 

43-154 


521-24421 





LD.LNG 


021354 


#133-4443 

367-16398 

515-24134 



235-9480 

242-9886 

LIMIT 


015400 


#89-2275 

*205-8013 

*205-8015 

212-8365 

224-8919 

229-9178 



290-12347 

292-12432 

307-13257 

308-13307 

324-14130 

324-14152 

324-14176 

335-14693 





348-1 *'398 

349-15422 

349-15446 

350-15470 

350-15490 

406-18458 

411-18685 

418-19070 





430-19708 

430-19743 

431-19785 

447-20675 

453-20946 

453-20971 

458-21207 

459-21233 





478-22295 

484-22559 

494-23077 

494-23105 

496-23181 

496-23210 

502-23480 

502-23509 





509-23818 

515-24165 

522-24476 

536-25238 

538-25347 

551-25981 



UNIT 


027650 


#203-7927 

206-8101 







LOAO.S 


016034 


#98-2795 

104-3111 







LOE 

z 

040000 

G 

#94-2571 








LOT 

z 

000010 

G 

#94-2560 








lrpt 


004646 


#41-34 

41-52 





307-13242 

308-13291 

LST.AR 


014020 


#89-2252 

*205-8009 

*205-8029 

*205-8030 

*206-8055 

*206-8056 



369-16513 

369-16522 

440-20279 

440-20283 

535-25200 

*205-8037 

460-21288 

*206-8063 

*206-8064 

lst.bl 


014014 


#89-2250 

122-3910 

*205-8010 

*205-8035 

*205-8036 



317-13807 

320-13952 

381-17151 

458-21185 

459-21269 

463-21447 

465-21577 





536-25223 

537-25287 

537-25304 

538-25327 

550-25958 

557-26298 

558-26376 


LST.OU 


015356 


#89-2264 

194-7487 

*206-8069 

*206-8071 

212-8338 




LlACP 


002110 

G 

#6-65 








LSAPT 

LSAU 


002036 

0047Q6 

G 

G 

#6-65 

6-65 

#44-206 







LttUT 


002070 

G 

#6-65 








l$auto 


004662 

G 

6-65 

#42-105 







lsccp 

lsclea 


& 

G 

G 

#6-65 

6-65 

#560-26497 







L SCO 


002032 

G 

#6-65 








LlOEPO 


002011 

G 

#6-65 








lsoesc 


002130 

G 

6-65 

#6-87 







lsoesp 

LWEVP 


002076 

002060 

G 

G 

#6-65 

#6-65 









SEQ 0556 


289-12278 

342-15043 

424-19402 

463-21462 

508-23785 


359-15983 

•206-8065 

535-25174 



Hill 

SYMBOL 

SYHBOl 

LSD1SP 

LSDLY 


LSDTP 

LSDTYP 

LSOU 

LSDUT 

LSDVTY 

LSEF 

LSENV1 

LSERRT 

LSETP 

LSEXP1 

Iff MP4 

LSEXP5 

l SHARD 

LSMIME 

LlHPCP 

LSHPTP 

l$HW 

LSICP 

iSJNJT 

LSLADP 

l SI AST 

LfLOAD 

iSLUN 

LSMREV 

L SHAME 

tfPRIO 

LSPROT 

ISPRT 

ISREPP 

LfREV 

LSRPT 

LSSOFT 

LSSPC 

ISSPCP 



CREATED BY 
CROSS REFERENCE 
VALUE 
002164 G 
002116 G 


MACRO ON 30-HAR-82 AT 11:24 


002040 
002034 
004674 
002072 
002122 
002052 
002044 
002152 
002102 
2046 
2064 
. 1066 
>02414 
002120 
002016 
002022 

ooliiS 

030714 

I 


§ 


REFERENCES 

6-65 

#6-65 

263-10904 

354-15701 

373-16716 

392-17718 

wm 

#6-65 

#6-65 

6-65 

#6-65 

6-65 

#6-65 

#6-65 

6-65 

#6-65 

#6-65 

#6-65 

#6-65 

6-65 

#6-65 

#6-65 

#6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

6-65 

#6-65 

#6-65 

#6-65 

6-65 

6-65 

#6-65 

#6-65 

#6-65 

#6-65 

6-65 

#6-65 

#6-65 

#6-65 

6-119 

6- 150 

7- 229 
7-277 


PAGE 8 
CREF 


c 12 


#6-103 

103-3031 

270-11277 

354-15722 

373-16736 

397-18019 

446-20623 


#43-154 
#6-80 

#6-96 

7-229 

6-119 

#206-8101 

#561-26527 

#7-316 


103-3058 

277-11674 

355-15737 

374-16752 

398-18058 

447-20642 


103-3071 

282-11926 

360-16010 

379-17047 

398-18070 

478-22251 


209-8196 

328-14354 

360-16033 

379-17068 

405-18378 

478-22267 


212-8355 

334-14633 

360-16045 

580-17085 

405-18409 

514-24078 


216-8516 

341-14982 

367-16410 

381-17186 

405-18421 

515-24141 


#7-229 


#6-119 


#41-52 

7-277 


6-150 


203-7920 

#6-139 

#6-165 

#7-250 

#7-295 


#7-277 


#6-150 


SEQ 0557 


220-8711 256-10563 
341-15006 341-15019 
367-16433 368-16450 
382-17202 389-17553 
417-19010 417-19021 
521-24429 557-26316 


204-7942 204-7987 


0 12 


ML 1 1 

SYMBOL 

SYMBOL 

MB.DIS 

HEH.AR 

ML.DUT 


HL.LUN 


NL.REG 


CREATED BY 
CROSS REFERENCE 
VALUE 
= 005570 
= 013052 
016032 


MATRO ON 30-NAR-82 AT 11:24 


016030 


015404 


REFERENCES 

#95-2585 

#98-2778 

#93-2509 

196-7586 

219-8667 

234-9446 

263-10916 

289-12261 

301-12921 

317-13811 

359-15991 

381-17177 

410-18647 

435-20003 

458-21193 

483-22536 

520-24376 

541-25512 

#93-2508 

204-7981 

225-8989 

342-15082 

424-19437 

#89-2278 

103-3067 

115-3631 

120-3811 

135-4569 

138-4728 

141-4888 

144-5047 

147-5200 

149- 5311 

150- 5374 
*153-5538 

156- 5656 

157- 5731 
160-5844 
167-6170 

169- 6288 

170- 6316 
173-6475 
173-6494 
175-6575 

178- 6691 

179- 6716 

196-7592 

199-7712 


PASE 9 
CREF 


SEC 0558 


319-13914 

103-3049 
199-7713 
219-8683 
235-9468 
264-10963 
290-12330 
301-12928 
323-14114 
360-16022 
389-17539 
411-18663 
439-20247 
459-21260 
487-22762 
521-24457 
542-25533 
196-7609 
*204-7985 
230-9253 
356-15790 
432-19835 
01-2947 
03-3068 
15-3634 
21-3859 
35 4571 
38-4730 
41-4890 
44-5049 
47-5206 
49-5314 

52- 5464 

53- 5544 

56- 5658 

57- 5733 
60-5846 
67-6176 


104-3120 
*205-8002 
219-8689 
240-9769 
268-11179 
291-12403 
302-12963 
328-14336 
366-16369 
392-17705 
416-18985 
440-20310 
463-21451 
493-23047 
526-24695 
546-25739 
197-7632 
*204-7986 
236-9573 
362-16124 
436-20060 
101-2948 
104-3082 
115-3635 
121 -3860 
135-4572 
138-4731 
141-4891 
144-5050 
147-5208 
149-5315 

152- 5470 

153- 5546 
156-5659 
151-5738 
160-5847 


169-6292 

206-8078 

220-8702 

249-10227 

270-11289 

295-12587 

302-12967 

333-14606 

367-16422 

397-18006 

417-18998 

441-20329 

465-21571 

495-23149 

529-24857 

546-2575 7 

199-7733 

204-798 7 

243-9948 

369-16537 

441-20367 

101-2949 

104-3083 

118-3749 

121-3861 

135-4574 

138-4733 

141-4893 

144-5052 

147-5209 

149-5320 

152- 5472 

153- 5547 
156-5662 
158-5740 
160-5850 



170- 6317 
209-8188 
220-8721 
250-10252 
271-11336 
299-1 28C6 
302-12974 
340-14966 
373-16702 
398-18035 
422-19299 
445-20560 
468-21743 
501-23452 
535-25165 
550-25963 
199-7750 
204-7990 
264-10995 
375-16815 
448-20721 
101-2950 
104-3084 
118-3757 
121-3862 
137-4668 
140-4828 
143-4987 

146- 5147 

147- 5211 
150-5362 
152-5473 
154-5553 
156-5663 
158-5741 
160-5851 
167-6181 
169-6296 

171- 6368 

173- 6481 

174- 6509 
176-6584 
178-6699 

mat 

193-7433 

193-7462 

196-7585 

196-7596 

199-7718 


173-6482 

212-8348 

220-8726 

250-10272 

275-11576 

299-12813 

306-13181 

341-14997 

373-16728 

398-18047 

423-19364 

446-20599 

469-21785 

507-23753 

536-25208 

556-26278 

*203-7935 

206-8072 

272-11389 

400-18144 

479-22343 

103- 3048 

104- 3119 
118-3758 
122-3909 
137-4670 
140-4830 
143-4989 

146- 5149 

147- 5212 
150-5368 
152-5476 

*154-5554 

*156-5668 

158-5742 

160-5856 

167-6182 

169-6302 

171-6370 

173- 6484 

174- 6510 
*178-668? 

178-6705 

182-6869 

192- 7401 

193- 7434 

194- 7472 
196-7588 
196-7598 
199-7719 


174- 6507 
216-8509 
220-8740 
253-10401 
277-11686 
299-12820 
307-13248 
347-15328 
379-17033 
404-18362 
423-19373 
446-20612 
472-21941 
513-24048 
537-25276 
557-26301 

*204-7941 

209-8223 

279-11786 

407-18501 

485-22612 

103- 3051 

104- 3122 
120-3808 
122-3910 
137-4671 
140-4831 
143-4990 
146-5150 

149- 5302 

150- 5370 
152-5477 
154-5555 
156-5669 
158-5743 
160-5857 
169-6285 
169-6304 
171-6371 
173-6485 

175- 6566 

178- 6688 

179- 6711 
182-6871 

192- 7402 

193- 7440 

194- 7473 
196-7589 
196-7613 
199-7720 


178-6695 

219-8661 

223-8898 

256-10556 

278-11733 

300-12884 

308-13298 

354-15688 

379-i7059 

405-18390 

429-19668 

452-2089 7 

472-21952 

513-24057 

538-25320 

204-7942 
213-8399 
292-12472 
412-18 727 
489-22844 

103- 3052 

104- 3123 
120-3809 
122-3911 
137-4674 
140-4834 
143-4993 
146-5153 

149- 5308 

150- 5371 
152-5482 

156- 5649 

157- 5724 
160-5837 
163-5990 

169- 6286 

170- 6309 

171- 6373 
173-6486 

*175-6567 

178- 6689 

179- 6712 
182-6872 

192- 7408 

193- 7441 

194- 7480 
196-7590 
196-7615 
199-7721 


1 79-6723 
219-8665 
229-9161 
261-10806 
282-11918 
301-12895 
315-13700 
354-15713 
381-17158 
405-18401 
434-19971 
452-20910 
477-22206 
515-24150 
538-25339 

204-7945 

216-8541 

337-14819 

419-19120 

103-3055 

115-3620 

120-3810 

122-3912 

137-4675 

140-4835 

143-4994 

146-5154 

149- 5310 

150- 5373 
153-5537 

*156-5650 

157-5725 

160-5838 

166-6125 

169- 6287 

170- 6312 

171- 6374 
173-6492 
175-6573 

178- 6690 

179- 6715 
182-6875 
192-7409 
19W447 
194-7481 
196-7591 
196-7617 
199-7722 



E 12 


HIM 

SYMBOL 

SYMBOL 


CREATED BY 
CROSS REFERENCE 
VALUE 


MACRO ON 30-MAR-82 AT 11:24 


REFERENCES 

199-7737 

209-8192 

216-8508 

219-8666 

224-8905 

234-9449 

240-9768 

249- 10226 

250- 10256 
253-10404 
257-10606 
262-10882 
264-10965 
269-1122' 
271-11333 
275-11582 
277-11688 
282-11917 
28 4-12008 
291-12375 
295-12590 
300-12847 
302-12960 
306-13203 
308-13300 
315-13706 
317-13814 
323-14113 
328-14339 
334-14613 
341-14978 
341-15016 
348-15386 

354- 15708 

355- 15746 
360-16004 
360-16028 

366- 16371 

367- 16406 
367-16430 
373-16708 
573-16744 
579-17039 
579-17065 
581-17157 

11-17181 
59-17542 

390- 17604 

391- 17651 

392- 17712 

393- 17766 
397-18011 


PAGE 10 
CREF 


SEC 0559 


199-7739 

209-8193 

216-8511 

220-8706 

225-8969 

234-9460 

240-9771 

249- 10229 

250- 10257 
253-10407 
261-10905 

263- 10911 

264- 10966 
269-11239 
271-11335 
275-11583 
277-11689 
282-11920 
284-12025 
291-12402 
295-12597 
300-12864 
302-12965 

307- 13224 

308- 13301 
315-13707 
318-13825 
323-14116 
328-14340 
334-14615 
341-14991 
341-15026 
354-15687 
354-15712 

359- 15990 

360- 16005 
360-16029 

366- 16372 

367- 16417 
367-16442 
373-16709 
373-16745 
379-17040 
379-17077 
381-17160 
381-17115 

389- 17545 

390- 17609 

391- 17656 

392- 17714 

393- 17768 
397-18012 


*204-7963 

209-8203 

216-8512 

220-8707 

229-9160 

234-9461 

240-9772 

249- 10230 

250- 10271 
253-10426 
261-10808 

263- 10913 

264- 10967 
269-11255 
271-11338 

276- 11602 

277- 11690 
282-11921 
289-12260 
291-12405 
295-12598 
300-12865 
302-12966 

307- 13247 

308- 13302 
316-13724 
318-13829 
323-14117 
328-14347 
334-14630 
341-14992 
347-15327 
354-15690 
354-15715 

359- 15993 

360- 16006 
360-16030 

366- 16373 

367- 16421 
367-16443 

373- 16710 

374- 16759 

379- 17041 

380- 17082 

381- 17161 

382- 17198 

389- 17546 

390- 17618 

391- 17657 

392- 17715 

393- 17774 
397-18013 


206-8077 

212-8347 

216-8513 

220-8708 

229-9163 

234-9463 

243-9924 

249- 10231 

250- 10274 
256-10555 
261-10809 
263-10915 
268-11178 

270- 11284 

271- 11339 
276-11619 
278-11730 
282-11922 
289-12263 
291-12406 

299- 12805 

300- 12883 

306- 13180 

307- 13250 

308- 13303 
316-13725 
318-13849 
323-14120 
328-14349 
334-14640 
341-14996 
347-15330 
354-15691 
354-15716 

359- 15994 

360- 16017 
360-16041 
146-16374 

367- 16424 

368- 16457 

373- 16712 

374- 16760 

379- 17043 

380- 17092 

381- 17163 

382- 17199 

389- 17547 

390- 17619 

391- 17664 

392- 17725 

393- 17776 
397-18015 


206-8080 

212-8350 

216-8523 

220-8723 

229-9164 

235-9470 

246-10050 

249- 10232 

250- 10275 
256-10558 
261-10812 
263-10918 
268-11181 

270- 11286 

271- 11340 
276-11636 
278-11732 
282-11923 
289-12264 
291-12417 
299-12808 
301-12918 

306- 13183 

307- 13251 

308- 13304 
316-13738 
318-13851 
323-14121 
328-14351 

340- 14965 

341- 14999 
347-15331 
354-15692 
354-15717 

359- 15995 

360- 16021 
360-16042 

366- 16375 

367- 16425 

368- 16458 

373- 16723 

374- 16761 

379- 17054 

380- 17093 

381- 17165 


389- 17549 

390- 17623 
392-17704 

392- 17741 

393- 17782 
397-18026 


206-8081 

212-8351 

219- 8660 

22 0- 8724 
230-9228 
235-9471 
246-10057 

249- 10233 

250- 10276 
256-10559 
261-10813 
263-10919 
268-11182 

270- 11288 

271- 11366 

277- 11656 

278- 11735 
282-11933 
289-12302 
291-12418 
299-12809 
301-12919 

306- 13184 

307- 13252 

315- 13699 

316- 13754 
319-13900 
324-14127 
328-14361 

340- 14968 

341- 15000 
348-15381 
354-15693 
354-15719 

359- 15996 

360- 16024 
360-16052 

366- 16376 

367- 16426 

368- 16459 
373-16727 
379-17032 
379-17058 
510-17094 
311-17169 
382-17210 

389- 17550 

390- 17631 
392-17707 

392- 17754 

393- 17790 
398-18034 


209-8187 

212-8352 

219- 8663 

220- 8725 
**34-9439 

236-9531 

246-10060 

250-10251 

250-10277 

256-10*60 

261-10828 

263-10920 

268-11185 

270-11291 

275-11575 

277- 11681 

278- 11736 
283-11953 
290-12329 
292-12451 
299-12810 
301-12933 

306- 13185 

307- 13253 
315-13702 
317-13774 
319-13901 
324-14173 
329-14380 

340- 14969 

341- 15001 
348-15383 

354- 15694 

355- 15734 
360-16001 

360- 16025 

361- 16057 
367-16403 
367-16427 
373-16701 
373-16730 
379-17035 
379-17061 
381-17153 

381- 17176 

382- 17211 

389- 17560 

390- 17632 

392- 17708 

393- 17760 

397- 18005 

398- 18037 


209-8190 
212-8362 
219-8664 
>3-8897 
i-9445 
>-9551 
>46-10066 
J50-10254 
252-10396 
256-10570 
262-10149 
264-10960 
268-11186 
270-11292 
275-11571 

277- 11683 

278- 11737 
283-11971 
290-12332 
295-12586 
299-12811 
301-12934 

306- 13186 

307- 13254 
315-13703 
317-13810 
319-13921 
328-14335 
333-14605 
341-14975 
341-15003 
348-15384 

354- 15695 

355- 15744 
360-16002 

360- 16026 

361- 16058 
367-16404 
367-16428 
373-16704 
373-16731 
379-17036 
379-17062 
381-17154 
381-17179 

389- 17538 

390- 17595 
390-17637 

392- 17710 

393- 17762 

397- 18008 

398- 18038 


209-8191 

213-8384 

219-8665 

223-8900 

234-9448 

236-9552 

246-10076 

250-10255 

253-10403 

256-10586 

262-10866 

264-10962 

268-11201 

270-11293 

275-11579 

277-11685 

279-11767 

283-11987 

290-12333 

295-12589 

299-12812 

302-12959 

306-13187 

308-13297 

315-13704 

317-13813 

320-13948 

328-14338 

334-14612 

341-14977 

341-15013 

348-15385 

354- 15697 

355- 15745 
360-16003 
360-1 o027 

366- 16368 

367- 16405 
367-16429 
373-16705 
373-16733 
379-17038 
379-17063 
381-17155 
381-17180 

389- 17541 

390- 17603 

391- 17650 

392- 17711 

393- 1776', 

397- 18009 

398- 18040 


MX 



«MV>i0^v/ivniui 
















*111 CREATED 8 ¥ 
SYNBOl CROSS REFERENCE 
SYNBOl VALUE 

NSGH1 002510 
NSGH2 002556 
NSGH3 002624 
NSGH4 002670 
NSGH5 002736 
NSGH6 003004 
NSGH7 003052 
NSGS1 003160 
HSGS2 003224 
NSGS3 003270 
NSGS4 003334 
NSGS5 003400 
N5DUNP 026312 
NI8.SA 013374 


NIN.FN = 010410 
NO. INI = 005470 
ONEFIL = 000001 
ONE PAS 002406 G 

ONE.FN = 010240 


OP. NUN 014002 


NACRO ON 30-NAR-82 AT 


OSAPTS 

01AU 

0S8GNR 

0S6GNS 

OSOU 

OSERRT 

OSGNSW 

0$P01N 

OSSETU 

PAR.DI 

PD. TEN 


= 000001 
= 000001 
= 000001 
= 000001 
= 000001 
* 000001 
r 000001 
= 000001 
= 000001 
014010 
015342 


PHR.1 r 011610 


PHR.10 

PHR.11 

PHR.12 

PHR.13 

PHR.14 


012006 

012020 

012036 

012060 

012104 


REFERENCES 

557-26340 

7-242 

7-243 

7-244 

7-245 

7-246 

7-247 

7-248 

7-288 

7-289 

7-29C 

7-291 

7-292 

191-7313 

#88-2232 

99-2852 

126-4108 

130-4309 

*133-4471 

*134-4519 

#95-2627 

#95-2584 

#2-4 

#6-163 

#95-2619 

317-13816 

557-26347 

#88-2238 

389-17535 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#89-2247 

#89-2256 

*379-17077 

399-18089 

514-24089 

#97-2713 

278-11722 

329-14388 

496-23187 

#97-2722 

#97-2723 

#97-2724 

#97-2725 

#97-2726 


558-26368 

#7-259 

#7-260 

#7-261 

#7-262 

#7-263 

#7-264 

#7-265 

#7-304 

#7-305 

#7-306 

#7-307 

#7-308 

#192-7374 

98-2785 

100-2866 

126-4115 

130-4311 

*134-4483 

*134-4520 

320-13960 

4-1152 

93-2512 

192-7379 

318-13838 

558-26385 

*205-8006 

391-17696 

#6-46 

#6-46 

#6-46 

#6-46 

#6-46 

#6-46 

#6-46 

#6-46 

#6-46 

*205-8000 

*103-3067 

380-17100 

*405-18417 

*514-24090 

261-10822 

283-11980 

349-15456 

369-16531 

528-24812 

516-24177 

522-24484 

192-7378 


11:24 PA6E 12 
CREF 

558-26370 560-26478 


98-2786 

100-2872 

126-4126 

130-4318 

*134-4484 

479-22316 


5- 1153 

204- 7977 
196-7605 
318-13844 
558-26397 

205- 8025 

6- 65 
6-65 
6-65 
6-65 
6-65 
6-65 
6-65 
6-46 
6-65 

MSf 

*382-17198 

406-18440 

521-24440 

g 2-10841 
5-12606 
0-15480 

391-17681 

535-25186 


98-2787 

100-2882 

126-4134 

130-4324 

*134-4487 


196-7624 

318-13858 

205-8031 


468-21730 

*360-16041 

382-17217 

*417-19017 

*521-24441 

264-10952 

300-12838 

350-15500 

440-20301 


12 



H U 


Mill 

CREATED BY 

MACRO ON 30-MAR-82 AT 

11:24 PAGE 13 

SYMBOL 

CROSS REFERENCE 



CREF 

SYMBOL 

VALUE 


REFERENCES 


246-10087 


PHR .15 

= 012136 


#97-2727 

246*10077 

263-10934 

PHR.2 

= 011626 


#97-2714 

256-10579 

262-10858 



277-11704 

273-11751 

300-12874 

301-12910 

PHR. 3 

= 011644 


#97-2715 

2U-8529 

219-8678 

224-895; 

PHR. 4 

= 011676 


#97-2716 

205-8209 



292-12444 

342-15049 

355-15780 

375-16809 




431-19794 

433-20025 

536-25246 

551-25987 

PHR. 5 

= 011714 


#97-2717 

212-8374 

257-10599 

257-10615 



270-11268 

2r2-11I79 

336-13213 

276-11645 

277-11665 




284-12018 

307-13266 

316-13763 




495-23115 

547-25804 


276-11608 

PHR. 6 

= 011726 


#97-2718 

262-10838 

269-11211 

PHR. 7 

= 011740 


#97-2719 

302-12986 



PHR. 8 

= 011762 


#97-2720 

453-20955 



PHR. 9 

= 011774 


#97-2721 

453-20980 



PNT 

= 001000 

G 

#94-2566 




PR1 

= 002000 

G 

#94-2567 




PR100 

= 000000 

G 

#94-2558 




PRI01 

* 000040 

G 

#94-2557 




PR 1 02 

- 000100 

G 

#94-2556 




PRI03 

= 000140 

G 

#94-2555 




PRI04 

= 000200 

G 

#94-2554 




PR 1 05 

= 000240 

G 

#94-2553 




PRI06 

= 000300 

G 

#94-2552 




PR 1 07 

= 000340 

u 

#94-2551 


245-10044 


PRSN 

002400 

G 

#6-160 

93-2512 

204-7950 

PTBL.P 

014000 


#88-2236 

*204-7947 

204-7948 


205-8001 

205-8003 

205-8016 

206-8066 

PUP. 88 



#95-2589 

557-26323 

557-26306 


PWR.OF 

i ■ ii, rlri 


#94-2575 

317-13815 


PVR. ON 

,T4tVl 


#94-2576 

318-13843 



P. AAA 

■' - MililTi 


#66-960 

94-2573 



P.AAB 

005012 


#66-980 

94-2574 



P.AAC 

005112 


#66-1002 

94-2575 



P.AAD 



#67-1025 

94-2576 



P.AAE 

005272 


#67-1044 

94-2577 



P.AAF 



#67-1057 

94-2578 



P.AAG 



#68-1076 

95-2583 



P.AAH 

005470 


#68-1091 

95-2584 



P.AAI 

005570 


#68-1113 

95-2585 



P.AAJ 

005652 


#69-1134 

95-2586 



P.AAJC 

XffHri •jrh 


#69-1148 

95-2587 



P.AAL 

, i 


#69-1160 

95-2588 



P.AAM 

'I I. ? 


#70-1184 

95-2589 



P.AAN 



#70-1203 

95-2590 



P.AAO 

^ir.rlr. 


#70-1223 

95-2591 



P.AAP 

1 i 1 ^ 


#71-1247 

95-2592 



P.AAO 



#71-1271 

95-2593 



P.AAft 

P.AAS 



#71-1283 

#72-1305 

95-2594 

95-2595 



P.AAT 


#72-1312 

95-2596 



P.AAU 

iW»;» v Av» 


#72-1320 

95-2597 




SEQ 0562 


>64-10981 
*02-1 29*7 


769-11231 

306-13196 


>70-11307 

*16-13747 


>71-11354 

*24-14139 


276-11628 

460-21306 


230-9217 

380-17133 

262-10855 

279-11776 

317-13783 

276-11625 


236-9524 

399-18134 

262-10875 

283-11947 

325-14189 


236-9558 

400-18160 

263-10895 

283-11959 

349-15412 


289-12291 290-12360 
430-19717 430-19752 

269-11228 269-11248 
283-11962 284-12001 
349-15432 458-21214 


283-11977 302-12990 


204-7951 204-7953 *204-7992 205-7997 205-7999 


mlii created by 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
P. AAV 006752 

P.AAW 007002 

P. AAV 007050 

P.AAY 007064 

P.AA2 007116 

P.ABA 007170 

P.ABB 00722s 

P. ABC 007254 

P.ABO 007330 

P.ABE 007370 

P.A8F 007436 

P.ABG 007526 

P.ABH 007562 

P.ABI 007632 

P.A8J 007702 

P.ABA 007754 

P.ABL 010026 

P.ABM 010072 

P ABN 010142 

P.ABO 010166 

P.ABP 010206 

P.ABO 010240 

P.ABR 010246 

P.ABS 010256 

P.ABT 010270 

P.ABU 010304 

P.ABV 010322 

P.ABU 010342 

P.ABX 010364 

P.ABY 010410 

P.ABI 010436 

P.ACA 010466 

P.ACB 010520 

P.ACC 010524 

P.ACO 010536 

P.ACE 010544 

P.ACF 010552 

P.ACG 010560 

P.ACH 010566 

P.ACI 010602 

P.ACJ 010616 

P.ACA 010630 

P.ACL 010640 

P.ACM 010650 

P.ACN 010660 

P.ACO 010664 

P.ACP 010676 

P.ACO 010704 

P.ACP 010712 

P. ACS 010724 

P. ACT 010730 

P.ACU 010736 


MACRO ON 30-MAA-82 AT 11:2*. 


REFERENCES 

#77-1342 

#73-1354 

#73-1362 

#73-1372 

#73-1381 

#73-1395 

#74-1409 

#74-1417 

#74-1432 

#74-1443 

#74-1456 

#75-1479 

#75-1489 

#75-1503 

#76-1521 

#76-1535 

#76-1549 

#76-1561 

#77-1579 

#77-1586 

#77-1592 

#77-1601 

#77-1603 

#77-1606 

#77-1610 

#77-1614 

#77-1619 

#77-1625 

#78-1635 

#78-1642 

#78-1650 

#78-1658 

#78-1667 

#78-1669 

#78-1673 

#78-1675 

#78-1677 

#78-1679 

#78-1681 

#79-1689 

#79-1693 

#79-1697 

#79-1700 

#79-1703 

#79-1706 

#79-1708 

#79-1712 

#79-1714 

#79-1716 

#79-1720 

#79-1722 

#79-1724 


PAGE 14 
CREF 


95-2598 

95-2599 

95-2600 

95-2601 

95-2602 

95-2603 

95-2604 

95-2605 

95-2606 

95-2607 

95-2608 

95-2609 

95-2610 

95-2611 

95-2612 

95-2613 

95-2614 

95-2615 

95-2616 

95-2617 

95-2618 

95-2619 

95-2620 

95-2621 

95-2622 

95-2623 

95-2624 

95-2625 

95-2626 

95-2627 

95-2628 

95-2629 

95-2630 

95-2631 

95-2632 

95-2633 

95- 2634 

96- 2639 
96-2640 
96-2641 
96-2642 
96-2643 
96-2644 
96-2645 
96-2646 
96-2647 
96-2648 
96-2649 
96-2650 
96-2651 
96-2652 
96-2653 


SEO 0563 


I 12 



ML11 c 

SYMBOL CROSS 

SYMBOL VALf 
P.ACV 0 

P.ACW Oil 

P.ACX OK 

P.ACY OK 

p.acz or 

P.ADA or 

\ A08 or 

V .ADC or 

p.aoo or 

P.ADE or 

P.AOF or 

P.ADG or 

P.ADH or 

p.aoi or 

p.aoj or 

p.aox or 

p.aol or 

p.adm or 

ADN Oil 

. .*DO or 

P.ADP Oil 

P.ADC or 

P.AOR Oil 

P.ADS Oil 

P.ADT Oil 

P.aDU or 

P.ADV or 

P.ADW or 

p.aox or 

P.AOY or 

p.aoz or 

P.AEA or 

P.AEB or 

P.AEC or 

P.AEO or 

P.AEE or 

P.AEF oil 

P.AEG or 

r. aeh or 

P.AEI or 

p.aej or 

P.AEX or 

P.AEL or 

p.aem or 

P.AEN or 

p.aeo or 

p.aep or 

p.aeo or 

P.AER or 

p.aes or 

P.AET or 

P.AEU or 
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SYMBOL CROSS REFERENCE CREF 


SYMBOL 

VALUE 

REFERENCES 









P.AGV 

012612 

#86-2092 

98-2766 








P.AGU 

012620 

#86-2094 

98-2767 








P.AGX 

012626 

#86-2096 

98-2768 








P.AGY 

012634 

# 86-2098 

98-2769 








P.AG2 

012642 

#86-2100 

98-2770 








P.AHA 

012652 

#86-2103 

98-2771 








P.AHB 

012660 

#86-2105 

98-2772 








P.AHC 

012666 

#86-2107 

98-2773 








P.AHD 

012676 

#86-2110 

98-2774 








P.AHE 

012706 

#86-2113 

98-2775 








P.AHF 

012750 

#86-2125 

98-2776 








P.AHG 

013012 

#87-2141 

98-2777 








P.AHH 

013052 

#87-2152 

98-2778 








P.AMI 

013114 

#87-2164 

98-2779 








P.AHJ 

013154 

#87-2175 

98-2780 








P.AHK 

013214 

#87-2186 

98-2781 








P.AHL 

013250 

#88-2200 

98-2782 








P.AHM 

013302 

#88-2209 

98-2783 








P.AHN 

013330 

#88-2217 

98-2784 








P.CAL 

015366 

#89-2270 

108-3277 

*108-3278 

*108-3279 

111-3406 

*483-22549 

484-22581 

*488-22800 

489-22827 

P.CNT 

015376 

#89-2274 

*212-8336 

*212-8364 

212-8365 

*223-8891 

*224-8918 

224-8919 

*229-9153 

*229-9177 



229-9178 

*234-9438 

*235-9479 

235-9480 

*240-9766 

*242-9885 

242-9886 

*288-12252 

*289-12277 



289-12278 

*290-12346 

290-12347 

*292-12431 

292-12432 

*307-13241 

*307-13256 

307-13257 

*308-13288 



*308-13306 

308-13307 

*323-14105 

*324-14129 

324-14130 

*324-14151 

324-14152 

*324-14175 

324-14176 



*333-14604 

*335-14692 

335-14693 

*340-14964 

*342-15042 

342-15043 

*347-15323 

*348-15397 

348-15398 



*349-15421 

349-15422 

*349-i5445 

349-15446 

*350-15469 

350-15470 

*350-15489 

350-15490 

*404-18355 



*406-18457 

406-18458 

*410-18641 

*411-18684 

411-18685 

*415-18934 

*418-19069 

418-19070 

*422-19297 



*424-19401 

424-194 02 

*429-19665 

*430-1970 7 

430-19708 

*430-19742 

430-19743 

*431-19784 

431-19785 



*445-20557 

*447-20674 

447-20675 

*452-20895 

*453-20945 

453-20946 

*453-20970 

453-20971 

*458-21184 



*458-21206 

458-21207 

*459-21232 

459-21233 *463-21446 

*463-21461 

463-21462 

*477-22200 

*478-22294 



478-22295 

*483-22507 

*484-22558 

484-22559 *493-23035 

*494-23076 

494-230 77 

*494-23104 

494-23105 



*496-23180 

496-23181 

*496-23209 

496-23210 *501-23418 

*502-23479 

502-23480 

*502-23508 

502-23509 



*507-23719 

*508-23784 

508-23785 

*509-23817 

509-23818 

*513-24037 

*515-24164 

515-24165 

*520-24371 



*522-24475 

522-24476 

*535-25162 

*536-25237 

536-25238 

*538-25346 

538-25347 

*550-25957 

*550-25976 



551-25981 









P.GEN 

015374 

#89-2273 

111-3378 

111-3406 

*483-22546 

484-22574 

*488-22797 

488-22816 



RAS.IN 

015346 

#89-2259 

*205-8021 

*205-8041 

369-16509 

439-20243 

439-20253 




RD.CS1 

021762 

#137-4661 

189-7216 

242-9847 







RD.DA 

022316 

#143-4980 

189-7226 

242-9861 







RD.DAT 

015352 

#89-2261 

*137-4676 

137-4677 

*140-4836 

140-4837 

*143-4995 

143-4996 

*146-5155 

146-5156 



*149-5316 

149-5317 

*152-5478 

152-5479 

*156-5664 

156-5665 

*160-5852 

160-5853 

*163-5990 



163-5991 

*166-6125 

166-6126 

*170-6312 

170-6313 

*174-6502 

174-6503 

*179-6717 

179-6718 



*182-6877 

182-6878 

225-8963 

230-9222 

236-9529 

243-9918 

289-12296 

290-12365 

292-12449 



319-13919 









RD.DS 

025216 

#182-686 2 

190-7270 








RD.D1 

024104 

#169-6283 

190-7275 








RD.D2 

024416 

#173-6473 

190-7280 








RD.D3 

024744 

#178-6685 

190-7285 








RO.EE 

023760 

#♦66-6123 

189-7256 








RD.EL 

023716 

#163-5988 

189-7261 








RD.ER 

022140 

#140-4821 

189-7221 

242-9854 







RD.E1 

023074 

#152-5462 

189-7236 

242-9875 








SEQ 0566 



M 12 


PL 11 


CREATED BY 

MACRO ON 30-MAR-82 AT 

11:24 PAGE 18 


SYM80L 

CROSS REFERENCE 



CREF 


SYMBOL 

VALUE 

REFERENCES 





RD.E2 


023314 

#156-5647 

189-7241 

242-9882 



RD.MR 


022474 

#146-5140 

189-7231 




RD.PA 


022666 

#149-5300 

189-7246 

2 / *2-9868 



RD.PD 


023556 

#160-5835 

189-7251 




RD.REG 


025712 

#188-7189 

224-8915 

229-9174 

235-9476 

289-12274 

REGDMP 


002404 G 

#6-162 

93-2512 

192-7375 



REG. IN 


015360 

#89-2266 

169-6289 

173-6479 

1 78-0692 

*291-12397 

REG.1 

x 

012500 

#98-2754 

192-7389 




REG. 10 

X 

012570 

#98-2763 





REG. 11 

X 

012576 

#98-2764 





REG. 12 

X 

012604 

#98-2765 





REG. 13 

x 

012612 

#98-2766 





REG. 14 

x 

012620 

#98-2767 

194-7474 

528-24814 

529-24870 


REG. 15 

X 

012626 

#98-2768 

194-7482 

535-25188 

536-25247 

538-25357 

REG. 16 

X 

012634 

#98-2769 





REG. 17 

x 

012642 

#98-2770 

193-7421 

209-8211 



REG. 18 

x 

012652 

#98-2771 

192-7396 




REG. 19 

x 

012660 

#98-2772 

192-7403 




REG. 2 

x 

012510 

#98-2755 

193-7428 

300-12857 



REG. 20 

X 

012666 

#98-2773 

194-7491 




REG. 21 

X 

012676 

#98-2774 

194-7498 




REG. 3 

X 

012516 

#98-2756 

193-7435 

284-12031 



REG. 4 

X 

012524 

#98-2757 

193-7449 




REG. 5 

x 

012532 

#98-2758 

193-7442 

301-12940 

302-12987 


REG. 6 

x 

012540 

#98-2759 

193-7414 

219-8673 

459-21241 

460-21283 

REG. 7 

X 

012546 

#98-2760 

193-7456 

236-9559 



REG. 8 

X 

012554 

#98-2761 





REG. 9 

x 

012562 

#98-2762 

193-7463 




REM.TB 


015664 

#92-2448 

108-3275 

108-3281 

108-3287 

115-3622 

RE2 


004640 

39-1349 

#39-1379 




RE3 


004636 

39-1357 

#39-1378 




RE4 


004634 

39-1366 

#39-1377 




RH.A0D 


016022 

#93-2505 

*204-7950 

204-7961 



RW.ERR 

X 

013302 

#98-2783 

209-8207 

212-8369 



RH.TYP 


016024 

#93-2506 

*204-7952 




RH.VEC 


016026 

#93-2507 

*204-7954 




SC. SET 

x 

013214 

#98-2781 





SEV.FM 

X 

010342 

#95-2625 

391-17683 

399-18136 

411-18698 


SFPTBl 


002400 G 

#6-150 





SIX.FM 

X 

010322 

#95-2624 

219-8679 

224-8955 

230-9218 

272-11382 




302-12992 

335-14705 

337-14784 

349-15414 

349-15434 




418-19084 

424-19414 

430-19720 

430-19755 

431-19797 

STACK 


015034 

#89-2255 

*100-2885 

*100-2886 

*100-2898 

*100-2899 




430-19739 

431-19769 

431-19782 

431-19803 


STK.OF 


015022 

#89-2254 

98-2798 

*103-3044 

104-3103 

*104-3107 

STRIPP 


016444 

#103-3038 

107-3228 

429-19689 



SVCG6L 

X 

177777 

#6-13 

#6>22 

6-65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 


SEQ 0567 


290-12343 292-12428 319-13907 
*291-12419 *292-12469 


460-21303 

115-3626 115-3632 


279-11779 

284-12037 

289-12292 

290-12361 

349-15458 
473-219 77 

350-15482 

350-15502 

400-18161 

107-3235 

111-3377 

429-19701 

430-19726 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 



TSCOOE = 004130 


12 


SEQ 0568 


6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-f5 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-80 

6-87 

6-96 

6-96 

6-96 

6-103 

6-119 

6-119 

6-119 

6-119 

6-150 

6-150 

7-229 

7-229 

7-229 

7-277 

7-316 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

665 

6-65 

6-65 

6-80 

6-80 

6-87 

6-87 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-103 

6-119 

6-150 

7-242 

7-243 

7-243 

7-243 

7-243 

7-244 

7-244 

7-245 

7-245 

7-245 

7-246 

7-247 

7-247 

7-247 

7-247 

7-250 

7-277 

7-288 

7-288 

7-288 

7-290 

7-290 

7-291 

7-291 

7-291 

6-139 

6-165 

6-165 

6-165 

7-250 


7-295 


263-10929 

411-18689 

469-21763 

502-23486 

538-25353 

#7-295 

250-10246 

458-21216 

522-24485 


264-10976 

430-19712 

469-21798 

503-23517 

542-25557 


250-10266 

459-21242 

528-24815 


270-11302 

430-19747 

479-22305 

508-23791 

547-25796 


250-10286 

460-21284 

535-25189 


271-11349 

431-19789 

484-22565 

509-23822 


361-16103 

468-21735 

538-25358 


277-11699 
435-20023 
488-2280 7 
515-24169 


369-16533 

484-22570 

547-25806 


374-16781 380-17114 382-17231 418-19066 447-20671 

316-13733 381-17144 536-25248 551-25989 
6-65 #6-65 6-65 6-65 #6-65 

6-65 #6-65 6-65 6-65 

#7-242 7-242 #7-243 7-243 #7-243 





SEQ OSfc'v 


7-244 

# 7-244 

7-244 

# 7-244 

7-244 

# 7-245 

7-245 

# 7-246 

7-246 

# 7-246 

7-247 

# 7-247 

7-247 

# 7-247 

7-247 

# 7-248 

7-248 

# 7-288 

7-288 

# 7-288 

7-289 

# 7-289 

7-289 

# 7-289 

7-289 

# 7-290 

7-290 

# 7-291 

7-291 

# 7-291 

7-292 

# 7-292 

7-292 

# 7-292 

7-292 

# 7-244 

7-244 

# 7-245 

7-245 

# 7-247 

# 7-244 

7-244 

# 7-245 

7-245 

# 7-247 

# 7-244 

7-244 

# 7-245 

7-245 

# 7-247 

7-250 

7-295 


6-139 

6-139 

6-119 

# 6-119 

6-119 

6-150 

6-165 

6-165 

6-165 

# 6-165 

7-250 

7-250 

# 7-250 

7-277 

# 7-277 

# 7-295 

7-316 

# 7-316 

7-316 

7-322 

7-348 

7-348 

# 7-348 



# 7-229 

7-250 

# 7-277 

7-295 

# 7-316 

6-150 

6-150 

# 6-150 

7-229 

7-</29 

7-316 

7-316 

# 7-316 


6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 

6-103 

6-103 

# 6-103 

6-103 

6-103 



seo 0570 


C 13 


6-103 

6-103 

#6-103 

6-103 

6-103 

6-103 

6-103 

#6-103 

6-103 

6-103 

#6-139 

6-139 

#6-165 

6-165 

#7-242 

7-242 

#7-243 

7-243 

#7-243 

7-243 

#7-244 

7-244 

#7-244 

7-244 

#7-245 

7-243 

#7-246 

7-246 

#7-246 

7-246 

#7-247 

7-247 

#7-247 

7-247 

#7-248 

7-248 

#7-250 

7-250 

#7-288 

7-288 

#7-289 

7-289 

#7-289 

7-289 

#7-289 

7-290 

#7-290 

7-290 

#7-291 

7-291 

#7-292 

7-292 

#7-292 

7-292 

#7-292 

7-322 

#7-348 

7-348 
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ML 1 1 


CREATED BY 

MACRO ON 30-NAR-82 AT 

M:24 PA6E 22 


SYMBOL 

CROSS REFERENCE 



r 

V 

REF 


SYMBOL 

VALUE 


REFERENCES 





T 37 


070756 

G 

6-103 

#425-19463 




T38 


072032 

G 

6-103 

#432-19857 




T39 


072460 

G 

6-103 

#436-20081 




T4 


032336 

G 

6-103 

#221-3773 




T40 


073436 

G 

6-103 

#442-20393 




T41 


074516 

G 

6-103 

#448-20743 




T42 


075324 

G 

6-103 

#454-21035 




T43 


076254 

G 

6-103 

#461-21352 




T44 


076504 

G 

6-103 

#464-21506 




T45 


076670 

G 

6-103 

#466*21618 




T46 


077366 

G 

6-103 

#4 7 0-21843 




T47 


077660 

G 

6-103 

#473-22004 




T48 


100640 

G 

6-103 

#480-22367 




T49 


101376 

G 

6-103 

#485-22634 




T5 


033006 

G 

6-103 

#225-9011 




T50 


102014 

G 

6-103 

#489-22865 




T51 


103202 

G 

6-103 

#497-23266 




T52 


104020 

G 

6-103 

#504-235 72 




T53 


104660 

G 

6-103 

#510-23877 




T54 


105722 

G 

6-103 

#516-24223 




T55 


106612 

G 

6-103 

#523-24530 




T56 


107742 

G 

6-103 

#530-24905 




T57 


111234 

G 

6-103 

#539-25401 




T58 


111640 

G 

6-103 

#543-25605 




T 59 


112306 

G 

6-103 

#548-25849 




T6 


033476 

G 

6-103 

#231-9279 




T60 


112660 

G 

6-103 

#552-26052 




T61 


113522 

G 

6-103 

#559-26426 




T7 


034354 

G 

6-103 

#237-9599 




T8 


035370 

G 

6-103 

#244-9974 




T9 


035624 

G 

6-103 

#247-10114 




UAM 

- 

000200 

G 

#94-2564 





UNS.ER 

S: 

005272 


#94-2577 

318-13837 




VV.CLE 


005414 


#95-2583 

316-13717 




W.NOT 

s 

005340 


#94-2578 

316-13732 




VV.SCT 

s 

005764 


#95-2588 

318-13857 




WC .ERR 

jg 

005652 


#95-2586 

196-7604 

196-7623 



URD.1 

- 

010520 


#95-2630 

256-10580 

261-10823 

262-10839 

262-10856 





269-11229 

270-11308 

271-11355 

275-11593 

276-11609 





283-11960 

283-11978 

306-13197 

2 <6-1 3748 

324-14140 

WRD.10 


010630 


#96-2643 

243-9911 

335-14703 

361-16100 

383-17252 





424-19411 

447-20683 

453-20952 

453-20977 

463-21468 





528-24799 

538-25355 

542-25561 

547-25803 


WRO .11 

- 

010640 


#96-2644 

256-10578 

257-10598 

257-10614 

263-10933 





271-11353 

277-11703 

278-11721 

278-11750 

283-11946 





301-12942 

302-12989 

306-13195 

306-13212 

316-13746 





329-14372 

329-14387 

454-21002 

460-21305 

460-21319 

URD.12 

- 

010650 


#96-2645 

212-8373 

219-8677 

224-8953 

230-9216 





268-11194 

269-11247 

270-11267 

272-11378 

275-11591 





284-1201 7 

289-12290 

290-12359 

292-12443 

295-12605 





335-14702 

355-15779 

375-16808 

391-17679 

399-18132 





424-19410 

430-19716 

430-19751 

431-19793 

473-21974 


263- 10935 
276-11626 

393-17799 

473-21975 

264- 10951 
300-12837 
316-13762 
463-21470 
235-9519 
276-11644 
307-13232 
400-18158 
496-23217 


264-10982 

277-11705 

406-18468 

479-22307 

264-10980 

300-12854 

317-13782 

466-21592 

261-10821 

277-11664 

307-13265 

406-18467 

503-23520 


268-11196 

278- 11752 

411-18695 

502-23490 

270-11306 

300-12873 

324-14138 

262-10874 

279- 11775 
308-13315 
411-18694 
509-23825 


SEQ 0571 


269-11212 

283- 11948 

418-19081 

508-23795 

271-11324 

301-12909 

324- 14160 

263-10894 

284- 12000 

325- 14188 
418-19080 
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SEO 0572 


369-16532 391-17682 440-20302 441-20353 459-21239 
302-12948 302-2991 


261-10819 

270-11304 

278-11748 

306-13209 

325-14116 

431-19791 

269-11215 


262-10872 

271-11322 

279-11773 

307-13230 

342-15050 

435-20027 

269-11232 


262-10||8 

282-11939 

307-13263 

399-18129 

453-20953 

271-11326 


263-10931 

271-11372 

283-11993 

308-13313 

400-18155 

453-20978 

276-11612 


264-10949 

275- 11589 
284-12014 
316-13744 
411-18691 
454-21001 

276- 11629 


430-19719 430-19754 431-19796 435-20029 469-21768 

350-15476 350-15496 406-18470 411-18697 479-22309 

460-21321 

276-11646 284-12002 306-13214 317-13768 324-14162 


550-15479 350-15499 
550-15477 350-15497 

50- 15481 350-15501 

51- 25988 


361-16101 391-17677 393-17800 468-21732 
431-19795 435-20026 

277-11666 284-12019 307-13267 308-13317 317-13784 


269-11230 276-11610 276-11627 283-11961 283-11979 


350-15498 484-22569 488-22811 
440-20293 441-20355 

235-9518 289-12287 290-12356 292-12442 528-24813 


[SL11 CREATED BY 
! SYMBOL CROSS REFERENCE 
SYMBOL ' ,A LUE 


MACRO ON 30-MAR-82 AT 11:24 


URD.53 

WRD.54 

WRD.55 

WRD.56 

WRD.57 

URD.58 

WRD.59 

WRD.6 

WRD.60 

WRD.61 

WR0.62 

WRD.63 

WRD.64 

URD.65 

WRD.67 

WRD.68 

WRD.69 

URD.7 

WRD.70 

URD.71 

WRC. 72 

WRD. 73 
WRD.74 
UR0.75 
URD.76 
WRD.77 
URD.8 
URD.9 

MRT.CM 
WRT.CS 
URT.DA 
WRT.DS 
WRT.D1 
WRT. D2 
WRT.D3 
WRT. EE 
WRT. EL 
WRT.ER 
WRT. El 
WRT. E2 
WRT. MR 
WRT. FA 
WRT. PD 
WRT. RE 
WRT.TR 
WT.DAT 


= 011316 
= 011326 
= 011336 
= 011344 

= 011352 
= 011362 
= 011374 
= 010560 
= 011400 
= 011416 
= 011432 
= 011440 
= 011446 
= 011454 
= 011462 
= 011470 
= 011474 
= 010566 
= 011502 
= 011514 
= 011524 
= 011532 
= 011540 
= 011552 
= 011562 
= 011570 
= 010602 
= 010616 


REFERENCED 

529-24869 

#96-2685 

#96-2686 

#96-2687 

#96-2688 

440-20291 

#96-2689 

#96-2690 

#97-2695 

#96-2639 

#97-2696 

#97-2697 

#97-2698 

#97-2699 

#97-2700 

#97-2701 

#97-2702 

#97-2703 

#97-2704 

#96-2640 

#97-2705 

#97-2706 

#97-2707 

#97-2708 

#97-2709 

#97-2710 

#97-2711 

#97-2712 

#96-2641 

#96-2642 

522-24482 

#196-7584 

#135-4563 

#141-4882 

#180-6775 

#167-6169 

#171-6361 

#175-6565 

#164-6041 

#161-5904 

#138-4722 

#150-5361 

#153-5536 

#144-5041 

#147-5199 

#157-5723 

#184-6990 

#199-7711 

#89-2260 

*149-5313 

163-5991 

*182-6874 


PAGE 24 
CREF 


>24-8949 230-9212 235-9516 


55—25187 


454-21004 

250-10265 

440-20292 

272-11381 

212-8375 

479-22310 

496-23216 

528-24798 

249- 1 0240 

538 
547 
479-2 
494 
494 
502-23489 
508-23796 

250- 10283 
249-10 


320-13947 

185-7017 

185- 7027 

186- 7071 
186-7076 
186-7081 
186-7086 
185-7057 

185-7842 

vm 

185-7052 

224-8910 

317-13805 

*137-4673 

149-5317 

*166-6124 

182-6878 


iitmi 

279-11778 


349-15410 

495-23118 


484-22568 488-22810 
502-23491 503-23519 


542-25560 

250-10264 


10264 250-10284 


495-23117 496-23189 
495-23116 496-23188 
508-23794 515-24172 


83 469-21800 484-22567 
39 250-10263 399-18133 


240^9$$ 7 241-9809 
241-9787 241-9817 


?40-97f0 241-981 

>41-9793 241-982 


241-9796 

241-9790 

446-20603 


*152-5475 

166-6126 

225-8964 


241-9821 

234-9454 

*140-4833 

152-5479 

*170-6311 

230-9223 


13 


SEQ 0573 

289-12286 290-12355 292-12440 381-17U2 391-17676 

349-15430 469-21767 470-21806 
496-23220 503-23523 509-23828 


509-23824 528-24800 542-25562 
250-10297 468-21733 469-21766 469-21801 


m 


22-2448 


503-23522 

503-23521 


509-23827 

509-23826 


4?fclJl?9 469-21765 502-23488 508-23793 515-24171 


289-12269 290-12338 291-12411 

140-4837 *143-4992 143-4996 *146-5152 146-5156 

156-5665 *160-5849 160-5853 *163-5989 

*174-6501 174-6503 *179-6714 179-6718 

289-12297 291-12370 


*156-5 

170-6 


243-991 


I 


J 


G 13 


Mill 

SYMBOL 

SYMBOL 

W.C.S1 

U.ERR 

XOR.LN 

XSALWA 

XSFALS 

XSOFFS 

XtTRUE 

SENO.L 

SPATCH 

SSAVE2 


f SAVE 4 
S SAVE 5 


*T1 

ST10 

ST11 

ST12 

ST13 

ST14 

ST15 

ST16 

ST17 

ST18 

ST19 

ST2 

ST20 

ST21 

ST22 

ST23 

$T24 

ST25 

ST26 

ST27 

ST28 

ST29 

ST3 

ST30 

ST31 

ST32 

ST33 

ST34 

ST35 


CREATED 8Y 
CROSS REFERENCE 
VALUE 
015344 
= 005722 
021072 

- ooooco 

= 000040 
= 000400 
= 000020 
113564 G 
003452 G 
004540 G 


MACRO ON 30-MAR-82 AT 11:24 


SSAVE3 004554 G 


004572 G 
004612 G 


030724 

035640 

036302 

036524 

037102 

040244 

041476 

042730 

043572 

045060 

045274 

031150 

046444 

047444 

051212 

051740 

052276 

053472 

054304 

055502 

056260 

057244 

031474 

060356 

061152 

062550 

064306 

065320 

066302 


REFERENCES 

#89-2257 

#95-2587 

#129-4275 

#6-13 

#6-13 

#6-13 

#6-13 

#561-26535 

#7-338 

32- 1022 
141-4882 
156-5647 
182-6862 
439-20241 
11-169 
203-7927 
541-25510 

#39-1359 

33- 1091 
288-12248 
373-16698 
434-19969 
520-24369 

#209-8183 

#249-10221 

#252-10394 

#256-10552 

#261-10802 

#268-11175 

#275-11572 

#282-11914 

#288-12248 

#295-12585 

#299-12804 

#212-8334 

#306-13179 

#315-13688 

#323-14104 

#328-14331 

#333-14602 

#340-14961 

#347-15321 

#354-15681 

#359-15979 

#366-16361 

#216-8S04 

#373-16698 

#379-17029 

#388-17527 

#397-18003 

#404-18353 

#410-18640 


*205-8020 

199-7728 

399-18104 


37-1269 
143-4980 
157-5723 
184-6990 
472-21937 
12-217 „ 
219-8657 
546-25737 
115-3604 
37-1269 
315-13 
379-171 
445-20555 
526-24692 
210-8250 
251-10326 
2 54-10465 
257-10646 
265-11022 
272-11412 

paR 

293-12499 

t 12648 

13§§7 

330-14425 
338-14844 
343-15109 
351-15547 
356-15814 
362-16151 
370-16565 

9£8& 

583-1 7290 
394-17845 
400-18186 
407-18529 
412-18756 


*205-8040 

199-7745 

406-18454 


PAGE 25 
CREF 

439-20254 440-20267 441-20340 


SEO 0574 


#39-1344 

144-5041 

160-5835 

188-7189 

W 56 

245-10043 

562-26558 

129-4276 

#39-1368 

323-14104 

388-17527 

477-22198 

535-25160 


112-3476 

146-5140 

167-6169 

209-8183 

249-10221 

sfi-llw 


125-4048 

147-5199 

169-6283 

252-10394 

27-829 

295-12585 

mm 

340-14961 

4?7-22?5? 

562-26558 


135-4563 

149-5300 

171-6361 

261-10802 


137-4661 

150-5361 

173-6473 

268-11175 


>8-880 #39-1351 

>99-12804 306-13179 


562-26558 

§47-15321 


229-9151 

354-15681 

415-18932 

501-23417 


138-4722 

152-5462 

175-6565 

275-11572 

98-2796 

452-20894 


234-9436 

359-15979 

422-19295 

507-23718 


14Q-4821 

153-5536 

178-6685 

328-14331 

110-3368 

458-21183 


240-9764 

366-16S61 

429-19663 

513-24035 


ML11 

CREATED BY 

SYMBOL 

CROSS REFERENCE 

SYMBOL 

VALUE 

ST 36 

066760 

ST37 

070044 

ST 38 

070772 

ST 39 

072046 

ST4 

031702 

ST40 

072474 

ST41 

073452 

ST42 

074532 

ST43 

075340 

ST44 

076270 

ST45 

076520 

ST46 

076704 

ST47 

077402 

ST48 

077674 

ST49 

100654 

ST 5 

032352 

ST 50 

101412 

ST51 

102030 

ST52 

103216 

ST53 

104034 

ST54 

104674 

ST55 

105736 

ST 56 

106626 

ST57 

107756 

ST58 

111250 

ST59 

111654 

ST6 

033022 

ST60 

112322 

ST61 

112674 

ST7 

033512 

STS 

034370 

ST9 

035404 


MACRO ON 30-MAR-82 AT 11:24 


REFERENCES 

#415-18932 

#422-19295 

#429-19663 

#434-19969 

#219-8657 

#439-20241 

#445-20555 

#452-20894 

#458-21183 

#463-21445 

#465-21570 

#468-21729 

#472-21937 

#477-22198 

#483-22504 

#223-8889 

#487-22757 

#493-23033 

#501-23417 

#507-23718 

#513-24035 

#520-24369 

#526-24692 

#535-25160 

#541-25510 

#546-25737 

#229-9151 

#550-25956 

#556-26267 

#234-9436 

#240-9764 

#245-10043 


419-19143 

425-19464 

432-19858 

436-20082 

221-8774 

442-20394 

448-20744 

454-21036 

461-21353 

464-21507 

466-21619 

470-21844 

473-22005 


480-22368 

485-22635 

225-9012 

489-22866 

497-23267 

504-23573 

510-23878 

516-24224 

523-24531 

530-24906 

539-25402 

543-25606 

548-25850 

231-9280 

552-26053 

559-264 27 

237-9600 

244-9975 

247-10115 


PAGE 26 
CREF 


13 


SEQ 0575 


! 



